earlybrowserreborn - Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 roytam 1 /*
2  * Copyright 1990 Pei-Yuan Wei. All rights reserved.
3  *
4  * Permission to use, copy, and/or distribute for any purpose and
5  * without fee is hereby granted, provided that both the above copyright
6  * notice and this permission notice appear in all copies and derived works.
7  * Fees for distribution or use of this software or derived works may only
8  * be charged with express written permission of the copyright holder.
9  * This software is provided ``as is'' without express or implied warranty.
10  */
11 /*
12  * class        : hpane
13  * superClass   : pane
14  */
15 #include "utils.h"
16 #include <ctype.h>
17 #include "error.h"
18 #include "mystrings.h"
19 #include "hash.h"
20 #include "ident.h"
21 #include "scanutils.h"
22 #include "obj.h"
23 #include "packet.h"
24 #include "membership.h"
25 #include "class.h"
26 #include "slotaccess.h"
27 #include "classlist.h"
28 #include "cl_hpane.h"
29 #include "misc.h"
30 #include "glib.h"
31  
32 SlotInfo cl_hpane_NCSlots[] = {
33         NULL
34 };
35 SlotInfo cl_hpane_NPSlots[] = {
36         NULL
37 };
38 SlotInfo cl_hpane_CSlots[] = {
39 {
40         STR_class,
41         PTRS | SLOT_RW,
42         (long)"hpane"
43 },{
44         STR_classScript,
45         PTRS,
46         (long)"\n\
47                 switch (arg[0]) {\n\
48                 case \"config\":\n\
49                         config(arg[1], arg[2], arg[3], arg[4]);\n\
50                 break;\n\
51                 case \"render\":\n\
52                 case \"expose\":\n\
53                         render();\n\
54                 break;\n\
55                 case \"configSelf\":\n\
56                         send(self(), \"config\", \n\
57                                 x(), y(), width(), height());\n\
58                 break;\n\
59                 case \"visible\":\n\
60                         set(\"visible\", arg[1]);\n\
61                 break;\n\
62                 case \"mouseMove\":\n\
63                 case \"enter\":\n\
64                 case \"leave\":\n\
65                 case \"buttonPress\":\n\
66                 case \"buttonRelease\":\n\
67                 case \"keyPress\":\n\
68                 case \"keyRelease\":\n\
69                 case \"shownPositionH\":\n\
70                 case \"shownPositionV\":\n\
71                 break;\n\
72                 case \"freeSelf\":\n\
73                         freeSelf();\n\
74                 break;\n\
75                 case \"init\":\n\
76                         initialize();\n\
77                 break;\n\
78                 case \"info\":\n\
79                         info();\n\
80                 break;\n\
81                 default:\n\
82                         print(\"unknown message, clsss = \", get(\"class\"),\n\
83                                 \": self = \", get(\"name\"), \" args: \");\n\
84                         for (i = 0; i < arg[]; i++) print(arg[i], \", \");\n\
85                         print(\"\n\");\n\
86                 break;\n\
87                 }\n\
88         ",
89 },{
90         NULL
91 }
92 };
93 SlotInfo cl_hpane_PSlots[] = {
94 {
95         STR__classInfo,
96         CLSI,
97         (long)&class_hpane
98 },{
99         STR_paneConfig,
100         PTRS,
101         (long)"westToEast"
102 },{
103         STR__paneConfig,
104         LONG,
105         PANE_CONFIG_W2E         /* default with W2E */
106 },{
107         NULL
108 }
109 };
110  
111 SlotInfo *slots_hpane[] = {
112         (SlotInfo*)cl_hpane_NCSlots,
113         (SlotInfo*)cl_hpane_NPSlots,
114         (SlotInfo*)cl_hpane_CSlots,
115         (SlotInfo*)cl_hpane_PSlots
116 };
117  
118 MethodInfo meths_hpane[] = {
119         /* local methods */
120         NULL
121 };
122  
123 ClassInfo class_hpane = {
124         helper_pane_get,
125         helper_pane_set,
126         slots_hpane,            /* class slot information       */
127         meths_hpane,            /* class methods                */
128         STR_hpane,              /* class identifier number      */
129         &class_pane,            /* super class info             */
130 };