anchor.diff:  ;; License along with this library; if not, write to the Free Software
   ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   
  -;; $Id: testgtk.lisp,v 1.9 2004-12-05 00:06:41 espen Exp $
  +;; $Id: testgtk.lisp,v 1.10 2004-12-05 13:57:10 espen Exp $
   
   
   ;;; Some of the code in this file are really outdatet, but it is
  
positive.code: 
  ;;; Tooltips test
  
  ;; (define-standard-dialog create-tooltips "Tooltips"
  ;;   (setf
  ;;    (window-allow-grow-p window) t
  ;;    (window-allow-shrink-p window) nil
  ;;    (window-auto-shrink-p window) t
  ;;    (widget-width window) 200
  ;;    (container-border-width main-box) 10
  ;;    (box-spacing main-box) 10)
  
  ;;   (let ((tooltips (tooltips-new)))
  ;;     (flet ((create-button (label tip-text tip-private)
  ;; 	     (let ((button (make-instance 'toggle-button
  ;; 		    :label label :parent main-box)))
  ;; 	       (tooltips-set-tip tooltips button tip-text tip-private)
  ;; 	       button)))
  ;;       (create-button "button1" "This is button 1" "ContextHelp/button/1")
  ;;       (create-button "button2" "This is button 2. This is also a really long tooltip which probably won't fit on a single line and will therefore need to be wrapped. Hopefully the wrapping will work correctly." "ContextHelp/button/2")
  
  ;;       (let* ((toggle (create-button "Override TipSQuery Label"
  ;; 				    "Toggle TipsQuery view" "Hi msw! ;)"))
  ;; 	     (box (make-instance 'v-box
  ;; 		   :homogeneous nil :spacing 5 :border-width 5
  ;; 		   :parent (make-instance 'frame
  ;; 	                    :label "ToolTips Inspector"
  ;; 			    :label-xalign 0.5 :border-width 0
  ;; 			    :parent main-box)))
  ;; 	     (button (make-instance 'button :label "[?]" :parent box))
  ;; 	     (tips-query (make-instance 'tips-query
  ;; 			  :caller button :parent box)))
  
  ;; 	(signal-connect
  ;; 	 button 'clicked #'tips-query-start-query :object tips-query)
  	
  ;; 	(signal-connect
  ;; 	 tips-query 'widget-entered
  ;; 	 #'(lambda (widget tip-text tip-private)
  ;; 	     (declare (ignore widget tip-private))
  ;; 	     (when (toggle-button-active-p toggle)
  ;; 	       (setf
  ;; 		(label-label tips-query)
  ;; 		(if tip-text
  ;; 		    "There is a Tip!"
  ;; 		  "There is no Tip!"))
  ;; 	       (signal-emit-stop tips-query 'widget-entered))))
  	
  ;; 	(signal-connect
  ;; 	 tips-query 'widget-selected
  ;; 	 #'(lambda (widget tip-text tip-private event)
  ;; 	     (declare (ignore tip-text event))
  ;; 	     (when widget
  ;; 	       (format
  ;; 		t "Help ~S requested for ~S~%"
  ;; 		(or tip-private "None") (type-of widget)))
  ;; 	     t))
  
  ;; 	(tooltips-set-tip
  ;; 	 tooltips button "Start the Tooltip Inspector" "ContextHelp/buttons/?")
  ;; 	(tooltips-set-tip
  ;; 	 tooltips close-button "Push this button to close window"
  ;; 	 "ContextHelp/buttons/Close")))))
  
  
  ;;; UI Manager
  
negative.code: ;; 	    ("shapes" create-shapes)
   	    ("spinbutton" create-spins)
   	    ("statusbar" create-statusbar)
   	    ("test idle" create-idle-test)
  ;; 	    ("test mainloop")
  ;; 	    ("test scrolling")
  ;; 	    ("test selection")
   	    ("test timeout" create-timeout-test)
   	    ("text" create-text)
   	    ("toggle buttons" create-toggle-buttons)
   	    ("toolbar" create-toolbar)
   	    ("tooltips" create-tooltips)
  ;; 	    ("tree" #|create-tree|#)
  	    ("UI manager" create-ui-manager)
  ))
  