--- a/ToolApplicationModel.st	Mon May 13 16:23:44 2019 +0200
+++ b/ToolApplicationModel.st	Tue May 14 09:46:14 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -438,7 +436,7 @@
     ^ 
     #(FullSpec
        name: windowSpecForCommit
-       uuid: '443e7e20-c5a3-11e7-82f7-c42c033b4871'
+       uuid: 'eb8ebdbe-761b-11e9-98ea-b8f6b1108e05'
        window: 
       (WindowSpec
          label: 'Commit Buttons'
@@ -456,9 +454,9 @@
              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
              uuid: '443e8d2a-c5a3-11e7-82f7-c42c033b4871'
              horizontalLayout: fitSpace
-             verticalLayout: centerMax
-             horizontalSpace: 3
-             verticalSpace: 3
+             verticalLayout: center
+             horizontalSpace: 2
+             verticalSpace: 1
              reverseOrderIfOKAtLeft: true
              component: 
             (SpecCollection
@@ -472,7 +470,7 @@
                    tabable: true
                    model: cancel
                    enableChannel: enablingCommitButtonsHolder
-                   useDefaultExtent: true
+                   extent: (Point 146 30)
                  )
                 (ActionButtonSpec
                    label: 'OK'
@@ -483,7 +481,7 @@
                    tabable: true
                    model: accept
                    enableChannel: enablingCommitButtonsHolder
-                   useDefaultExtent: true
+                   extent: (Point 147 30)
                  )
                 )
               
@@ -736,6 +734,7 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
      MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuHelp
      (Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuHelp)) startUp
@@ -743,43 +742,43 @@
 
     <resource: #menu>
 
-    ^
-     
-       #(#Menu
-          
-           #(
-             #(#MenuItem
-                #label: 'Documentation'
-                #translateLabel: true
-                #value: #openDocumentation
-                #activeHelpKey: #helpTutorial
-                #enabled: #havingDocumentationHolder
-            )
-             #(#MenuItem
-                #label: '-'
-                #isVisible: false
-            )
-             #(#MenuItem
-                #label: 'Show Help Texts'
-                #translateLabel: true
-                #activeHelpKey: #helpShowHelp
-                #indication: #showingHelp:
-                #isVisible: false
-            )
-                       #(#MenuItem
-                          #label: '-'
-                      )
-                       #(#MenuItem
-                          #label: 'About this Application...'
-                          #translateLabel: true
-                          #value: #openAboutThisApplication
-                          #activeHelpKey: #aboutThisAppliaction
-                      )
-          ) nil
-          nil
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            activeHelpKey: helpTutorial
+            enabled: havingDocumentationHolder
+            label: 'Documentation'
+            itemValue: openDocumentation
+          )
+         (MenuItem
+            label: '-'
+            isVisible: false
+          )
+         (MenuItem
+            activeHelpKey: helpShowHelp
+            label: 'Show Help Texts'
+            isVisible: false
+            indication: showingHelp:
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            activeHelpKey: aboutThisAppliaction
+            label: 'About this Application...'
+            itemValue: openAboutThisApplication
+          )
+         (MenuItem
+            activeHelpKey: aboutSTX
+            label: 'About Smalltalk/X...'
+            itemValue: openAbout
+            isVisible: false
+          )
+         )
+        nil
+        nil
       )
-
-    "Modified: / 16-02-2017 / 02:04:20 / cg"
 !
 
 xxxmenuFont
@@ -1635,7 +1634,7 @@
 !ToolApplicationModel::HistoryEntryForMethod methodsFor:'printing'!
 
 printStringInMenu
-    ^ methodClass name , ' » ' , (methodSelector?'?')
+    ^ methodClass name , ' » ' , (methodSelector?'?')
 
     "Modified: / 11-07-2006 / 13:53:40 / fm"
 ! !