--- 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 $'
! !