Mercurial > hg > xemacs-beta

comparison lisp/widgets-gtk.el @ 2168:95fee4a1420e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-07-07 12:00:58 by malcolmp] Working GK tab_control widget. Other GTK widgets drawn with the correct location and size.
author malcolmp
date Wed, 07 Jul 2004 12:01:07 +0000
parents 5039859429c5
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2167:54e1ecdc5778 2168:95fee4a1420e
88 widget)) 88 widget))
89 89
90 (defun gtk-widget-instantiate-notebook-internal (plist instance) 90 (defun gtk-widget-instantiate-notebook-internal (plist instance)
91 (let ((widget (gtk-notebook-new)) 91 (let ((widget (gtk-notebook-new))
92 (items (plist-get plist :items))) 92 (items (plist-get plist :items)))
93 (while items 93 ; (while items
94 (gtk-notebook-append-page widget 94 ; (gtk-notebook-append-page widget
95 (gtk-vbox-new nil 3) 95 ; (gtk-vbox-new nil 3)
96 (gtk-label-new (aref (car items) 0))) 96 ; (gtk-label-new (aref (car items) 0)))
97 (setq items (cdr items))) 97 ; (setq items (cdr items)))
98 widget)) 98 widget))
99 99
100 (defun gtk-widget-instantiate-progress-internal (plist instance) 100 (defun gtk-widget-instantiate-progress-internal (plist instance)
101 (let* ((adj (gtk-adjustment-new 0.0 0.0 100.0 1.0 5.0 5.0)) 101 (let* ((adj (gtk-adjustment-new 0.0 0.0 100.0 1.0 5.0 5.0))
102 (widget (gtk-progress-bar-new-with-adjustment adj))) 102 (widget (gtk-progress-bar-new-with-adjustment adj)))
133 "The lisp side of widget/glyph instantiation code." 133 "The lisp side of widget/glyph instantiation code."
134 (let* ((type (aref instantiator 0)) 134 (let* ((type (aref instantiator 0))
135 (plist (cdr (map 'list 'identity instantiator))) 135 (plist (cdr (map 'list 'identity instantiator)))
136 (widget (funcall (or (get type 'instantiator) 'ignore) 136 (widget (funcall (or (get type 'instantiator) 'ignore)
137 plist instance))) 137 plist instance)))
138 (add-timeout 0.1 (lambda (obj) 138 ; (add-timeout 0.1 (lambda (obj)
139 (gtk-widget-set-style obj 139 ; (gtk-widget-set-style obj
140 (gtk-widget-get-style 140 ; (gtk-widget-get-style
141 (frame-property nil 'text-widget)))) 141 ; (frame-property nil 'text-widget))))
142 widget) 142 ; widget)
143 widget)) 143 widget))
144 144
145 (defun gtk-widget-property-internal () 145 (defun gtk-widget-property-internal ()
146 nil) 146 nil)
147 147