class: TerminalApplication
changed:
#mainMenu
#windowSpec
tabs get a destroy button
--- a/TerminalApplication.st Fri Feb 14 01:24:48 2014 +0100
+++ b/TerminalApplication.st Fri Feb 14 11:21:59 2014 +0100
@@ -61,36 +61,36 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'Terminal'
- #name: 'Terminal'
- #min: #(#Point 10 10)
- #bounds: #(#Rectangle 13 23 445 264)
- #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
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Terminal'
+ name: 'Terminal'
+ 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:
+ destroyTabAction: removeWorkspace:
+ canvas: workspaceHolder
+ canvasInset: 0
+ keepCanvasAlive: true
+ tabLevel: 1
)
-
- )
- )
+ )
+
+ )
+ )
! !
!TerminalApplication class methodsFor:'menu specs'!
@@ -154,6 +154,33 @@
)
)
(MenuItem
+ label: 'Buffers'
+ nameKey: Buffer
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Add Buffer'
+ itemValue: addWorkspace
+ )
+ (MenuItem
+ label: 'Rename...'
+ itemValue: renameWorkspace
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: canRemoveWorkspace
+ label: 'Remove Buffer'
+ itemValue: removeWorkspace
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
label: 'View'
submenu:
(Menu
@@ -187,33 +214,6 @@
)
)
(MenuItem
- label: 'Buffers'
- nameKey: Buffer
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Add Buffer'
- itemValue: addWorkspace
- )
- (MenuItem
- label: 'Rename...'
- itemValue: renameWorkspace
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: canRemoveWorkspace
- label: 'Remove Buffer'
- itemValue: removeWorkspace
- )
- )
- nil
- nil
- )
- )
- (MenuItem
label: 'Edit'
submenu:
(Menu
@@ -301,8 +301,6 @@
nil
nil
)
-
- "Modified: / 30-07-2013 / 11:01:18 / cg"
!
tabMenu
@@ -595,10 +593,10 @@
!TerminalApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.21 2014-02-06 02:03:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.22 2014-02-14 10:21:59 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.21 2014-02-06 02:03:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.22 2014-02-14 10:21:59 cg Exp $'
! !