--- a/Tools__ChangeSetBrowser2.st Fri Mar 22 09:22:38 2013 +0000
+++ b/Tools__ChangeSetBrowser2.st Wed Mar 27 12:24:47 2013 +0000
@@ -89,9 +89,9 @@
compatibility with other tools"
^aStringOrChangeSet isString ifTrue:[
- self onFile: aStringOrChangeSet
+ self onFile: aStringOrChangeSet
] ifFalse:[
- self on: aStringOrChangeSet label: aStringOrChangeSet name
+ self on: aStringOrChangeSet label: aStringOrChangeSet name
]
"Modified: / 21-05-2012 / 13:55:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -1418,192 +1418,192 @@
^
#(Menu
- (
- (MenuItem
- label: 'File'
- submenu:
- (Menu
- (
- (MenuItem
- label: 'New'
- submenu:
- (Menu
- (
- (MenuItem
- activeHelpKey: fileNew
- label: 'New Changeset'
- itemValue: doOpenNew
- )
- (MenuItem
- label: 'New Window'
- itemValue: doOpenNewWindow
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- activeHelpKey: fileOpenSelection
- enabled: isWorkingNotHolder
- label: 'Spawn Browser on Selection'
- itemValue: doOpenOnSelection
- isVisible: allowOpenHolder
- )
- (MenuItem
- activeHelpKey: fileOpenSelection
- enabled: isWorkingNotHolder
- label: 'Spawn on Selection'
- itemValue: doOpenOnSelection
- isVisible: allowOpenHolder
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- activeHelpKey: fileLoad
- enabled: isWorkingNotHolder
- label: 'Open...'
- itemValue: doOpen
- isVisible: allowOpenHolder
- shortcutKey: Ctrlo
- )
- (MenuItem
- activeHelpKey: fileOpenCurrent
- enabled: isWorkingNotHolder
- label: 'Open Current'
- itemValue: doOpenCurrent
- isVisible: allowOpenHolder
- )
- (MenuItem
- activeHelpKey: fileOpenCurrent
- enabled: isWorkingNotHolder
- label: 'Open Cypress Package'
- itemValue: doOpenCypress
- isVisible: allowOpenHolderAndCypressPresent
- )
- (MenuItem
- activeHelpKey: fileSaveAs
- enabled: isWorkingNotHolder
- label: 'Save'
- itemValue: doSave
- )
- (MenuItem
- enabled: isWorkingNotHolder
- label: 'Save As...'
- itemValue: doSaveAs
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Exit'
- itemValue: closeRequest
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- enabled: isWorkingNotHolder
- label: 'Changes'
- isVisible: isTwoColumnHolderNot
- submenuChannel: list1MenuHolder
- )
- (MenuItem
- enabled: isWorkingNotHolder
- label: 'Left'
- isVisible: isTwoColumnHolder
- submenuChannel: list1MenuHolder
- )
- (MenuItem
- enabled: isWorkingNotHolder
- label: 'Right'
- isVisible: isTwoColumnHolder
- submenuChannel: list2MenuHolder
- )
- (MenuItem
- label: 'View'
- submenu:
- (Menu
- (
- (MenuItem
- label: 'List'
- choice: navigatorSpecHolder
- choiceValue: oneColumnNavigatorSpec
- )
- (MenuItem
- label: 'Hierarchical List'
- choice: navigatorSpecHolder
- choiceValue: hierarchicalNavigatorSpec
- )
- (MenuItem
- label: 'Browser Like'
- choice: navigatorSpecHolder
- choiceValue: twoColumnNavigatorSpec
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Show Deleted'
- indication: showRemovedAspect
- )
- (MenuItem
- label: 'Show Same'
- indication: showSameAspect
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Show Filter'
- indication: showFilterHolder
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Show Timestamp'
- indication: showTimestampHolder
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- label: 'Loading'
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Set Target Package...'
- itemValue: setTargetPackage
- )
- (MenuItem
- label: 'Set Target Namespace...'
- itemValue: setTargetNamespace
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Update Changefile'
- indication: updateChangeFileHolder
- )
- )
- nil
- nil
- )
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: 'File'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'New'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: fileNew
+ label: 'New Changeset'
+ itemValue: doOpenNew
+ )
+ (MenuItem
+ label: 'New Window'
+ itemValue: doOpenNewWindow
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: fileOpenSelection
+ enabled: isWorkingNotHolder
+ label: 'Spawn Browser on Selection'
+ itemValue: doOpenOnSelection
+ isVisible: allowOpenHolder
+ )
+ (MenuItem
+ activeHelpKey: fileOpenSelection
+ enabled: isWorkingNotHolder
+ label: 'Spawn on Selection'
+ itemValue: doOpenOnSelection
+ isVisible: allowOpenHolder
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: fileLoad
+ enabled: isWorkingNotHolder
+ label: 'Open...'
+ itemValue: doOpen
+ isVisible: allowOpenHolder
+ shortcutKey: Ctrlo
+ )
+ (MenuItem
+ activeHelpKey: fileOpenCurrent
+ enabled: isWorkingNotHolder
+ label: 'Open Current'
+ itemValue: doOpenCurrent
+ isVisible: allowOpenHolder
+ )
+ (MenuItem
+ activeHelpKey: fileOpenCurrent
+ enabled: isWorkingNotHolder
+ label: 'Open Cypress Package'
+ itemValue: doOpenCypress
+ isVisible: allowOpenHolderAndCypressPresent
+ )
+ (MenuItem
+ activeHelpKey: fileSaveAs
+ enabled: isWorkingNotHolder
+ label: 'Save'
+ itemValue: doSave
+ )
+ (MenuItem
+ enabled: isWorkingNotHolder
+ label: 'Save As...'
+ itemValue: doSaveAs
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Exit'
+ itemValue: closeRequest
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ enabled: isWorkingNotHolder
+ label: 'Changes'
+ isVisible: isTwoColumnHolderNot
+ submenuChannel: list1MenuHolder
+ )
+ (MenuItem
+ enabled: isWorkingNotHolder
+ label: 'Left'
+ isVisible: isTwoColumnHolder
+ submenuChannel: list1MenuHolder
+ )
+ (MenuItem
+ enabled: isWorkingNotHolder
+ label: 'Right'
+ isVisible: isTwoColumnHolder
+ submenuChannel: list2MenuHolder
+ )
+ (MenuItem
+ label: 'View'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'List'
+ choice: navigatorSpecHolder
+ choiceValue: oneColumnNavigatorSpec
+ )
+ (MenuItem
+ label: 'Hierarchical List'
+ choice: navigatorSpecHolder
+ choiceValue: hierarchicalNavigatorSpec
+ )
+ (MenuItem
+ label: 'Browser Like'
+ choice: navigatorSpecHolder
+ choiceValue: twoColumnNavigatorSpec
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Show Deleted'
+ indication: showRemovedAspect
+ )
+ (MenuItem
+ label: 'Show Same'
+ indication: showSameAspect
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Show Filter'
+ indication: showFilterHolder
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Show Timestamp'
+ indication: showTimestampHolder
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ label: 'Loading'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Set Target Package...'
+ itemValue: setTargetPackage
+ )
+ (MenuItem
+ label: 'Set Target Namespace...'
+ itemValue: setTargetNamespace
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Update Changefile'
+ indication: updateChangeFileHolder
+ )
+ )
+ nil
+ nil
+ )
+ )
+ )
+ nil
+ nil
)
"Modified: / 27-07-2012 / 21:17:20 / cg"
@@ -2351,7 +2351,9 @@
"Created: / 07-09-2011 / 15:54:03 / cg"
"Created: / 11-02-2012 / 22:40:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
+!
+
+ !
!ChangeSetBrowser2 methodsFor:'aspects-queries'!
@@ -2803,6 +2805,12 @@
"Created: / 27-07-2012 / 21:20:44 / cg"
!
+menuUpdate
+ self changesetChanged.
+"/ list1 updateList.
+"/ list2 updateList.
+!
+
setTargetNamespace
"specify an st/x namespace to be used as default"
@@ -3813,11 +3821,11 @@
!ChangeSetBrowser2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.43 2012-12-14 09:09:51 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.44 2013-03-26 00:01:56 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.43 2012-12-14 09:09:51 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.44 2013-03-26 00:01:56 cg Exp $'
!
version_HG