--- a/NewSystemBrowser.st Sat Mar 17 12:38:35 2007 +0100
+++ b/NewSystemBrowser.st Mon Mar 19 11:17:14 2007 +0100
@@ -6051,6 +6051,15 @@
#(Menu
(
(MenuItem
+ isVisible: hasNoSourceCodeManagerHolder
+ label: '** No SourceCodeManager - See Settings in the Launcher **'
+ translateLabel: true
+ )
+ (MenuItem
+ isVisible: hasNoSourceCodeManagerHolder
+ label: '-'
+ )
+ (MenuItem
enabled: hasClassSelectedHolderAndSourceCodeManagerHolder
label: 'CheckIn...'
itemValue: classMenuCheckIn
@@ -6089,7 +6098,7 @@
label: '-'
)
(MenuItem
- enabled: hasNonPrivateClassSelectedHolder
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
label: 'Set Tag...'
itemValue: classMenuSetTag
translateLabel: true
@@ -6099,14 +6108,14 @@
label: '-'
)
(MenuItem
- enabled: hasNonPrivateClassSelected
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
label: 'CheckOut Newest'
itemValue: classMenuCheckOutNewest
translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
- enabled: hasNonPrivateClassSelectedHolder
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
label: 'CheckOut Previous Version...'
itemValue: classMenuCheckOut
translateLabel: true
@@ -6116,7 +6125,7 @@
label: '-'
)
(MenuItem
- enabled: hasNonPrivateClassSelectedHolder
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
label: 'Revision Log'
itemValue: classMenuRevisionLog
translateLabel: true
@@ -6151,7 +6160,7 @@
nil
)
- "Modified: / 12-10-2006 / 11:33:54 / cg"
+ "Modified: / 19-03-2007 / 11:16:33 / cg"
!
classSmallTeamMenu
@@ -13024,6 +13033,12 @@
"Created: / 14-09-2006 / 17:36:32 / cg"
!
+hasNoSourceCodeManagerHolder
+ ^ [ self hasSourceCodeManager not ]
+
+ "Created: / 19-03-2007 / 11:15:14 / cg"
+!
+
hasNoVariableSelected
^ self selectedVariables value size == 0
!
@@ -13055,6 +13070,12 @@
"Created: / 11.2.2000 / 11:07:54 / cg"
!
+hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ ^ [ self hasNonPrivateClassSelected and:[self hasSourceCodeManager] ]
+
+ "Created: / 19-03-2007 / 11:13:03 / cg"
+!
+
hasNonPrivateClassSelectedHolder
^ [ self hasNonPrivateClassSelected ]
@@ -40861,7 +40882,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1155 2007-03-12 13:05:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1156 2007-03-19 10:17:14 cg Exp $'
! !
NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st Sat Mar 17 12:38:35 2007 +0100
+++ b/Tools__NewSystemBrowser.st Mon Mar 19 11:17:14 2007 +0100
@@ -6051,6 +6051,15 @@
#(Menu
(
(MenuItem
+ isVisible: hasNoSourceCodeManagerHolder
+ label: '** No SourceCodeManager - See Settings in the Launcher **'
+ translateLabel: true
+ )
+ (MenuItem
+ isVisible: hasNoSourceCodeManagerHolder
+ label: '-'
+ )
+ (MenuItem
enabled: hasClassSelectedHolderAndSourceCodeManagerHolder
label: 'CheckIn...'
itemValue: classMenuCheckIn
@@ -6089,7 +6098,7 @@
label: '-'
)
(MenuItem
- enabled: hasNonPrivateClassSelectedHolder
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
label: 'Set Tag...'
itemValue: classMenuSetTag
translateLabel: true
@@ -6099,14 +6108,14 @@
label: '-'
)
(MenuItem
- enabled: hasNonPrivateClassSelected
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
label: 'CheckOut Newest'
itemValue: classMenuCheckOutNewest
translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
- enabled: hasNonPrivateClassSelectedHolder
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
label: 'CheckOut Previous Version...'
itemValue: classMenuCheckOut
translateLabel: true
@@ -6116,7 +6125,7 @@
label: '-'
)
(MenuItem
- enabled: hasNonPrivateClassSelectedHolder
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
label: 'Revision Log'
itemValue: classMenuRevisionLog
translateLabel: true
@@ -6151,7 +6160,7 @@
nil
)
- "Modified: / 12-10-2006 / 11:33:54 / cg"
+ "Modified: / 19-03-2007 / 11:16:33 / cg"
!
classSmallTeamMenu
@@ -13024,6 +13033,12 @@
"Created: / 14-09-2006 / 17:36:32 / cg"
!
+hasNoSourceCodeManagerHolder
+ ^ [ self hasSourceCodeManager not ]
+
+ "Created: / 19-03-2007 / 11:15:14 / cg"
+!
+
hasNoVariableSelected
^ self selectedVariables value size == 0
!
@@ -13055,6 +13070,12 @@
"Created: / 11.2.2000 / 11:07:54 / cg"
!
+hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ ^ [ self hasNonPrivateClassSelected and:[self hasSourceCodeManager] ]
+
+ "Created: / 19-03-2007 / 11:13:03 / cg"
+!
+
hasNonPrivateClassSelectedHolder
^ [ self hasNonPrivateClassSelected ]
@@ -40861,7 +40882,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1155 2007-03-12 13:05:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1156 2007-03-19 10:17:14 cg Exp $'
! !
NewSystemBrowser initialize!