c***@source.squeak.org
0000-11-02 19:48:37 UTC
Patrick Rein uploaded a new version of CommandLine to project The Trunk:
http://source.squeak.org/trunk/CommandLine-pre.11.mcz
==================== Summary ====================
Name: CommandLine-pre.11
Author: pre
Time: 1 November 2018, 2:57:18.793173 pm
UUID: 578497bd-0e64-a84f-8df7-d2e096d406ec
Ancestors: CommandLine-tpr.10
Updates the DummyUIManager to answer the ProvideAnswerNotification
=============== Diff against CommandLine-tpr.10 ===============
Item was changed:
----- Method: DummyUIManager>>chooseDirectory:from: (in category 'ui requests') -----
chooseDirectory: label from: dir
+ self askForProvidedAnswerTo: label ifSupplied: [:answer |
+ ^ answer].
+
^ nil!
Item was changed:
----- Method: DummyUIManager>>chooseFrom:lines:title: (in category 'ui requests') -----
chooseFrom: aList lines: linesArray title: aString
+ self askForProvidedAnswerTo: aString ifSupplied: [:answer |
+ (answer = #cancel or: [answer isNil]) ifTrue: [^ 0].
+ ^ aList indexOf: answer].
+
+ ^ 1!
- ^ aList first!
Item was changed:
----- Method: DummyUIManager>>chooseFrom:values:lines:title: (in category 'ui requests') -----
chooseFrom: labelList values: valueList lines: linesArray title: aString
+ self askForProvidedAnswerTo: aString ifSupplied: [:answer |
+ (answer = #cancel or: [answer isNil]) ifTrue: [^ nil].
+ ^ valueList at: (valueList indexOf: answer)].
+
^ valueList first!
Item was changed:
----- Method: DummyUIManager>>confirm: (in category 'ui requests') -----
confirm: queryString
+ self askForProvidedAnswerTo: queryString ifSupplied: [:answer |
+ ^ answer].
- (ProvideAnswerNotification signal: queryString)
- ifNotNil: [:answer|^answer].
self error: 'No user response possible'!
Item was changed:
----- Method: DummyUIManager>>confirm:orCancel: (in category 'ui requests') -----
confirm: aString orCancel: cancelBlock
+ self askForProvidedAnswerTo: aString ifSupplied: [:answer |
+ ^ (answer = #cancel or: [answer isNil])
+ ifTrue: [cancelBlock value]
+ ifFalse: [answer]].
- (ProvideAnswerNotification signal: aString) ifNotNil: [:answer |
- ^answer == #cancel ifTrue: [cancelBlock value] ifFalse: [answer]].
self error: 'No user response possible'!
Item was removed:
- ----- Method: DummyUIManager>>fontFromUser: (in category 'ui requests') -----
- fontFromUser: priorFont
- self error: 'No user response possible'!
Item was changed:
----- Method: DummyUIManager>>inform: (in category 'ui requests') -----
inform: aString
+ "Nothing to be done here"
+ self askForProvidedAnswerTo: aString ifSupplied: [:answer |
+ ^ answer].!
- "Nothing to be done here"!
Item was changed:
+ ----- Method: DummyUIManager>>openDebugger:on:context:label:contents:fullView: (in category 'ui project indirecting') -----
- ----- Method: DummyUIManager>>openDebugger:on:context:label:contents:fullView: (in category 'ui requests') -----
openDebugger: aDebugger on: process context: context label: title contents: contentsStringOrNil fullView: bool
"open a debugger - the two versions for mvc & morphic are very close and can surely be merged so that this can be removed"
^nil!
Item was changed:
+ ----- Method: DummyUIManager>>openFancyMailComposition: (in category 'ui project indirecting') -----
- ----- Method: DummyUIManager>>openFancyMailComposition: (in category 'ui requests') -----
openFancyMailComposition: fancyMail
"FancyMailComposition should probably be removed in favour of MailComposition, but at least ought to be made a ToolBuilder thing"
^nil!
Item was changed:
+ ----- Method: DummyUIManager>>openPluggableFileList:label:in: (in category 'ui project indirecting') -----
- ----- Method: DummyUIManager>>openPluggableFileList:label:in: (in category 'ui requests') -----
openPluggableFileList: aPluggableFileList label: aString in: aWorld
"PluggableFileList is being deprecated and this can go away soon"
^nil!
Item was removed:
- ----- Method: DummyUIManager>>openPluggableFileListLabel:in: (in category 'ui requests') -----
- openPluggableFileListLabel: aString in: aWorld
- "PluggableFileList is being deprecated and this can go away soon"
- ^nil!
Item was changed:
----- Method: DummyUIManager>>request:initialAnswer: (in category 'ui requests') -----
request: queryString initialAnswer: defaultAnswer
+ self askForProvidedAnswerTo: queryString ifSupplied: [:answer |
+ ^ answer = #default
+ ifTrue: [defaultAnswer]
+ ifFalse: [answer]].
- (ProvideAnswerNotification signal: queryString)
- ifNotNil: [:answer |
- ^ answer == #default ifTrue: [defaultAnswer] ifFalse: [answer]].
self error: 'No user response possible'!
Item was changed:
----- Method: DummyUIManager>>requestPassword: (in category 'ui requests') -----
requestPassword: queryString
+
^ self request: queryString initialAnswer: ''!
Item was changed:
+ ----- Method: DummyUIManager>>resumeDebugger:process: (in category 'ui project indirecting') -----
- ----- Method: DummyUIManager>>resumeDebugger:process: (in category 'ui requests') -----
resumeDebugger: aDebugger process: aTopView
"resume a debugger - the two versions for mvc & morphic are very close and can surely be merged so that this can be removed"
^nil!
Item was changed:
----- Method: DummyUIManager>>saveFilenameRequest:initialAnswer: (in category 'ui requests') -----
saveFilenameRequest: queryString initialAnswer: defaultAnswer
"Open a FileSaverDialog to ask for a place and filename to use for saving a file. The initial suggestion for the filename is defaultAnswer but the user may choose any existing file or type in a new name entirely"
+ self askForProvidedAnswerTo: queryString ifSupplied: [:answer |
+ ^ answer = #default
+ ifTrue: [defaultAnswer]
+ ifFalse: [answer]].
- (ProvideAnswerNotification signal: queryString)
- ifNotNil: [:answer |
- ^ answer == #default ifTrue: [defaultAnswer] ifFalse: [answer]].
self error: 'No user response possible'!
Item was changed:
+ ----- Method: DummyUIManager>>startUpMenu:withCaption:icon:at:allowKeyboard: (in category 'ui project indirecting') -----
- ----- Method: DummyUIManager>>startUpMenu:withCaption:icon:at:allowKeyboard: (in category 'ui requests') -----
startUpMenu: aMenu withCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean
"A menu needs to startup and depends on the current type of ui manager for what sort of startup to do. Very ugly, and really needs replacing with a much better menu system"
^
http://source.squeak.org/trunk/CommandLine-pre.11.mcz
==================== Summary ====================
Name: CommandLine-pre.11
Author: pre
Time: 1 November 2018, 2:57:18.793173 pm
UUID: 578497bd-0e64-a84f-8df7-d2e096d406ec
Ancestors: CommandLine-tpr.10
Updates the DummyUIManager to answer the ProvideAnswerNotification
=============== Diff against CommandLine-tpr.10 ===============
Item was changed:
----- Method: DummyUIManager>>chooseDirectory:from: (in category 'ui requests') -----
chooseDirectory: label from: dir
+ self askForProvidedAnswerTo: label ifSupplied: [:answer |
+ ^ answer].
+
^ nil!
Item was changed:
----- Method: DummyUIManager>>chooseFrom:lines:title: (in category 'ui requests') -----
chooseFrom: aList lines: linesArray title: aString
+ self askForProvidedAnswerTo: aString ifSupplied: [:answer |
+ (answer = #cancel or: [answer isNil]) ifTrue: [^ 0].
+ ^ aList indexOf: answer].
+
+ ^ 1!
- ^ aList first!
Item was changed:
----- Method: DummyUIManager>>chooseFrom:values:lines:title: (in category 'ui requests') -----
chooseFrom: labelList values: valueList lines: linesArray title: aString
+ self askForProvidedAnswerTo: aString ifSupplied: [:answer |
+ (answer = #cancel or: [answer isNil]) ifTrue: [^ nil].
+ ^ valueList at: (valueList indexOf: answer)].
+
^ valueList first!
Item was changed:
----- Method: DummyUIManager>>confirm: (in category 'ui requests') -----
confirm: queryString
+ self askForProvidedAnswerTo: queryString ifSupplied: [:answer |
+ ^ answer].
- (ProvideAnswerNotification signal: queryString)
- ifNotNil: [:answer|^answer].
self error: 'No user response possible'!
Item was changed:
----- Method: DummyUIManager>>confirm:orCancel: (in category 'ui requests') -----
confirm: aString orCancel: cancelBlock
+ self askForProvidedAnswerTo: aString ifSupplied: [:answer |
+ ^ (answer = #cancel or: [answer isNil])
+ ifTrue: [cancelBlock value]
+ ifFalse: [answer]].
- (ProvideAnswerNotification signal: aString) ifNotNil: [:answer |
- ^answer == #cancel ifTrue: [cancelBlock value] ifFalse: [answer]].
self error: 'No user response possible'!
Item was removed:
- ----- Method: DummyUIManager>>fontFromUser: (in category 'ui requests') -----
- fontFromUser: priorFont
- self error: 'No user response possible'!
Item was changed:
----- Method: DummyUIManager>>inform: (in category 'ui requests') -----
inform: aString
+ "Nothing to be done here"
+ self askForProvidedAnswerTo: aString ifSupplied: [:answer |
+ ^ answer].!
- "Nothing to be done here"!
Item was changed:
+ ----- Method: DummyUIManager>>openDebugger:on:context:label:contents:fullView: (in category 'ui project indirecting') -----
- ----- Method: DummyUIManager>>openDebugger:on:context:label:contents:fullView: (in category 'ui requests') -----
openDebugger: aDebugger on: process context: context label: title contents: contentsStringOrNil fullView: bool
"open a debugger - the two versions for mvc & morphic are very close and can surely be merged so that this can be removed"
^nil!
Item was changed:
+ ----- Method: DummyUIManager>>openFancyMailComposition: (in category 'ui project indirecting') -----
- ----- Method: DummyUIManager>>openFancyMailComposition: (in category 'ui requests') -----
openFancyMailComposition: fancyMail
"FancyMailComposition should probably be removed in favour of MailComposition, but at least ought to be made a ToolBuilder thing"
^nil!
Item was changed:
+ ----- Method: DummyUIManager>>openPluggableFileList:label:in: (in category 'ui project indirecting') -----
- ----- Method: DummyUIManager>>openPluggableFileList:label:in: (in category 'ui requests') -----
openPluggableFileList: aPluggableFileList label: aString in: aWorld
"PluggableFileList is being deprecated and this can go away soon"
^nil!
Item was removed:
- ----- Method: DummyUIManager>>openPluggableFileListLabel:in: (in category 'ui requests') -----
- openPluggableFileListLabel: aString in: aWorld
- "PluggableFileList is being deprecated and this can go away soon"
- ^nil!
Item was changed:
----- Method: DummyUIManager>>request:initialAnswer: (in category 'ui requests') -----
request: queryString initialAnswer: defaultAnswer
+ self askForProvidedAnswerTo: queryString ifSupplied: [:answer |
+ ^ answer = #default
+ ifTrue: [defaultAnswer]
+ ifFalse: [answer]].
- (ProvideAnswerNotification signal: queryString)
- ifNotNil: [:answer |
- ^ answer == #default ifTrue: [defaultAnswer] ifFalse: [answer]].
self error: 'No user response possible'!
Item was changed:
----- Method: DummyUIManager>>requestPassword: (in category 'ui requests') -----
requestPassword: queryString
+
^ self request: queryString initialAnswer: ''!
Item was changed:
+ ----- Method: DummyUIManager>>resumeDebugger:process: (in category 'ui project indirecting') -----
- ----- Method: DummyUIManager>>resumeDebugger:process: (in category 'ui requests') -----
resumeDebugger: aDebugger process: aTopView
"resume a debugger - the two versions for mvc & morphic are very close and can surely be merged so that this can be removed"
^nil!
Item was changed:
----- Method: DummyUIManager>>saveFilenameRequest:initialAnswer: (in category 'ui requests') -----
saveFilenameRequest: queryString initialAnswer: defaultAnswer
"Open a FileSaverDialog to ask for a place and filename to use for saving a file. The initial suggestion for the filename is defaultAnswer but the user may choose any existing file or type in a new name entirely"
+ self askForProvidedAnswerTo: queryString ifSupplied: [:answer |
+ ^ answer = #default
+ ifTrue: [defaultAnswer]
+ ifFalse: [answer]].
- (ProvideAnswerNotification signal: queryString)
- ifNotNil: [:answer |
- ^ answer == #default ifTrue: [defaultAnswer] ifFalse: [answer]].
self error: 'No user response possible'!
Item was changed:
+ ----- Method: DummyUIManager>>startUpMenu:withCaption:icon:at:allowKeyboard: (in category 'ui project indirecting') -----
- ----- Method: DummyUIManager>>startUpMenu:withCaption:icon:at:allowKeyboard: (in category 'ui requests') -----
startUpMenu: aMenu withCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean
"A menu needs to startup and depends on the current type of ui manager for what sort of startup to do. Very ugly, and really needs replacing with a much better menu system"
^