Mercurial > hg > xemacs-beta

comparison lwlib/xlwtabs.c @ 4521:383ab474a241

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix docstring typo.
author Stephen J. Turnbull <stephen@xemacs.org>
date Tue, 28 Oct 2008 10:38:26 +0900
parents 03f6627a2e09
children fc7067b7f407
comparison
equal deleted inserted replaced
4520:279cadceaa13 4521:383ab474a241
140 <Key>KP_Down: highlight(down) \n\ 140 <Key>KP_Down: highlight(down) \n\
141 <Key> : page(select) \n\ 141 <Key> : page(select) \n\
142 " ; 142 " ;
143 static XtAccelerators defaultAccelerators ; /* #### Never used */ 143 static XtAccelerators defaultAccelerators ; /* #### Never used */
144 144
145 static XtResource resources[] = {
145 #define offset(field) XtOffsetOf(TabsRec, tabs.field) 146 #define offset(field) XtOffsetOf(TabsRec, tabs.field)
146 static XtResource resources[] = { 147 #define res(name,_class,intrepr,type,member,extrepr,value) \
147 148 Xt_RESOURCE (name, _class, intrepr, type, offset(member), extrepr, value)
148 {XtNselectInsensitive, XtCSelectInsensitive, XtRBoolean, sizeof(Boolean), 149
149 offset(selectInsensitive), XtRImmediate, (XtPointer) True}, 150 res (XtNselectInsensitive, XtCSelectInsensitive, XtRBoolean, Boolean,
150 {XtNfont, XtCFont, XtRFontStruct, sizeof(XFontStruct *), 151 selectInsensitive, XtRImmediate, True),
151 offset(font), XtRString, (XtPointer) XtDefaultFont}, 152 res (XtNfont, XtCFont, XtRFontStruct, XFontStruct *,
153 font, XtRString, XtDefaultFont),
152 #ifdef USE_XFT_TABS 154 #ifdef USE_XFT_TABS
153 /* #### Maybe use "-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-1" here? 155 /* #### Maybe use "-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-1" here?
154 or XtDefaultFont? */ 156 or XtDefaultFont? */
155 {XtNfcFontName, XtCFcFontName, XtRString, sizeof(String), 157 res (XtNfcFontName, XtCFcFontName, XtRString, String,
156 offset(fcFontName), XtRString, (XtPointer) NULL }, 158 fcFontName, XtRString, NULL),
157 /* #### This needs to be fixed to give a proper type and converter for 159 /* #### This needs to be fixed to give a proper type and converter for
158 XftFonts. See also xlwmenu.c. */ 160 XftFonts. See also xlwmenu.c. */
159 {XtNxftFont, XtCXftFont, XtRString, sizeof(String), 161 res (XtNxftFont, XtCXftFont, XtRString, String,
160 offset(xftFontName), XtRString, (XtPointer) "Helvetica-12" }, 162 xftFontName, XtRString, "Helvetica-12"),
161 #endif 163 #endif
162 {XtNinternalWidth, XtCWidth, XtRDimension, sizeof(Dimension), 164 res (XtNinternalWidth, XtCWidth, XtRDimension, Dimension,
163 offset(internalWidth), XtRImmediate, (XtPointer)4 }, 165 internalWidth, XtRImmediate, 4),
164 {XtNinternalHeight, XtCHeight, XtRDimension, sizeof(Dimension), 166 res (XtNinternalHeight, XtCHeight, XtRDimension, Dimension,
165 offset(internalHeight), XtRImmediate, (XtPointer)4 }, 167 internalHeight, XtRImmediate, 4),
166 {XtNborderWidth, XtCBorderWidth, XtRDimension, sizeof(Dimension), 168 Xt_RESOURCE (XtNborderWidth, XtCBorderWidth, XtRDimension, Dimension,
167 XtOffsetOf(RectObjRec,rectangle.border_width), XtRImmediate, (XtPointer)0}, 169 XtOffsetOf(RectObjRec,rectangle.border_width), XtRImmediate, 0),
168 {XtNtopWidget, XtCTopWidget, XtRWidget, sizeof(Widget), 170 res (XtNtopWidget, XtCTopWidget, XtRWidget, Widget,
169 offset(topWidget), XtRImmediate, NULL}, 171 topWidget, XtRImmediate, NULL),
170 {XtNcallback, XtCCallback, XtRCallback, sizeof(XtPointer), 172 res (XtNcallback, XtCCallback, XtRCallback, XtPointer,
171 offset(callbacks), XtRCallback, NULL}, 173 callbacks, XtRCallback, NULL),
172 {XtNpopdownCallback, XtCCallback, XtRCallback, sizeof(XtPointer), 174 res (XtNpopdownCallback, XtCCallback, XtRCallback, XtPointer,
173 offset(popdownCallbacks), XtRCallback, NULL}, 175 popdownCallbacks, XtRCallback, NULL),
174 {XtNbeNiceToColormap, XtCBeNiceToColormap, XtRBoolean, sizeof(Boolean), 176 res (XtNbeNiceToColormap, XtCBeNiceToColormap, XtRBoolean, Boolean,
175 offset(be_nice_to_cmap), XtRImmediate, (XtPointer) True}, 177 be_nice_to_cmap, XtRImmediate, True),
176 {XtNtopShadowContrast, XtCTopShadowContrast, XtRInt, sizeof(int), 178 res (XtNtopShadowContrast, XtCTopShadowContrast, XtRInt, int,
177 offset(top_shadow_contrast), XtRImmediate, (XtPointer) 20}, 179 top_shadow_contrast, XtRImmediate, 20),
178 {XtNbottomShadowContrast, XtCBottomShadowContrast, XtRInt, sizeof(int), 180 res (XtNbottomShadowContrast, XtCBottomShadowContrast, XtRInt, int,
179 offset(bot_shadow_contrast), XtRImmediate, (XtPointer) 40}, 181 bot_shadow_contrast, XtRImmediate, 40),
180 {XtNinsensitiveContrast, XtCInsensitiveContrast, XtRInt, sizeof(int), 182 res (XtNinsensitiveContrast, XtCInsensitiveContrast, XtRInt, int,
181 offset(insensitive_contrast), XtRImmediate, (XtPointer) 33}, 183 insensitive_contrast, XtRImmediate, 33),
182 {XtNaccelerators, XtCAccelerators, XtRAcceleratorTable,sizeof(XtTranslations), 184 Xt_RESOURCE (XtNaccelerators, XtCAccelerators, XtRAcceleratorTable,
183 XtOffsetOf(TabsRec,core.accelerators), XtRString, accelTable}, 185 XtTranslations, XtOffsetOf(TabsRec,core.accelerators),
186 XtRString, accelTable),
187 #undef offset
188 #undef res
184 }; 189 };
190
191
192 /* constraint resources */
193
194 static XtResource tabsConstraintResources[] = {
195 #define offset(field) XtOffsetOf(TabsConstraintsRec, tabs.field)
196 #define res(name,_class,intrepr,type,member,extrepr,value) \
197 Xt_RESOURCE (name, _class, intrepr, type, offset(member), extrepr, value)
198 res (XtNtabLabel, XtCLabel, XtRString, String, label, XtRString, NULL),
199 res (XtNtabLeftBitmap, XtCLeftBitmap, XtRBitmap, Pixmap, left_bitmap,
200 XtRImmediate, None),
201 res (XtNtabForeground, XtCForeground, XtRPixel, Pixel, foreground,
202 XtRString, XtDefaultForeground),
203 res (XtNresizable, XtCResizable, XtRBoolean, Boolean, resizable,
204 XtRImmediate, True),
185 #undef offset 205 #undef offset
186 206 #undef res
187
188
189 /* constraint resources */
190
191 #define offset(field) XtOffsetOf(TabsConstraintsRec, tabs.field)
192 static XtResource tabsConstraintResources[] = {
193 {XtNtabLabel, XtCLabel, XtRString, sizeof(String),
194 offset(label), XtRString, NULL},
195 {XtNtabLeftBitmap, XtCLeftBitmap, XtRBitmap, sizeof(Pixmap),
196 offset(left_bitmap), XtRImmediate, None},
197 {XtNtabForeground, XtCForeground, XtRPixel, sizeof(Pixel),
198 offset(foreground), XtRString, (XtPointer) XtDefaultForeground},
199 {XtNresizable, XtCResizable, XtRBoolean, sizeof(Boolean),
200 offset(resizable), XtRImmediate, (XtPointer) True},
201 } ; 207 } ;
202 #undef offset
203 208
204 209
205 210
206 211
207 #if !NeedFunctionPrototypes 212 #if !NeedFunctionPrototypes
316 do{rects[(i)].x=(xx); rects[i].y=(yy); \ 321 do{rects[(i)].x=(xx); rects[i].y=(yy); \
317 rects[i].width=(w); rects[i].height=(h);}while(0) 322 rects[i].width=(w); rects[i].height=(h);}while(0)
318 323
319 static XtActionsRec actionsList[] = 324 static XtActionsRec actionsList[] =
320 { 325 {
321 {"select", TabsSelect}, 326 { (String) "select", TabsSelect },
322 {"page", TabsPage}, 327 { (String) "page", TabsPage },
323 {"highlight", TabsHighlight}, 328 { (String) "highlight", TabsHighlight },
324 {"unhighlight", TabsUnhighlight}, 329 { (String) "unhighlight", TabsUnhighlight },
325 } ; 330 } ;
326 331
327 332
328 /**************************************************************** 333 /****************************************************************
329 * 334 *
339 344
340 TabsClassRec tabsClassRec = { 345 TabsClassRec tabsClassRec = {
341 { 346 {
342 /* core_class fields */ 347 /* core_class fields */
343 /* superclass */ (WidgetClass) SuperClass, 348 /* superclass */ (WidgetClass) SuperClass,
344 /* class_name */ "Tabs", 349 /* class_name */ (String) "Tabs",
345 /* widget_size */ sizeof(TabsRec), 350 /* widget_size */ sizeof(TabsRec),
346 /* class_initialize */ TabsClassInit, 351 /* class_initialize */ TabsClassInit,
347 /* class_part_init */ NULL, /* TODO? */ 352 /* class_part_init */ NULL, /* TODO? */
348 /* class_inited */ FALSE, 353 /* class_inited */ FALSE,
349 /* initialize */ TabsInit, 354 /* initialize */ TabsInit,