@@ -171,19 +171,19 @@
 		       (lambda (x)
 			 (refreshdat)
 			 (if *exit-started*
 			     (set! *exit-started* 'ok))))))
 
-(define (main-window setuptab fsltab collateraltab toolstab)
-  (iup:show
-   (iup:dialog #:title "FSL Power Window" #:size "290x190" ; #:expand "YES"
-               (let ((tabtop (iup:tabs setuptab collateraltab fsltab toolstab)))
-                 (iup:attribute-set! tabtop "TABTITLE0" "Setup") 
-                 (iup:attribute-set! tabtop "TABTITLE1" "Collateral")
-                 (iup:attribute-set! tabtop "TABTITLE2" "Fossil")
-                 (iup:attribute-set! tabtop "TABTITLE3" "Tools")
-                 tabtop))))
+;; (define (main-window setuptab fsltab collateraltab toolstab)
+;;   (iup:show
+;;    (iup:dialog #:title "FSL Power Window" #:size "290x190" ; #:expand "YES"
+;;                (let ((tabtop (iup:tabs setuptab collateraltab fsltab toolstab)))
+;;                  (iup:attribute-set! tabtop "TABTITLE0" "Setup") 
+;;                  (iup:attribute-set! tabtop "TABTITLE1" "Collateral")
+;;                  (iup:attribute-set! tabtop "TABTITLE2" "Fossil")
+;;                  (iup:attribute-set! tabtop "TABTITLE3" "Tools")
+;;                  tabtop))))
 
 ;; BUG: Remember to re-instate this!!!!
 ;; (on-exit (lambda ()
 ;; 	   (let ((tdb (tasks:open-db)))
 ;; 	     ;; (print "On-exit called")