Mercurial > hg > xemacs-beta

comparison src/gtk-xemacs.c @ 744:8ae895c67ce7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-02-04 15:44:37 by wmperry] Enable generic toolbar support for X11. Added new toolbar-shadow-thickness specifier.
author wmperry
date Mon, 04 Feb 2002 15:44:52 +0000
parents 0784d089fdc9
children 2923009caf47
comparison
equal deleted inserted replaced
743:968a715e8c6f 744:8ae895c67ce7
197 GTK_WIDGET (DEVICE_GTK_APP_SHELL (XDEVICE (FRAME_DEVICE (f))))->window); 197 GTK_WIDGET (DEVICE_GTK_APP_SHELL (XDEVICE (FRAME_DEVICE (f))))->window);
198 198
199 Fadd_spec_to_specifier (Vscrollbar_width, make_int (vsize), frame, Qnil, Qnil); 199 Fadd_spec_to_specifier (Vscrollbar_width, make_int (vsize), frame, Qnil, Qnil);
200 Fadd_spec_to_specifier (Vscrollbar_height, make_int (hsize), frame, Qnil, Qnil); 200 Fadd_spec_to_specifier (Vscrollbar_height, make_int (hsize), frame, Qnil, Qnil);
201 } 201 }
202 #else
203 #define smash_scrollbar_specifiers(x,y)
204 #endif /* HAVE_SCROLLBARS */ 202 #endif /* HAVE_SCROLLBARS */
203
204 #ifdef HAVE_TOOLBARS
205 extern Lisp_Object Vtoolbar_shadow_thickness;
206
207 static void
208 smash_toolbar_specifiers(struct frame *f, GtkStyle *style)
209 {
210 Lisp_Object frame;
211 GtkStyleClass *klass = (GtkStyleClass *) style->klass;
212
213 XSETFRAME (frame,f);
214
215 Fadd_spec_to_specifier (Vtoolbar_shadow_thickness, make_int (klass->xthickness),
216 Qnil, list2 (Qgtk, Qdefault), Qprepend);
217 }
218 #endif /* HAVE_TOOLBARS */
205 219
206 static void 220 static void
207 gtk_xemacs_realize (GtkWidget *widget) 221 gtk_xemacs_realize (GtkWidget *widget)
208 { 222 {
209 parent_class->realize (widget); 223 parent_class->realize (widget);
222 { 236 {
223 __nuke_background_items (widget); 237 __nuke_background_items (widget);
224 #if 0 238 #if 0
225 smash_face_fallbacks (x->f, new_style); 239 smash_face_fallbacks (x->f, new_style);
226 #endif 240 #endif
241 #ifdef HAVE_SCROLLBARS
227 smash_scrollbar_specifiers (x->f, new_style); 242 smash_scrollbar_specifiers (x->f, new_style);
243 #endif
244 #ifdef HAVE_TOOLBARS
245 smash_toolbar_specifiers (x->f, new_style);
246 #endif
228 } 247 }
229 } 248 }
230 249
231 static void 250 static void
232 gtk_xemacs_size_request (GtkWidget *widget, GtkRequisition *requisition) 251 gtk_xemacs_size_request (GtkWidget *widget, GtkRequisition *requisition)