NewLauncher.st
changeset 5466 6156bad27291
parent 5407 fb411d1eb989
child 5467 92ebb42b49b0
--- a/NewLauncher.st	Fri Jan 30 00:48:56 2004 +0100
+++ b/NewLauncher.st	Fri Jan 30 09:53:02 2004 +0100
@@ -712,45 +712,43 @@
     <resource: #canvas>
 
     ^ 
-     #(#FullSpec
-        #name: #windowSpec
-        #window: 
-       #(#WindowSpec
-          #label: 'Launcher'
-          #name: 'Launcher'
-          #min: #(#Point 374 44)
-          #bounds: #(#Rectangle 13 23 304 225)
-          #menu: #menu
-          #icon: #windowIcon
+     #(FullSpec
+        name: windowSpec
+        window: 
+       (WindowSpec
+          label: 'Launcher'
+          name: 'Launcher'
+          min: (Point 374 44)
+          bounds: (Rectangle 13 23 304 225)
+          menu: menu
+          icon: windowIcon
         )
-        #component: 
-       #(#SpecCollection
-          #collection: #(
-           #(#MenuPanelSpec
-              #name: 'menuToolbarView'
-              #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 38 0)
-              #menu: #menuToolbar
-              #style: #(#FontDescription #helvetica #medium #roman 10)
+        component: 
+       (SpecCollection
+          collection: (
+           (MenuPanelSpec
+              name: 'menuToolbarView'
+              layout: (LayoutFrame 0 0.0 0 0 0 1.0 38 0)
+              style: (FontDescription times normal roman 18)
+              menu: menuToolbar
             )
-           #(#WorkspaceSpec
-              #name: 'transcriptView'
-              #layout: #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -26 1.0)
-              #hasHorizontalScrollBar: true
-              #hasVerticalScrollBar: true
-              #miniScrollerHorizontal: true
+           (WorkspaceSpec
+              name: 'transcriptView'
+              layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 -26 1.0)
+              hasHorizontalScrollBar: true
+              hasVerticalScrollBar: true
+              miniScrollerHorizontal: true
             )
-           #(#UISubSpecification
-              #name: 'infoBarSubSpec'
-              #layout: #(#LayoutFrame 0 0.0 -26 1 0 1.0 0 1.0)
-              #majorKey: #ToolApplicationModel
-              #minorKey: #windowSpecForInfoBarWithClock
+           (UISubSpecification
+              name: 'infoBarSubSpec'
+              layout: (LayoutFrame 0 0.0 -26 1 0 1.0 0 1.0)
+              majorKey: ToolApplicationModel
+              minorKey: windowSpecForInfoBarWithClock
             )
            )
          
         )
       )
-
-    "Modified: / 15.11.2001 / 22:42:53 / cg"
 !
 
 windowSpec_pda
@@ -4293,5 +4291,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.302 2003-12-19 12:30:37 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.303 2004-01-30 08:53:02 ca Exp $'
 ! !