annotate lisp/widgets-gtk.el @ 5043:d0c14ea98592

various frame-geometry fixes -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-02-15 Ben Wing <ben@xemacs.org> * EmacsFrame.c: * EmacsFrame.c (EmacsFrameResize): * console-msw-impl.h: * console-msw-impl.h (struct mswindows_frame): * console-msw-impl.h (FRAME_MSWINDOWS_TARGET_RECT): * device-tty.c: * device-tty.c (tty_asynch_device_change): * event-msw.c: * event-msw.c (mswindows_wnd_proc): * faces.c (Fface_list): * faces.h: * frame-gtk.c: * frame-gtk.c (gtk_set_initial_frame_size): * frame-gtk.c (gtk_set_frame_size): * frame-msw.c: * frame-msw.c (mswindows_init_frame_1): * frame-msw.c (mswindows_set_frame_size): * frame-msw.c (mswindows_size_frame_internal): * frame-msw.c (msprinter_init_frame_3): * frame.c: * frame.c (enum): * frame.c (Fmake_frame): * frame.c (adjust_frame_size): * frame.c (store_minibuf_frame_prop): * frame.c (Fframe_property): * frame.c (Fframe_properties): * frame.c (Fframe_displayable_pixel_height): * frame.c (Fframe_displayable_pixel_width): * frame.c (internal_set_frame_size): * frame.c (Fset_frame_height): * frame.c (Fset_frame_pixel_height): * frame.c (Fset_frame_displayable_pixel_height): * frame.c (Fset_frame_width): * frame.c (Fset_frame_pixel_width): * frame.c (Fset_frame_displayable_pixel_width): * frame.c (Fset_frame_size): * frame.c (Fset_frame_pixel_size): * frame.c (Fset_frame_displayable_pixel_size): * frame.c (frame_conversion_internal_1): * frame.c (get_frame_displayable_pixel_size): * frame.c (change_frame_size_1): * frame.c (change_frame_size): * frame.c (generate_title_string): * frame.h: * gtk-xemacs.c: * gtk-xemacs.c (gtk_xemacs_size_request): * gtk-xemacs.c (gtk_xemacs_size_allocate): * gtk-xemacs.c (gtk_xemacs_paint): * gutter.c: * gutter.c (update_gutter_geometry): * redisplay.c (end_hold_frame_size_changes): * redisplay.c (redisplay_frame): * toolbar.c: * toolbar.c (update_frame_toolbars_geometry): * window.c: * window.c (frame_pixsize_valid_p): * window.c (check_frame_size): Various fixes to frame geometry to make it a bit easier to understand and fix some bugs. 1. IMPORTANT: Some renamings. Will need to be applied carefully to the carbon repository, in the following order: -- pixel_to_char_size -> pixel_to_frame_unit_size -- char_to_pixel_size -> frame_unit_to_pixel_size -- pixel_to_real_char_size -> pixel_to_char_size -- char_to_real_pixel_size -> char_to_pixel_size -- Reverse second and third arguments of change_frame_size() and change_frame_size_1() to try to make functions consistent in putting width before height. -- Eliminate old round_size_to_char, because it didn't really do anything differently from round_size_to_real_char() -- round_size_to_real_char -> round_size_to_char; any places that called the old round_size_to_char should just call the new one. 2. IMPORTANT FOR CARBON: The set_frame_size() method is now passed sizes in "frame units", like all other frame-sizing functions, rather than some hacked-up combination of char-cell units and total pixel size. This only affects window systems that use "pixelated geometry", and I'm not sure if Carbon is one of them. MS Windows is pixelated, X and GTK are not. For pixelated-geometry systems, the size in set_frame_size() is in displayable pixels rather than total pixels and needs to be converted appropriately; take a look at the changes made to mswindows_set_frame_size() method if necessary. 3. Add a big long comment in frame.c describing how frame geometry works. 4. Remove MS Windows-specific character height and width fields, duplicative and unused. 5. frame-displayable-pixel-* and set-frame-displayable-pixel-* didn't use to work on MS Windows, but they do now. 6. In general, clean up the handling of "pixelated geometry" so that fewer functions have to worry about this. This is really an abomination that should be removed entirely but that will have to happen later. Fix some buggy code in frame_conversion_internal() that happened to "work" because it was countered by oppositely buggy code in change_frame_size(). 7. Clean up some frame-size code in toolbar.c and use functions already provided in frame.c instead of rolling its own. 8. Fix check_frame_size() in window.c, which formerly didn't take pixelated geometry into account.
author Ben Wing <ben@xemacs.org>
date Mon, 15 Feb 2010 22:14:11 -0600
parents ecf1ebac70d8
children 308d34e9f07d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1 ;;; widgets-gtk.el --- Embedded widget support for XEmacs w/GTK primitives
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
3 ;; Copyright (C) 2001 Free Software Foundation, Inc.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
4
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
5 ;; Maintainer: William M. Perry <wmperry@gnu.org>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
6 ;; Keywords: extensions, internal, dumped
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
7
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
8 ;; This file is part of XEmacs.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
9
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
10 ;; XEmacs is free software; you can redistribute it and/or modify it
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
11 ;; under the terms of the GNU General Public License as published by
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
13 ;; any later version.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
14
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
15 ;; XEmacs is distributed in the hope that it will be useful, but
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18 ;; General Public License for more details.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
19
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21 ;; along with XEmacs; see the file COPYING. If not, write to the
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22 ;; Free Software Foundation, 59 Temple Place - Suite 330,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23 ;; Boston, MA 02111-1307, USA.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
24
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
25 ;;; Synched up with: Not in FSF.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
26
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
27 ;;; Commentary:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
28
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
29 ;; This file is dumped with XEmacs (when embedded widgets are compiled in).
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
30
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
31 (globally-declare-fboundp
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
32 '(gtk-button-new-with-label
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
33 gtk-signal-connect
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
34 gtk-radio-button-new-with-label gtk-radio-button-group
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
35 gtk-toggle-button-set-active gtk-check-button-new-with-label
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
36 gtk-widget-show-all gtk-notebook-new gtk-notebook-append-page
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
37 gtk-vbox-new gtk-label-new gtk-adjustment-new
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
38 gtk-progress-bar-new-with-adjustment gtk-adjustment-set-value
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
39 gtk-entry-new gtk-entry-set-text gtk-widget-set-style
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
40 gtk-widget-get-style))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
41
738
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
42 (defun gtk-widget-get-callback (widget plist instance)
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
43 (let ((cb (plist-get plist :callback))
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
44 (ex (plist-get plist :callback-ex))
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
45 (real-cb nil))
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
46 (cond
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
47 (ex
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
48 (gtk-signal-connect widget 'button-release-event
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
49 (lambda (widget event data)
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
50 (put widget 'last-event event)))
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
51 `(lambda (widget &rest ignored)
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
52 (funcall ,ex ,instance (get widget 'last-event))))
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
53 (cb
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
54 `(lambda (widget &rest ignored)
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
55 (if (functionp ,real-cb)
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
56 (funcall ,real-cb)
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
57 (eval ,real-cb))))
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
58 (t
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
59 nil))))
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
60
738
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
61 (defun gtk-widget-instantiate-button-internal (plist instance)
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
62 (let* ((type (or (plist-get plist :style) 'button))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
63 (label (or (plist-get plist :descriptor) (symbol-name type)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
64 (widget nil))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
65 (case type
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
66 (button
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
67 (setq widget (gtk-button-new-with-label label))
738
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
68 (gtk-signal-connect widget 'clicked
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
69 (gtk-widget-get-callback widget plist instance)))
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
70 (radio
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
71 (let ((aux nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
72 (selected-p (plist-get plist :selected)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
73 (setq widget (gtk-radio-button-new-with-label nil label)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
74 aux (gtk-radio-button-new-with-label
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
75 (gtk-radio-button-group widget)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
76 "bogus sibling"))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
77 (gtk-toggle-button-set-active widget (eval selected-p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
78 (gtk-signal-connect widget 'toggled
738
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
79 (gtk-widget-get-callback widget plist instance) aux)))
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
80 (otherwise
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
81 ;; Check boxes
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
82 (setq widget (gtk-check-button-new-with-label label))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
83 (gtk-toggle-button-set-active widget
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
84 (eval (plist-get plist :selected)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
85 (gtk-signal-connect widget 'toggled
738
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
86 (gtk-widget-get-callback widget plist instance))))
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
87 (gtk-widget-show-all widget)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
88 widget))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
89
738
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
90 (defun gtk-widget-instantiate-notebook-internal (plist instance)
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
91 (let ((widget (gtk-notebook-new))
2367
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 2168
diff changeset
92 ;(items (plist-get plist :items))
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 2168
diff changeset
93 )
2168
95fee4a1420e [xemacs-hg @ 2004-07-07 12:00:58 by malcolmp]
malcolmp
parents: 738
diff changeset
94 ; (while items
95fee4a1420e [xemacs-hg @ 2004-07-07 12:00:58 by malcolmp]
malcolmp
parents: 738
diff changeset
95 ; (gtk-notebook-append-page widget
95fee4a1420e [xemacs-hg @ 2004-07-07 12:00:58 by malcolmp]
malcolmp
parents: 738
diff changeset
96 ; (gtk-vbox-new nil 3)
95fee4a1420e [xemacs-hg @ 2004-07-07 12:00:58 by malcolmp]
malcolmp
parents: 738
diff changeset
97 ; (gtk-label-new (aref (car items) 0)))
95fee4a1420e [xemacs-hg @ 2004-07-07 12:00:58 by malcolmp]
malcolmp
parents: 738
diff changeset
98 ; (setq items (cdr items)))
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
99 widget))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
100
738
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
101 (defun gtk-widget-instantiate-progress-internal (plist instance)
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
102 (let* ((adj (gtk-adjustment-new 0.0 0.0 100.0 1.0 5.0 5.0))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
103 (widget (gtk-progress-bar-new-with-adjustment adj)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
104 (gtk-adjustment-set-value adj (or (plist-get plist :value) 0.0))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
105 widget))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
106
738
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
107 (defun gtk-widget-instantiate-entry-internal (plist instance)
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
108 (let* ((widget (gtk-entry-new))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
109 (default (plist-get plist :descriptor)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
110 (cond
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
111 ((stringp default)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
112 nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
113 ((sequencep default)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
114 (setq default (mapconcat 'identity default "")))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
115 (t
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
116 (error "Invalid default value: %S" default)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
117 (gtk-entry-set-text widget default)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
118 widget))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
119
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
120 (put 'button 'instantiator 'gtk-widget-instantiate-button-internal)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
121 (put 'tab-control 'instantiator 'gtk-widget-instantiate-notebook-internal)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
122 (put 'progress-gauge 'instantiator 'gtk-widget-instantiate-progress-internal)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
123 (put 'tree-view 'instantiator 'ignore)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
124 (put 'edit-field 'instantiator 'gtk-widget-instantiate-entry-internal)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
125 (put 'combo-box 'instantiator 'ignore)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
126 (put 'label 'instantiator 'ignore)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
127 (put 'layout 'instantiator 'ignore)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
128
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
129 (defun gtk-widget-instantiate-internal (instance
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
130 instantiator
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
131 pointer-fg
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
132 pointer-bg
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
133 domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
134 "The lisp side of widget/glyph instantiation code."
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
135 (let* ((type (aref instantiator 0))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
136 (plist (cdr (map 'list 'identity instantiator)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
137 (widget (funcall (or (get type 'instantiator) 'ignore)
738
5039859429c5 [xemacs-hg @ 2002-02-02 13:39:59 by wmperry]
wmperry
parents: 523
diff changeset
138 plist instance)))
2168
95fee4a1420e [xemacs-hg @ 2004-07-07 12:00:58 by malcolmp]
malcolmp
parents: 738
diff changeset
139 ; (add-timeout 0.1 (lambda (obj)
95fee4a1420e [xemacs-hg @ 2004-07-07 12:00:58 by malcolmp]
malcolmp
parents: 738
diff changeset
140 ; (gtk-widget-set-style obj
95fee4a1420e [xemacs-hg @ 2004-07-07 12:00:58 by malcolmp]
malcolmp
parents: 738
diff changeset
141 ; (gtk-widget-get-style
95fee4a1420e [xemacs-hg @ 2004-07-07 12:00:58 by malcolmp]
malcolmp
parents: 738
diff changeset
142 ; (frame-property nil 'text-widget))))
95fee4a1420e [xemacs-hg @ 2004-07-07 12:00:58 by malcolmp]
malcolmp
parents: 738
diff changeset
143 ; widget)
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
144 widget))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
145
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
146 (defun gtk-widget-property-internal ()
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
147 nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
148
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
149 (defun gtk-widget-redisplay-internal ()
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
150 nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
151
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
152 (provide 'widgets-gtk)