class: TerminalApplication
authorClaus Gittinger <cg@exept.de>
Fri, 14 Feb 2014 11:21:59 +0100
changeset 13939 c34a17c85f6c
parent 13938 36bb57e60766
child 13940 352ed7a67f83
class: TerminalApplication changed: #mainMenu #windowSpec tabs get a destroy button
TerminalApplication.st
--- 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 $'
 ! !