anchor.diff:  ;; 	   (when timer
   ;; 	     (timeout-remove timer)
   ;; 	     (setq timer nil))))))))
  -  
  +
  +
  +;;; Text
  +
  +(define-simple-dialog create-text (dialog "Text" :default-width 400
  +					         :default-height 400)
  +  (make-instance 'text-view :border-width 10  :parent dialog :visible t))  
   
   ;;; Toggle buttons
   
  
positive.code: ;; 	(tooltips-set-tip
  ;; 	 tooltips close-button "Push this button to close window"
  ;; 	 "ContextHelp/buttons/Close")))))
  		  
  
  
  
negative.code: ;; 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.8 2004-12-04 18:41:31 espen Exp $
  
  
  ;;; Some of the code in this file are really outdatet, but it is
  