Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/widgets-gtk.el	Wed Jul 07 01:52:17 2004 +0000
+++ b/lisp/widgets-gtk.el	Wed Jul 07 12:01:07 2004 +0000
@@ -90,11 +90,11 @@
 (defun gtk-widget-instantiate-notebook-internal (plist instance)
   (let ((widget (gtk-notebook-new))
 	(items (plist-get plist :items)))
-    (while items
-      (gtk-notebook-append-page widget
-				(gtk-vbox-new nil 3)
-				(gtk-label-new (aref (car items) 0)))
-      (setq items (cdr items)))
+;    (while items
+;      (gtk-notebook-append-page widget
+;				(gtk-vbox-new nil 3)
+;				(gtk-label-new (aref (car items) 0)))
+;      (setq items (cdr items)))
     widget))
 
 (defun gtk-widget-instantiate-progress-internal (plist instance)
@@ -135,11 +135,11 @@
 	 (plist (cdr (map 'list 'identity instantiator)))
 	 (widget (funcall (or (get type 'instantiator) 'ignore)
 			  plist instance)))
-    (add-timeout 0.1 (lambda (obj)
-		       (gtk-widget-set-style obj
-					     (gtk-widget-get-style
-					      (frame-property nil 'text-widget))))
-		 widget)
+;    (add-timeout 0.1 (lambda (obj)
+;		       (gtk-widget-set-style obj
+;					     (gtk-widget-get-style
+;					      (frame-property nil 'text-widget))))
+;		 widget)
     widget))
 
 (defun gtk-widget-property-internal ()