WorkspaceApplication.st
changeset 6457 2d1e054e1f15
parent 6425 a88acd959059
child 6508 ec11a54c72ee
--- a/WorkspaceApplication.st	Tue Dec 27 17:26:02 2005 +0100
+++ b/WorkspaceApplication.st	Tue Dec 27 17:26:52 2005 +0100
@@ -62,31 +62,31 @@
     <resource: #canvas>
 
     ^ 
-     #(#FullSpec
-        #name: #windowSpec
-        #window: 
-       #(#WindowSpec
-          #label: 'Workspace'
-          #name: 'Workspace'
-          #min: #(#Point 10 10)
-          #bounds: #(#Rectangle 13 23 445 264)
-          #menu: #mainMenu
+     #(FullSpec
+        name: windowSpec
+        window: 
+       (WindowSpec
+          label: 'Workspace'
+          name: 'Workspace'
+          min: (Point 10 10)
+          bounds: (Rectangle 0 0 432 241)
+          menu: mainMenu
         )
-        #component: 
-       #(#SpecCollection
-          #collection: #(
-           #(#NoteBookViewSpec
-              #name: 'NoteBook1'
-              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-              #model: #selectedWorkspaceIndexHolder
-              #menu: #tabList
-              #useIndex: true
-              #accessTabMenuAction: #tabMenuAt:
-              #canvas: #workspaceHolder
-              #canvasInset: 0
-              #canvasFrameLevel: 0
-              #keepCanvasAlive: true
-              #tabLevel: 1
+        component: 
+       (SpecCollection
+          collection: (
+           (NoteBookViewSpec
+              name: 'NoteBook1'
+              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+              model: selectedWorkspaceIndexHolder
+              menu: tabList
+              useIndex: true
+              accessTabMenuAction: tabMenuAt:
+              destroyTabAction: destroyTab:
+              canvas: workspaceHolder
+              canvasInset: 0
+              keepCanvasAlive: true
+              tabLevel: 1
             )
            )
          
@@ -1489,5 +1489,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.108 2005-11-25 11:17:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.109 2005-12-27 16:26:52 cg Exp $'
 ! !