--- a/FileApplicationNoteBook.st	Tue Mar 27 10:55:37 2007 +0200
+++ b/FileApplicationNoteBook.st	Tue Mar 27 11:13:13 2007 +0200
@@ -258,7 +258,7 @@
             label: '-'
           )
          (MenuItem
-            label: 'Rename Tab'
+            label: 'Rename Tab...'
             itemValue: doRenameTab
             translateLabel: true
           )
@@ -266,19 +266,19 @@
             label: '-'
           )
          (MenuItem
-            label: 'Close'
+            label: 'Close Tab'
             itemValue: doCloseApplication
             translateLabel: true
           )
          (MenuItem
             enabled: closeAllApplicationsEnabled
-            label: 'Close All...'
+            label: 'Close all Tabs'
             itemValue: doCloseAllApplications
             translateLabel: true
           )
          (MenuItem
             enabled: closeAllApplicationsEnabled
-            label: 'Close All But This Tab...'
+            label: 'Close all but this Tab'
             itemValue: doCloseAllOtherApplications
             translateLabel: true
           )
@@ -286,6 +286,8 @@
         nil
         nil
       )
+
+    "Modified: / 27-03-2007 / 11:13:52 / cg"
 ! !
 
 !FileApplicationNoteBook methodsFor:'accessing'!
@@ -1018,15 +1020,14 @@
 !FileApplicationNoteBook methodsFor:'menu & actions'!
 
 tabMenuAt:aTab
-
     |menu|
 
-    menu :=  Menu new fromLiteralArrayEncoding:self class tabMenu.
-    menu isNil ifTrue:[ ^ nil ].
+    menu :=  Menu decodeFromLiteralArray:self class tabMenu.
     tabMenuIndex := aTab.
-    "/ self currentTabMenusApplication fileName
-    menu receiver:self.
+    menu findGuiResourcesIn:self.
     ^ menu
+
+    "Modified: / 27-03-2007 / 10:57:25 / cg"
 ! !
 
 !FileApplicationNoteBook methodsFor:'queries'!
@@ -1734,10 +1735,12 @@
     columnDescriptors    := OrderedCollection new.
 
     aListOfColumns keysAndValuesDo:[:anIndex :aDesc| |col|
-        col := aDesc isSequenceable ifTrue:[DataSetColumnSpec new fromLiteralArrayEncoding:aDesc]
+        col := aDesc isSequenceable ifTrue:[DataSetColumnSpec decodeFromLiteralArray:aDesc]
                                    ifFalse:[aDesc].
         columnDescriptors add:col.
     ].
+
+    "Modified: / 27-03-2007 / 08:46:06 / cg"
 !
 
 item:anItem
@@ -2054,7 +2057,7 @@
     allColumns := OrderedCollection new.
     newColumns := OrderedCollection new.
     self class tableColumns do:[:el|
-        allColumns add:(DataSetColumnSpec new fromLiteralArrayEncoding:el).
+        allColumns add:(DataSetColumnSpec decodeFromLiteralArray:el).
     ].
     iconColumn := allColumns detect:[: col | (col readSelector asSymbol) = #icon] ifNone:[nil].
     iconColumn notNil ifTrue:[
@@ -2067,6 +2070,8 @@
     ].
     self tableColumns value:newColumns.
     self columnDescriptors:(self tableColumns value).
+
+    "Modified: / 27-03-2007 / 08:46:03 / cg"
 !
 
 stopProcess
@@ -5646,5 +5651,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.213 2007-03-02 14:38:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.214 2007-03-27 09:13:13 cg Exp $'
 ! !