--- 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!