hg/stx-libtool: comparison AbstractLauncherApplication.st

equal deleted inserted replaced

-:d7531f2aa154
+:2a8886eaff5f
 	privateIn:AbstractLauncherApplication
 !
 ApplicationModel subclass:#SettingsDialog
 	instanceVariableNames:'appList requestor selectionInApplList subCanvasApplicationHolder
-		help applList appIsCategory enableButtons doReload doSave'
+		help applList appIsCategory doReload doSave enableReload
+		enableHelp enableOK'
 	classVariableNames:'ApplicationList'
 	poolDictionaries:''
 	privateIn:AbstractLauncherApplication
 !
 #(#WindowSpec
 #label: 'Settings Dialog'
 #name: 'Settings Dialog'
 #min: #(#Point 10 10)
 #max: #(#Point 1024 768)
-#bounds: #(#Rectangle 16 42 816 662)
+#bounds: #(#Rectangle 12 22 812 642)
 #menu: #mainMenu
 )
 #component:
 #(#SpecCollection
 #collection: #(
 #(#ActionButtonSpec
 #label: 'Save to Disc ...'
 #name: 'Button1'
 #translateLabel: true
 #model: #saveSettings
-#enableChannel: #enableButtons
 #extent: #(#Point 128 22)
 )
 #(#ActionButtonSpec
 #label: 'Load from Disc ...'
 #name: 'Button2'
 #translateLabel: true
 #model: #loadSettings
-#enableChannel: #enableButtons
 #extent: #(#Point 128 22)
 )
 )
 )
 #(#ActionButtonSpec
 #label: 'OK'
 #name: 'OK'
 #translateLabel: true
 #model: #doSave
-#enableChannel: #enableButtons
+#enableChannel: #enableOK
 #extent: #(#Point 127 22)
 )
 #(#ActionButtonSpec
-#label: 'Reload'
+#label: 'Discard'
 #name: 'Reload'
 #translateLabel: true
 #model: #doReload
-#enableChannel: #enableButtons
+#enableChannel: #enableReload
 #extent: #(#Point 128 22)
 )
 #(#ActionButtonSpec
-#label: 'Cancel'
+#label: 'Close'
-#name: 'Cancel'
+#name: 'Close'
 #translateLabel: true
 #model: #closeRequest
 #extent: #(#Point 127 22)
 )
 #(#ActionButtonSpec
 #label: 'Help'
 #name: 'Help'
 #translateLabel: true
 #model: #help
-#enableChannel: #enableButtons
+#enableChannel: #enableHelp
 #extent: #(#Point 128 22)
 )
 )
 )
 doSave
 | item |
 item := self selectionInApplList value.
 (item isNil or:[item isCategory or:[item application isNil]]) ifTrue:[ ^ self].
-item application saveRequest.
+item application saveSettings.
 !
 help
 | item |
 applList := AbstractLauncherApplication::HierarchicalSettingsApplList new.
 ].
 ^ applList.
 !
-enableButtons
+enableHelp
+"automatically generated by UIPainter ..."
-enableButtons isNil ifTrue:[
-enableButtons := true asValue.
+"*** the code below creates a default model when invoked."
-].
+"*** (which may not be the one you wanted)"
-^ enableButtons.
+"*** Please change as required and accept it in the browser."
+"*** (and replace this comment by something more useful ;-)"
+enableHelp isNil ifTrue:[
+enableHelp := true asValue.
+"/ if your app needs to be notified of changes, uncomment one of the lines below:
+"/       enableHelp addDependent:self.
+"/       enableHelp onChangeSend:#enableHelpChanged to:self.
+].
+^ enableHelp.
+!
+enableOK
+"automatically generated by UIPainter ..."
+"*** the code below creates a default model when invoked."
+"*** (which may not be the one you wanted)"
+"*** Please change as required and accept it in the browser."
+"*** (and replace this comment by something more useful ;-)"
+enableOK isNil ifTrue:[
+enableOK := true asValue.
+"/ if your app needs to be notified of changes, uncomment one of the lines below:
+"/       enableOK addDependent:self.
+"/       enableOK onChangeSend:#enableOKChanged to:self.
+].
+^ enableOK.
+!
+enableReload
+"automatically generated by UIPainter ..."
+"*** the code below creates a default model when invoked."
+"*** (which may not be the one you wanted)"
+"*** Please change as required and accept it in the browser."
+"*** (and replace this comment by something more useful ;-)"
+enableReload isNil ifTrue:[
+enableReload := true asValue.
+"/ if your app needs to be notified of changes, uncomment one of the lines below:
+"/       enableReload addDependent:self.
+"/       enableReload onChangeSend:#enableReloadChanged to:self.
+].
+^ enableReload.
 !
 selectionInApplList
 selectionInApplList isNil ifTrue:[
 ^ subCanvasApplicationHolder.
 ! !
 !AbstractLauncherApplication::SettingsDialog methodsFor:'change & update'!
+modifiedChanged
+|changedObject|
+changedObject := self subCanvasApplicationHolder value modifiedChannel.
+self enableOK value:(changedObject value).
+self enableReload value:(changedObject value).
+!
 selectionChanged
 | item isCat oldAppl|
 oldAppl := self subCanvasApplicationHolder value.
 oldAppl notNil ifTrue:[
 oldAppl saveRequest.
+oldAppl modifiedChannel removeDependent:self.
 ].
 item := self selectionInApplList value.
 isCat := item isCategory.
-self enableButtons value:(isCat not).
+self enableOK value:(isCat not).
+self enableReload value:(isCat not).
+self enableHelp value:(isCat not).
 isCat ifTrue:[
 self subCanvasApplicationHolder value:nil.
 ^ self
 ].
 item application isNil ifTrue:[
 item application:(item applClass new).
-].
+].
+item application modifiedChannel addDependent:self.
 self subCanvasApplicationHolder value:item application.
+self modifiedChanged.
 !
 update:something with:aParameter from:changedObject
 "Invoked when an object that I depend upon sends a change notification."
 changedObject == self selectionInApplList ifTrue:[
 self selectionChanged.
 ^ self
 ].
+changedObject == self subCanvasApplicationHolder value modifiedChannel ifTrue:[
+self modifiedChanged.
+^ self
+].
 super update:something with:aParameter from:changedObject
 ! !
 !AbstractLauncherApplication::SettingsDialog methodsFor:'initialization & release'!
 ! !
 !AbstractLauncherApplication class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.239 2002-11-27 10:02:33 penk Exp $'
+^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.240 2002-12-12 13:01:10 penk Exp $'
 ! !
 AbstractLauncherApplication::SettingsDialog initialize!

changeset 4372	2a8886eaff5f
parent 4328	a60a893cac97
child 4379	2e224d2ccf50