# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1140022163 -3600
# Node ID a60283327f16c1767523613cb1b4d9ed42942dc6
# Parent  d28960fc15767e800cda6295f91a0556b0911be7
hide some menu items when in browser

diff -r d28960fc1576 -r a60283327f16 UIHelpTool.st
--- a/UIHelpTool.st	Wed Feb 15 17:32:40 2006 +0100
+++ b/UIHelpTool.st	Wed Feb 15 17:49:23 2006 +0100
@@ -160,7 +160,7 @@
 
 !UIHelpTool class methodsFor:'interface specs'!
 
-windowSpec
+innerSpec
     "This resource specification was automatically generated
      by the UIPainter of ST/X."
 
@@ -168,16 +168,15 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:UIHelpTool andSelector:#windowSpec
-     UIHelpTool new openInterface:#windowSpec
-     UIHelpTool open
+     UIPainter new openOnClass:UIHelpTool andSelector:#innerSpec
+     UIHelpTool new openInterface:#innerSpec
     "
 
     <resource: #canvas>
 
     ^ 
      #(FullSpec
-        name: windowSpec
+        name: innerSpec
         window: 
        (WindowSpec
           label: 'UIHelpTool'
@@ -275,7 +274,7 @@
       )
 !
 
-windowSpecForStandAlone
+windowSpec
     "This resource specification was automatically generated
      by the UIPainter of ST/X."
 
@@ -283,30 +282,31 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:UIHelpTool andSelector:#windowSpecForStandAlone
-     UIHelpTool new openInterface:#windowSpecForStandAlone
+     UIPainter new openOnClass:UIHelpTool andSelector:#windowSpec
+     UIHelpTool new openInterface:#windowSpec
+     UIHelpTool open
     "
 
     <resource: #canvas>
 
     ^ 
      #(FullSpec
-        name: windowSpecForStandAlone
+        name: windowSpec
         window: 
        (WindowSpec
           label: 'Help Tool'
           name: 'Help Tool'
           min: (Point 300 300)
-          bounds: (Rectangle 14 46 512 475)
+          bounds: (Rectangle 0 0 498 429)
           menu: menu
         )
         component: 
        (SpecCollection
           collection: (
            (UISubSpecification
-              name: 'windowSpec'
+              name: 'innerSpec'
               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -50 1.0)
-              minorKey: windowSpec
+              minorKey: innerSpec
             )
            (UISubSpecification
               name: 'windowSpecForCommit'
@@ -468,12 +468,14 @@
                 )
                (MenuItem
                   label: '-'
+                  isVisible: isStandAlone
                 )
                (MenuItem
                   activeHelpKey: fileExit
                   label: 'Exit'
                   itemValue: closeRequest
                   translateLabel: true
+                  isVisible: isStandAlone
                 )
                )
               nil
@@ -489,6 +491,7 @@
          (MenuItem
             label: 'History'
             translateLabel: true
+            isVisible: isStandAlone
             submenuChannel: menuHistory
           )
          (MenuItem
@@ -659,7 +662,7 @@
     "returns the info label as value holder
     "
     masterApplication notNil ifTrue:[
-	^ masterApplication valueOfInfoLabel
+        ^ masterApplication infoLabelHolder
     ].
     ^ super valueOfInfoLabel
 ! !
@@ -984,7 +987,7 @@
 openOnClass:aClass andSelector: aSelector
     "opens the UIHelpTool on aClass and aSelector"
 
-    self openInterface:#windowSpecForStandAlone.
+    self openInterface:#windowSpec "ForStandAlone".
 
     builder window label:'Help Tool'.
     self loadFromClass:aClass andSelector:aSelector