# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1144941753 -7200
# Node ID 3d83ccd2965d42ec61c82cad8fdf313032a0d155
# Parent  bc3cd5c94ac44fc12d992e169f04a8e11d85d4e0
*** empty log message ***

diff -r bc3cd5c94ac4 -r 3d83ccd2965d ChangeSetBrowser.st
--- a/ChangeSetBrowser.st	Thu Apr 13 17:21:40 2006 +0200
+++ b/ChangeSetBrowser.st	Thu Apr 13 17:22:33 2006 +0200
@@ -98,420 +98,428 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #label: 'File'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'Compress'
-                  #itemValue: #doCompress
-                  #translateLabel: true
-                  #isVisible: #notEditingClassSourceAndNotReadOnly
+     #(Menu
+        (
+         (MenuItem
+            label: 'File'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Compress'
+                  itemValue: doCompress
+                  translateLabel: true
+                  isVisible: notEditingClassSourceAndNotReadOnly
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Compress for Class'
-                  #itemValue: #doCompressClass
-                  #translateLabel: true
-                  #isVisible: #notEditingClassSourceAndNotReadOnly
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Compress for Class'
+                  itemValue: doCompressClass
+                  translateLabel: true
+                  isVisible: notEditingClassSourceAndNotReadOnly
                 )
-               #(#MenuItem
-                  #label: 'Compare and Compress'
-                  #itemValue: #doCompareAndCompress
-                  #translateLabel: true
-                  #isVisible: #notEditingClassSourceAndNotReadOnly
+               (MenuItem
+                  label: 'Compare and Compress'
+                  itemValue: doCompareAndCompress
+                  translateLabel: true
+                  isVisible: notEditingClassSourceAndNotReadOnly
                 )
-               #(#MenuItem
-                  #label: '-'
-                  #isVisible: #notEditingClassSourceAndNotReadOnly
+               (MenuItem
+                  label: '-'
+                  isVisible: notEditingClassSourceAndNotReadOnly
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Fileout && Delete all Changes for Class'
-                  #itemValue: #doFileoutAndDeleteClassAll
-                  #translateLabel: true
-                  #isVisible: #notEditingClassSourceAndNotReadOnly
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Fileout && Delete all Changes for Class'
+                  itemValue: doFileoutAndDeleteClassAll
+                  translateLabel: true
+                  isVisible: notEditingClassSourceAndNotReadOnly
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'CheckIn && Delete all Changes for Class'
-                  #itemValue: #doCheckinAndDeleteClassAll
-                  #translateLabel: true
-                  #isVisible: #notEditingClassSourceAndNotReadOnly
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'CheckIn && Delete all Changes for Class'
+                  itemValue: doCheckinAndDeleteClassAll
+                  translateLabel: true
+                  isVisible: notEditingClassSourceAndNotReadOnly
                 )
-               #(#MenuItem
-                  #label: '-'
-                  #isVisible: #notEditingClassSourceAndNotReadOnly
+               (MenuItem
+                  label: '-'
+                  isVisible: notEditingClassSourceAndNotReadOnly
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Save in...'
-                  #itemValue: #doSave
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Save in...'
+                  itemValue: doSave
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Save to End in...'
-                  #itemValue: #doSaveRest
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Save to End in...'
+                  itemValue: doSaveRest
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Save for Class to End in...'
-                  #itemValue: #doSaveClassRest
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Save for Class to End in...'
+                  itemValue: doSaveClassRest
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Save All for Class in...'
-                  #itemValue: #doSaveClassAll
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Save All for Class in...'
+                  itemValue: doSaveClassAll
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: 'Saveback ChangeSet'
-                  #itemValue: #doSaveBack
-                  #translateLabel: true
-                  #isVisible: #notReadOnly
+               (MenuItem
+                  label: 'Saveback ChangeSet'
+                  itemValue: doSaveBack
+                  translateLabel: true
+                  isVisible: notReadOnly
                 )
-               #(#MenuItem
-                  #label: '-'
-                  #isVisible: #notReadOnly
+               (MenuItem
+                  label: '-'
+                  isVisible: notReadOnly
                 )
-               #(#MenuItem
-                  #label: 'Update'
-                  #itemValue: #doUpdate
-                  #translateLabel: true
-                  #isVisible: #notReadOnly
+               (MenuItem
+                  label: 'Update'
+                  itemValue: doUpdate
+                  translateLabel: true
+                  isVisible: notReadOnly
                 )
-               #(#MenuItem
-                  #label: '-'
-                  #isVisible: #notReadOnly
+               (MenuItem
+                  label: '-'
+                  isVisible: notReadOnly
                 )
-               #(#MenuItem
-                  #label: 'Exit'
-                  #itemValue: #menuExit
-                  #translateLabel: true
+               (MenuItem
+                  label: 'Exit'
+                  itemValue: menuExit
+                  translateLabel: true
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
-            #label: 'Change'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'Undo (undelete Method)'
-                  #itemValue: #doUndoRemoveMethod
-                  #translateLabel: true
-                  #isVisible: #hasUndoableRemoveMethodChangeSelected
+         (MenuItem
+            label: 'Change'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Undo (undelete Method)'
+                  itemValue: doUndoRemoveMethod
+                  translateLabel: true
+                  isVisible: hasUndoableRemoveMethodChangeSelected
                 )
-               #(#MenuItem
-                  #label: 'Undo (previous Version)'
-                  #itemValue: #doUndoMethodChange
-                  #translateLabel: true
-                  #isVisible: #hasUndoableMethodChangeSelected
+               (MenuItem
+                  label: 'Undo (previous Version)'
+                  itemValue: doUndoMethodChange
+                  translateLabel: true
+                  isVisible: hasUndoableMethodChangeSelected
                 )
-               #(#MenuItem
-                  #enabled: false
-                  #label: 'Undo'
-                  #itemValue: #doUndoMethodChange
-                  #translateLabel: true
-                  #isVisible: #hasNotUndoableChangeSelected
+               (MenuItem
+                  enabled: false
+                  label: 'Undo'
+                  itemValue: doUndoMethodChange
+                  translateLabel: true
+                  isVisible: hasNotUndoableChangeSelected
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Apply'
-                  #itemValue: #doApply
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Apply'
+                  itemValue: doApply
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Apply to End'
-                  #itemValue: #doApplyRest
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Apply to End'
+                  itemValue: doApplyRest
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Apply for Class to End'
-                  #itemValue: #doApplyClassRest
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Apply for Class to End'
+                  itemValue: doApplyClassRest
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasNoSelection
-                  #label: 'Apply All'
-                  #itemValue: #doApplyAll
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasNoSelection
+                  label: 'Apply All'
+                  itemValue: doApplyAll
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Delete'
-                  #itemValue: #doDelete
-                  #translateLabel: true
-                  #isVisible: #notReadOnly
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Delete'
+                  itemValue: doDelete
+                  translateLabel: true
+                  isVisible: notReadOnly
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Delete to End'
-                  #itemValue: #doDeleteRest
-                  #translateLabel: true
-                  #isVisible: #notReadOnly
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Delete to End'
+                  itemValue: doDeleteRest
+                  translateLabel: true
+                  isVisible: notReadOnly
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Delete for Class to End'
-                  #itemValue: #doDeleteClassRest
-                  #translateLabel: true
-                  #isVisible: #notReadOnly
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Delete for Class to End'
+                  itemValue: doDeleteClassRest
+                  translateLabel: true
+                  isVisible: notReadOnly
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Delete for Class from Begin'
-                  #itemValue: #doDeleteClassFromBeginning
-                  #translateLabel: true
-                  #isVisible: #notReadOnly
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Delete for Class from Begin'
+                  itemValue: doDeleteClassFromBeginning
+                  translateLabel: true
+                  isVisible: notReadOnly
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Delete All for Class'
-                  #itemValue: #doDeleteClassAll
-                  #translateLabel: true
-                  #isVisible: #notReadOnly
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Delete All for Class'
+                  itemValue: doDeleteClassAll
+                  translateLabel: true
+                  isVisible: notReadOnly
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Delete All for Class && its Private Classes'
-                  #itemValue: #doDeleteClassAndPrivateClassesAll
-                  #translateLabel: true
-                  #isVisible: #notReadOnly
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Delete All for Class && its Private Classes'
+                  itemValue: doDeleteClassAndPrivateClassesAll
+                  translateLabel: true
+                  isVisible: notReadOnly
                 )
-               #(#MenuItem
-                  #label: '-'
-                  #isVisible: #notReadOnly
+               (MenuItem
+                  label: '-'
+                  isVisible: notReadOnly
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Compare with Current'
-                  #itemValue: #doCompare
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Compare with Current'
+                  itemValue: doCompare
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Browse'
-                  #itemValue: #doBrowse
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Browse'
+                  itemValue: doBrowse
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Make Change a Patch'
-                  #itemValue: #doMakePatch
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Make Change a Patch'
+                  itemValue: doMakePatch
+                  translateLabel: true
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
-            #label: 'Search'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'Class...'
-                  #itemValue: #findClass
-                  #translateLabel: true
+         (MenuItem
+            label: 'Search'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Class...'
+                  itemValue: findClass
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Previous for Class'
-                  #itemValue: #findPreviousForClass
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Previous for Class'
+                  itemValue: findPreviousForClass
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Next for Class'
-                  #itemValue: #findNextForClass
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Next for Class'
+                  itemValue: findNextForClass
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: 'Selector...'
-                  #itemValue: #findSelector
-                  #translateLabel: true
+               (MenuItem
+                  label: 'Selector...'
+                  itemValue: findSelector
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Previous for Selector'
-                  #itemValue: #findPreviousForSelector
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Previous for Selector'
+                  itemValue: findPreviousForSelector
+                  translateLabel: true
+                )
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Next for Selector'
+                  itemValue: findNextForSelector
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Next for Selector'
-                  #itemValue: #findNextForSelector
-                  #translateLabel: true
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: 'String...'
+                  itemValue: findString
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #label: 'String...'
-                  #itemValue: #findString
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Previous with String'
+                  itemValue: findPreviousForString
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Previous with String'
-                  #itemValue: #findPreviousForString
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Next with String'
+                  itemValue: findNextForString
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Next with String'
-                  #itemValue: #findNextForString
-                  #translateLabel: true
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Previous Snapshot'
+                  itemValue: findPreviousSnapshot
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Previous Snapshot'
-                  #itemValue: #findPreviousSnapshot
-                  #translateLabel: true
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Next Snapshot'
+                  itemValue: findNextSnapshot
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #enabled: #hasSelection
-                  #label: 'Next Snapshot'
-                  #itemValue: #findNextSnapshot
-                  #translateLabel: true
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  label: 'Next Difference'
+                  itemValue: findNextDifference
+                  translateLabel: true
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
-            #label: 'Browse'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #enabled: #hasSingleSelection
-                  #label: 'Class'
-                  #itemValue: #doBrowse
-                  #translateLabel: true
+         (MenuItem
+            label: 'Browse'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  enabled: hasSingleSelection
+                  label: 'Class'
+                  itemValue: doBrowse
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: 'Senders...'
-                  #itemValue: #doBrowseSenders
-                  #translateLabel: true
+               (MenuItem
+                  label: 'Senders...'
+                  itemValue: doBrowseSenders
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #label: 'Implementors...'
-                  #itemValue: #doBrowseImplementors
-                  #translateLabel: true
+               (MenuItem
+                  label: 'Implementors...'
+                  itemValue: doBrowseImplementors
+                  translateLabel: true
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
-            #label: 'Settings'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'Auto Compare'
-                  #translateLabel: true
-                  #indication: #autoCompare
+         (MenuItem
+            label: 'Settings'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Auto Compare'
+                  translateLabel: true
+                  indication: autoCompare
                 )
-               #(#MenuItem
-                  #label: 'Auto Update'
-                  #translateLabel: true
-                  #isVisible: #notReadOnly
-                  #indication: #autoUpdate
+               (MenuItem
+                  label: 'Auto Update'
+                  translateLabel: true
+                  isVisible: notReadOnly
+                  indication: autoUpdate
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: 'Add Applies to ChangeSet...'
-                  #translateLabel: true
-                  #indication: #updateChangeSet
+               (MenuItem
+                  label: 'Add Applies to ChangeSet...'
+                  translateLabel: true
+                  indication: updateChangeSet
                 )
-               #(#MenuItem
-                  #label: 'Apply in Original NameSpace'
-                  #translateLabel: true
-                  #indication: #applyInOriginalNameSpace
+               (MenuItem
+                  label: 'Apply in Original NameSpace'
+                  translateLabel: true
+                  indication: applyInOriginalNameSpace
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: 'Apply into Package...'
-                  #itemValue: #setEnforcedPackage
-                  #translateLabel: true
+               (MenuItem
+                  label: 'Apply into Package...'
+                  itemValue: setEnforcedPackage
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #label: 'Apply in NameSpace...'
-                  #itemValue: #setEnforcedNameSpace
-                  #translateLabel: true
+               (MenuItem
+                  label: 'Apply in NameSpace...'
+                  itemValue: setEnforcedNameSpace
+                  translateLabel: true
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
-            #label: 'Help'
-            #translateLabel: true
-            #startGroup: #right
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'ChangesBrowser Documentation'
-                  #itemValue: #openHTMLDocument:
-                  #translateLabel: true
-                  #argument: 'tools/cbrowser/TOP.html'
+         (MenuItem
+            label: 'Help'
+            translateLabel: true
+            startGroup: right
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'ChangesBrowser Documentation'
+                  itemValue: openHTMLDocument:
+                  translateLabel: true
+                  argument: 'tools/cbrowser/TOP.html'
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: 'About ChangesBrowser...'
-                  #itemValue: #openAboutThisApplication
-                  #translateLabel: true
+               (MenuItem
+                  label: 'About ChangesBrowser...'
+                  itemValue: openAboutThisApplication
+                  translateLabel: true
                 )
                )
               nil
@@ -993,5 +1001,5 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.44 2006-04-03 07:53:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.45 2006-04-13 15:22:33 cg Exp $'
 ! !