(in-package :user)

;;; These demos work:
;;; Labels/Buttons: labels, checkbuttons (not 'see variables), radiobuttons, 15-puzzle
;;; Listboxes: all
;;; Entries: all
;;; Text: all but search
;;; Scrollbars: vertical
;;; Scales: both
;;; Canvases: Item types (comes up small), Plot, Text (no editing), Ruler
;;;           (the canvas items are the ones most probably showing problems)
;;; Menus: all but info on 
;;; Misc: local/global grab
;;;
;;; expect a few warnings from CMU, the code contains lots of undefined global variables

#+cmu
(progn
  (setf (ext:search-list "tkdemo:") '("/usr/src/tk/demo/"))

;missing: mkButton, mkIcon, mkArrow

  (load "tkdemo:mkBasic.lisp")
  (load "tkdemo:mkCanvText.lisp")
  (load "tkdemo:mkEntry.lisp")
  (load "tkdemo:mkEntry2.lisp")
  (load "tkdemo:mkForm.lisp")
  (load "tkdemo:mkHScale.lisp")
  (load "tkdemo:mkItems.lisp")
  (load "tkdemo:mkLabel.lisp")
  (load "tkdemo:mkListbox.lisp")
  (load "tkdemo:mkPlot.lisp")
  (load "tkdemo:mkRadio.lisp")
  (load "tkdemo:mkRuler.lisp")
  (load "tkdemo:mkSearch.lisp") ;uses si:
  (load "tkdemo:mkStyles.lisp")
  (load "tkdemo:mkTextBind.lisp")
  (load "tkdemo:mkVScale.lisp")
  (load "tkdemo:mkdialog.lisp")
  (load "tkdemo:nqthm-stack.lisp")
  (load "tkdemo:showVars.lisp")
  (load "tkdemo:gc-monitor")
  (load "tkdemo:widget.lisp")
)  
;;problems : geometry, xscroll

#+allegro
(progn 
;missing: mkButton, mkIcon, mkArrow
  (excl:chdir "/home/thorsten/tmp/gcl-2.2/gcl-tk/demos/")
  
  (load "mkBasic.lisp")
  (load "mkCanvText.lisp")
  (load "mkEntry.lisp")
  (load "mkEntry2.lisp")
  (load "mkForm.lisp")
  (load "mkHScale.lisp")
  (load "mkItems.lisp")
  (load "mkLabel.lisp")
  (load "mkListbox.lisp")
  (load "mkPlot.lisp")
  (load "mkRadio.lisp")
  (load "mkRuler.lisp")
  (load "mkSearch.lisp") ;uses si:
  (load "mkStyles.lisp")
  (load "mkTextBind.lisp")
  (load "mkVScale.lisp")
  (load "mkdialog.lisp")
  (load "nqthm-stack.lisp")
  (load "showVars.lisp")
  (load "widget.lisp")
)





