anchor.diff:         :child-args '(:expand nil)
          :child (make-instance 'label :label "Notebook Style: ")
          :child (let ((scrollable-p nil)) 
  -		;; option menu is deprecated, we should use combo-box
   		(make-instance 'combo-box
   		 :content '("Standard" "No tabs" "Scrollable") :active 0
   		 :signal (list 'changed
  
positive.code: 		       :signal (list 'clicked #'widget-destroy 
  				     :object main-window)))) 
  
      (setf (window-icon main-window) #p"clg:examples;gtk.png")
  
      ;; Main box
      (make-instance 'v-box
  
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.14 2004-12-29 21:21:31 espen Exp $
  
  
  ;;; Some of the code in this file are really outdatet, but it is
  