*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 19 Mar 2007 11:17:14 +0100
changeset 7756 28fc09477d93
parent 7755 2714286051c6
child 7757 935e3e45cca4
*** empty log message ***
NewSystemBrowser.st
Tools__NewSystemBrowser.st
--- 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!