added: #loadAndSaveSettingsItemVisible
authorClaus Gittinger <cg@exept.de>
Thu, 22 Oct 2009 11:01:00 +0200
changeset 9021 7fe0760c4554
parent 9020 e5a95e26ed83
child 9022 676088a17690
added: #loadAndSaveSettingsItemVisible changed: #mainMenu #windowSpec
SettingsDialog.st
--- a/SettingsDialog.st	Wed Oct 21 16:22:00 2009 +0200
+++ b/SettingsDialog.st	Thu Oct 22 11:01:00 2009 +0200
@@ -284,6 +284,7 @@
                        (HorizontalPanelViewSpec
                           name: 'HorizontalPanel2'
                           layout: (LayoutFrame 0 0.0 -34 1 0 1.0 0 1)
+                          visibilityChannel: loadAndSaveSettingsItemVisible
                           horizontalLayout: fitSpace
                           verticalLayout: center
                           horizontalSpace: 3
@@ -345,6 +346,7 @@
                           hasHorizontalScrollBar: false
                           hasVerticalScrollBar: false
                           clientHolder: subCanvasApplicationHolder
+                          createNewBuilder: false
                           postBuildCallback: postBuildSubCanvas:
                         )
                        (HorizontalPanelViewSpec
@@ -475,22 +477,27 @@
                   label: '&Load From...'
                   itemValue: loadSettingsFromFile
                   translateLabel: true
+                  isVisible: loadAndSaveSettingsItemVisible
                 )
                (MenuItem
                   label: '-'
+                  isVisible: loadAndSaveSettingsItemVisible
                 )
                (MenuItem
                   label: 'Save'
                   itemValue: saveSettingsWithoutAskingForFile
                   translateLabel: true
+                  isVisible: loadAndSaveSettingsItemVisible
                 )
                (MenuItem
                   label: '&Save As...'
                   itemValue: askForFileAndSaveSettings
                   translateLabel: true
+                  isVisible: loadAndSaveSettingsItemVisible
                 )
                (MenuItem
                   label: '-'
+                  isVisible: loadAndSaveSettingsItemVisible
                 )
                (MenuItem
                   label: 'E&xit'
@@ -1097,6 +1104,14 @@
     ^ enableReload.
 !
 
+loadAndSaveSettingsItemVisible
+    "for now, only show these if I have a requestor 
+     (i.e. I am a full settings Dialog as opposed to a DebugView, FileBrowser or other
+     settingsDialog. I think this has to be reworked..."
+
+    ^ requestor notNil "/ loadAndSaveSettingsItemVisible
+!
+
 selectedItem
     selectedItem isNil ifTrue:[
         selectedItem := ValueHolder new.
@@ -1408,7 +1423,11 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.82 2009-05-12 10:09:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.83 2009-10-22 09:01:00 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.83 2009-10-22 09:01:00 cg Exp $'
 ! !
 
 SettingsDialog initialize!