Squeak-dev March 2015

squeak-dev@lists.squeakfoundation.org

40 participants
315 discussions

The Trunk: ST80-mt.177.mcz
by commits＠source.squeak.org 30 Mar '15

30 Mar '15

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.177.mcz ==================== Summary ==================== Name: ST80-mt.177 Author: mt Time: 30 March 2015, 9:46:51.231 am UUID: 411c02bb-c316-5245-980b-509148ffe3d1 Ancestors: ST80-cmm.176 Marked method as deprecated. May be removed anyway? =============== Diff against ST80-cmm.176 =============== Item was changed: ----- Method: View>>setBalloonText: (in category 'morphic compatibility') ----- setBalloonText: aString "Unfortunately we just ignore this help text because we are not morphic" + + self flag: #deprecated. "mt: Use #balloonText: or just remove."! - !

1 0

The Trunk: Morphic-mt.789.mcz
by commits＠source.squeak.org 30 Mar '15

30 Mar '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.789.mcz ==================== Summary ==================== Name: Morphic-mt.789 Author: mt Time: 30 March 2015, 9:42:48.194 am UUID: 3a9c98fb-5fca-974f-8b32-e0059e13aeb0 Ancestors: Morphic-mt.788 Refactored interface for getting and setting balloonTexts. Do not modify the given text on setting anymore but only on getting because we do not yet now how balloonTexts will be rendered. =============== Diff against Morphic-mt.788 =============== Item was changed: ----- Method: ClickExerciser>>initButtons (in category 'initialization') ----- initButtons + | aButton positions | + aButton := ThreePhaseButtonMorph checkBox. + positions := ((0@0) rect: aButton extent negated) corners + self center . + buttons := positions collect: [ :p | ThreePhaseButtonMorph checkBox position: p; state: #on ] . + buttons with: self allSelectors do: [ :b :s | b balloonText: s asString ] . + self removeAllMorphs . + self addAllMorphs: buttons . - | aButton positions | - aButton := ThreePhaseButtonMorph checkBox. - positions := ((0@0) rect: aButton extent negated) corners + self center . - buttons := positions collect: [ :p | ThreePhaseButtonMorph checkBox position: p; state: #on ] . - buttons with: self allSelectors collect: [ :b :s | b setBalloonText: s asString maxLineLength: s size ] . - self removeAllMorphs . - self addAllMorphs: buttons . ! Item was changed: ----- Method: Morph>>balloonText (in category 'accessing') ----- balloonText "Answer balloon help text or nil, if no help is available. NB: subclasses may override such that they programatically construct the text, for economy's sake, such as model phrases in a Viewer" + | result | - | text balloonSelector aString | extension ifNil: [^nil]. + + extension balloonText + ifNotNil: [:balloonText | result := balloonText] + ifNil: [extension balloonTextSelector + ifNotNil: [:balloonSelector | + result := ScriptingSystem helpStringOrNilFor: balloonSelector. + (result isNil and: [balloonSelector == #methodComment]) + ifTrue: [result := self methodCommentAsBalloonHelp]. + ((result isNil and: [balloonSelector numArgs = 0]) + and: [self respondsTo: balloonSelector]) + ifTrue: [result := self perform: balloonSelector]]]. + + ^ result ifNotNil: [:balloonText | + balloonText asString withNoLineLongerThan: Preferences maxBalloonHelpLineLength]! - (text := extension balloonText) ifNotNil: [^text]. - (balloonSelector := extension balloonTextSelector) ifNotNil: - [aString := ScriptingSystem helpStringOrNilFor: balloonSelector. - (aString isNil and: [balloonSelector == #methodComment]) - ifTrue: [aString := self methodCommentAsBalloonHelp]. - ((aString isNil and: [balloonSelector numArgs = 0]) - and: [self respondsTo: balloonSelector]) - ifTrue: [aString := self perform: balloonSelector]]. - ^aString ifNotNil: - [aString asString - withNoLineLongerThan: Preferences maxBalloonHelpLineLength]! Item was added: + ----- Method: Morph>>balloonText: (in category 'accessing') ----- + balloonText: aString + + self assureExtension balloonText: aString.! Item was changed: ----- Method: Morph>>setBalloonText: (in category 'halos and balloon help') ----- setBalloonText: stringOrText "Set receiver's balloon help text. Pass nil to remove the help." + self flag: #deprecated. "mt: Use #balloonText:." self setBalloonText: stringOrText maxLineLength: Preferences maxBalloonHelpLineLength! Item was changed: ----- Method: Morph>>setBalloonText:maxLineLength: (in category 'halos and balloon help') ----- setBalloonText: stringOrText maxLineLength: aLength "Set receiver's balloon help text. Pass nil to remove the help." + + self flag: #deprecated. "mt: Use #balloonText:." (extension isNil and: [stringOrText isNil]) ifTrue: [^ self]. self assureExtension balloonText: (stringOrText ifNotNil: [stringOrText asString withNoLineLongerThan: aLength])!

1 0

The Trunk: Morphic-mt.788.mcz
by commits＠source.squeak.org 30 Mar '15

30 Mar '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.788.mcz ==================== Summary ==================== Name: Morphic-mt.788 Author: mt Time: 30 March 2015, 8:53:20.655 am UUID: 7c0e8d59-6df5-4142-a51f-3d9afe605a7f Ancestors: Morphic-mt.787, Morphic-dtl.787 Text morphs and pluggable text morphs behave more selection-preserving on setting new contents now. Avoids jerky scrolling behavior when updating contents while scrolling them. =============== Diff against Morphic-mt.787 =============== Item was changed: ----- Method: PluggableTextMorph>>setText: (in category 'model access') ----- setText: aText - scrollBar setValue: 0.0. textMorph ifNil: [textMorph := self textMorphClass new contents: aText wrappedTo: self innerBounds width-6. textMorph setEditView: self. scroller addMorph: textMorph] ifNotNil: [textMorph newContents: aText]. self hasUnacceptedEdits: false. self setScrollDeltas.! Item was changed: ----- Method: PluggableTextMorph>>update: (in category 'updating') ----- update: aSymbol aSymbol ifNil: [^self]. aSymbol == #flash ifTrue: [^self flash]. + aSymbol == getTextSelector + ifTrue: [ + self setText: self getText. + getSelectionSelector + ifNotNil: [self setSelection: self getSelection]. + ^ self]. - aSymbol == getTextSelector - ifTrue: - [self setText: self getText. - ^self setSelection: self getSelection]. aSymbol == getSelectionSelector ifTrue: [^self setSelection: self getSelection]. (aSymbol == #autoSelect and: [getSelectionSelector notNil]) ifTrue: [self handleEdit: [(textMorph editor) abandonChangeText; "no replacement!!" setSearch: model autoSelectString; againOrSame: true]]. aSymbol == #clearUserEdits ifTrue: [^self hasUnacceptedEdits: false]. aSymbol == #wantToChange ifTrue: [self canDiscardEdits ifFalse: [^self promptForCancel]. ^self]. aSymbol == #appendEntry ifTrue: [self handleEdit: [self appendEntry]. ^self refreshWorld]. aSymbol == #clearText ifTrue: [self handleEdit: [self changeText: Text new]. ^self refreshWorld]. aSymbol == #bs ifTrue: [self handleEdit: [self bsText]. ^self refreshWorld]. aSymbol == #codeChangedElsewhere ifTrue: [self hasEditingConflicts: true. ^self changed]. aSymbol == #saveContents ifTrue: [^self saveContentsInFile]! Item was changed: ----- Method: TextMorph>>newContents: (in category 'accessing') ----- newContents: stringOrText "Accept new text contents." + | newText embeddedMorphs oldSelection | - | newText embeddedMorphs | "If my text is all the same font, use the font for my new contents" newText := stringOrText isString ifTrue: [ | textSize | (text notNil and: [ (textSize := text size) > 0 and: [ (text runLengthFor: 1) = textSize ]]) ifTrue: [ | attribs | attribs := text attributesAt: 1 forStyle: textStyle. Text string: stringOrText copy attributes: attribs. ] ifFalse: [ Text fromString: stringOrText copy ] ] ifFalse: [ stringOrText copy asText. "should be veryDeepCopy?" ]. (text = newText and: [text runs = newText runs]) ifTrue: [^ self]. "No substantive change" text ifNotNil: [(embeddedMorphs := text embeddedMorphs) ifNotNil: [self removeAllMorphsIn: embeddedMorphs. embeddedMorphs do: [:m | m delete]]]. + oldSelection := editor ifNotNil: [:ed | ed selectionInterval]. text := newText. "add all morphs off the visible region; they'll be moved into the right place when they become visible. (this can make the scrollable area too large, though)" newText embeddedMorphs do: [:m | self addMorph: m. m position: -1000 @ 0]. self releaseParagraph. "update the paragraph cache" self paragraph. + oldSelection ifNotNil: [:sel | self selectFrom: sel first to: sel last]. "re-instantiate to set bounds" self world ifNotNil: [self world startSteppingSubmorphsOf: self]! Item was changed: ----- Method: UserDialogBoxMorph class>>confirm:orCancel:at: (in category 'utilities') ----- confirm: aString orCancel: cancelBlock at: aPointOrNil + ^self + confirm: aString + orCancel: cancelBlock + title: 'Please confirm:' + at: aPointOrNil! - - ^(self new - title: 'Please confirm:'; - label: aString; - addSelectedButton: ' Yes ' translated value: true; - addButton: ' No ' translated value: false; - addCancelButton: ' Cancel ' translated value: nil; - runModalIn: ActiveWorld forHand: ActiveHand at: aPointOrNil) - ifNil: [ cancelBlock value ]! Item was added: + ----- Method: UserDialogBoxMorph class>>confirm:orCancel:title:at: (in category 'utilities') ----- + confirm: aString orCancel: cancelBlock title: titleString at: aPointOrNil + + ^(self new + title: titleString; + label: aString; + addSelectedButton: ' Yes ' translated value: true; + addButton: ' No ' translated value: false; + addCancelButton: ' Cancel ' translated value: nil; + runModalIn: ActiveWorld forHand: ActiveHand at: aPointOrNil) + ifNil: [ cancelBlock value ]!

1 0

The Trunk: Collections-mt.605.mcz
by commits＠source.squeak.org 30 Mar '15

30 Mar '15

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.605.mcz ==================== Summary ==================== Name: Collections-mt.605 Author: mt Time: 30 March 2015, 8:46:49.164 am UUID: b661cec7-af10-7a42-9c4c-a09449425548 Ancestors: Collections-ul.604 Support #withBlanksTrimmed in texts. =============== Diff against Collections-ul.604 =============== Item was added: + ----- Method: String class>>noSeparators (in category 'accessing') ----- + noSeparators + ^ CSNonSeparators! Item was added: + ----- Method: Text>>withBlanksTrimmed (in category 'converting') ----- + withBlanksTrimmed + "Return a copy of the receiver from which leading and trailing blanks have been trimmed." + + | first last | + first := string indexOfAnyOf: String noSeparators startingAt: 1 ifAbsent: [0]. + first = 0 ifTrue: [ ^'' ]. "no non-separator character" + last := string lastIndexOfAnyOf: String noSeparators startingAt: self size ifAbsent: [self size]. + (first = 1 and: [ last = self size ]) ifTrue: [ ^self copy ]. + ^self + copyFrom: first + to: last + !

1 0

Re: [squeak-dev] The Trunk: ToolBuilder-Kernel-dtl.69.mcz
by Tobias Pape 30 Mar '15

30 Mar '15

On 29.03.2015, at 00:42, commits(a)source.squeak.org wrote: > David T. Lewis uploaded a new version of ToolBuilder-Kernel to project The Trunk: > http://source.squeak.org/trunk/ToolBuilder-Kernel-dtl.69.mcz > > ==================== Summary ==================== > > Name: ToolBuilder-Kernel-dtl.69 > Author: dtl > Time: 28 March 2015, 8:42:26.128 pm > UUID: 37be26fe-92e2-4f05-9298-ad1b771b3b8b > Ancestors: ToolBuilder-Kernel-dtl.68 > > UIManager>>confirm:label: is unimplemented and unreferenced since 2009. Remove it. > Regarding the whole UIManager api, don't you think implementing it would be a better move than removing? Best -Tobias > =============== Diff against ToolBuilder-Kernel-dtl.68 =============== > > Item was removed:

3 6

Daily Commit Log
by commits＠source.squeak.org 29 Mar '15

29 Mar '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-March/007698.html Name: ToolBuilder-Kernel-dtl.69 Ancestors: ToolBuilder-Kernel-dtl.68 UIManager>>confirm:label: is unimplemented and unreferenced since 2009. Remove it. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007699.html Name: Morphic-mt.787 Ancestors: Morphic-topa.786 Establish a dependents-relationship between complex contents and the wrapper. Having this, views may perform partial updates on model changes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007700.html Name: ToolBuilder-Kernel-mt.70 Ancestors: ToolBuilder-Kernel-dtl.69 Added support for a help text to input field spec to give users a cue which kind of input is expected. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007701.html Name: ToolBuilder-Morphic-mt.102 Ancestors: ToolBuilder-Morphic-dtl.101 Added support for a help text to input fields to give users a cue which kind of input is expected. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007702.html Name: ToolBuilder-Morphic-mt.103 Ancestors: ToolBuilder-Morphic-mt.102 Fix path selection to match against item identity instead of equality, which would fail, for example, in the case of string listings having duplicates. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007703.html Name: Tools-mt.565 Ancestors: Tools-topa.564 Refactored toggle/expand code in IndentingListItemMorph. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007704.html Name: Tools-mt.566 Ancestors: Tools-mt.565 Established a dependents-replationship between list item wrappers and list item morphs to support partial model updates. Added support for the #contents model update in list item wrappers. That is, tree models may now update their children and notify about this. The whole tree view/morph does not have to be refreshed but only parts of it. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007705.html Name: ToolBuilder-MVC-dtl.37 Ancestors: ToolBuilder-MVC-dtl.36 Add missing implementation of #confirm:trueChoice:falseChoice: for MVC ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007706.html Name: Morphic-dtl.787 Ancestors: Morphic-topa.786 UserDialogBoxMorph constructor for UIManager access ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007707.html Name: ToolBuilder-Kernel-dtl.71 Ancestors: ToolBuilder-Kernel-mt.70 Allow the UIManager to specify titles for confirm dialogs. In Morphic, this is the text of the title bar. In MVC, it is a line of text added to the top of the dialog prompt. #confirm:title replaces #confirm:label: which was defined previously in UIManager, but not implemented for Morphic or MVC. #title is consistent with other UIManager method naming and matches the implementation in UserDialogBoxMorph. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007708.html Name: ToolBuilder-Morphic-dtl.104 Ancestors: ToolBuilder-Morphic-mt.103 Allow the UIManager to specify titles for confirm dialogs. In Morphic, this is the text of the title bar. In MVC, it is a line of text added to the top of the dialog prompt. #confirm:title replaces #confirm:label: which was defined previously in UIManager, but not implemented for Morphic or MVC. #title is consistent with other UIManager method naming and matches the implementation in UserDialogBoxMorph. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007709.html Name: ToolBuilder-MVC-dtl.38 Ancestors: ToolBuilder-MVC-dtl.37 Allow the UIManager to specify titles for confirm dialogs. In Morphic, this is the text of the title bar. In MVC, it is a line of text added to the top of the dialog prompt. #confirm:title replaces #confirm:label: which was defined previously in UIManager, but not implemented for Morphic or MVC. #title is consistent with other UIManager method naming and matches the implementation in UserDialogBoxMorph. =============================================

1 0

The Trunk: ToolBuilder-MVC-dtl.38.mcz
by commits＠source.squeak.org 29 Mar '15

29 Mar '15

David T. Lewis uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-dtl.38.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-dtl.38 Author: dtl Time: 29 March 2015, 5:10:54.703 pm UUID: b9fbc8b7-4f34-4575-a651-3400866d6880 Ancestors: ToolBuilder-MVC-dtl.37 Allow the UIManager to specify titles for confirm dialogs. In Morphic, this is the text of the title bar. In MVC, it is a line of text added to the top of the dialog prompt. #confirm:title replaces #confirm:label: which was defined previously in UIManager, but not implemented for Morphic or MVC. #title is consistent with other UIManager method naming and matches the implementation in UserDialogBoxMorph. =============== Diff against ToolBuilder-MVC-dtl.37 =============== Item was added: + ----- Method: MVCUIManager>>confirm:orCancel:title: (in category 'ui requests') ----- + confirm: aString orCancel: cancelBlock title: titleString + "Put up a yes/no/cancel menu with caption aString, and titleString to label the dialog. + Answer true if the response is yes, false if no. If cancel is chosen, evaluate cancelBlock. + This is a modal question--the user must respond yes or no." + ^ PopUpMenu + confirm: (self dialogStringFromQuery: aString withTitle: titleString) + orCancel: cancelBlock! Item was added: + ----- Method: MVCUIManager>>confirm:title: (in category 'ui requests') ----- + confirm: queryString title: titleString + "Put up a yes/no menu with caption queryString, and titleString to label the dialog. + Answer true if the response is yes, false if no. This is a modal question--the user + must respond yes or no." + ^PopUpMenu confirm: (self dialogStringFromQuery: queryString withTitle: titleString) + ! Item was added: + ----- Method: MVCUIManager>>confirm:title:trueChoice:falseChoice: (in category 'ui requests') ----- + confirm: queryString title: titleString trueChoice: trueChoice falseChoice: falseChoice + "Put up a yes/no menu with caption queryString, and titleString to label the dialog. + The actual wording for the two choices will be as provided in the trueChoice and + falseChoice parameters. Answer true if the response is the true-choice, false if it + is the false-choice. This is a modal question -- the user must respond one way or + the other." + ^ PopUpMenu + confirm: (self dialogStringFromQuery: queryString withTitle: titleString) + trueChoice: trueChoice + falseChoice: falseChoice! Item was added: + ----- Method: MVCUIManager>>dialogStringFromQuery:withTitle: (in category 'private') ----- + dialogStringFromQuery: queryString withTitle: titleString + "In Morphic, it is common to display a simple dialog that has a title bar. In MVC, simple + dialogs are simple. If the UIManager requests a dialog with title, add the title as a simply + decorated line at the top of the dialog text." + ^String streamContents: [ :strm | + strm nextPutAll: '- '; + nextPutAll: titleString; + nextPutAll: ' -'; + nextPut: Character cr; + nextPutAll: queryString ] + !

1 0

The Trunk: ToolBuilder-Morphic-dtl.104.mcz
by commits＠source.squeak.org 29 Mar '15

29 Mar '15

David T. Lewis uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-dtl.104.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-dtl.104 Author: dtl Time: 29 March 2015, 5:09:47.52 pm UUID: da56cb58-02d6-4ed0-89f6-ecb2b7bafce2 Ancestors: ToolBuilder-Morphic-mt.103 Allow the UIManager to specify titles for confirm dialogs. In Morphic, this is the text of the title bar. In MVC, it is a line of text added to the top of the dialog prompt. #confirm:title replaces #confirm:label: which was defined previously in UIManager, but not implemented for Morphic or MVC. #title is consistent with other UIManager method naming and matches the implementation in UserDialogBoxMorph. =============== Diff against ToolBuilder-Morphic-mt.103 =============== Item was added: + ----- Method: MorphicUIManager>>confirm:orCancel:title: (in category 'ui requests') ----- + confirm: aString orCancel: cancelBlock title: titleString + "Put up a yes/no/cancel menu with caption aString, and titleString to label the dialog. + Answer true if the response is yes, false if no. If cancel is chosen, evaluate cancelBlock. + This is a modal question--the user must respond yes or no." + ^ UserDialogBoxMorph + confirm: aString + orCancel: cancelBlock + title: titleString + at: nil! Item was added: + ----- Method: MorphicUIManager>>confirm:title: (in category 'ui requests') ----- + confirm: queryString title: titleString + "Put up a yes/no menu with caption queryString, and titleString to label the dialog. + Answer true if the response is yes, false if no. This is a modal question--the user + must respond yes or no." + ^UserDialogBoxMorph confirm: queryString title: titleString! Item was added: + ----- Method: MorphicUIManager>>confirm:title:trueChoice:falseChoice: (in category 'ui requests') ----- + confirm: queryString title: titleString trueChoice: trueChoice falseChoice: falseChoice + "Put up a yes/no menu with caption queryString, and titleString to label the dialog. + The actual wording for the two choices will be as provided in the trueChoice and + falseChoice parameters. Answer true if the response is the true-choice, false if it + is the false-choice. This is a modal question -- the user must respond one way or + the other." + ^ UserDialogBoxMorph confirm: queryString title: titleString trueChoice: trueChoice falseChoice: falseChoice !

1 0

The Trunk: ToolBuilder-Kernel-dtl.71.mcz
by commits＠source.squeak.org 29 Mar '15

29 Mar '15

David T. Lewis uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-dtl.71.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-dtl.71 Author: dtl Time: 29 March 2015, 5:09:02.348 pm UUID: 367a75ee-64d0-4132-b36e-3e1be1e0b2e7 Ancestors: ToolBuilder-Kernel-mt.70 Allow the UIManager to specify titles for confirm dialogs. In Morphic, this is the text of the title bar. In MVC, it is a line of text added to the top of the dialog prompt. #confirm:title replaces #confirm:label: which was defined previously in UIManager, but not implemented for Morphic or MVC. #title is consistent with other UIManager method naming and matches the implementation in UserDialogBoxMorph. =============== Diff against ToolBuilder-Kernel-mt.70 =============== Item was added: + ----- Method: UIManager>>confirm:orCancel:title: (in category 'ui requests') ----- + confirm: aString orCancel: cancelBlock title: titleString + "Put up a yes/no/cancel menu with caption aString, and titleString to label the dialog. + Answer true if the response is yes, false if no. If cancel is chosen, evaluate cancelBlock. + This is a modal question--the user must respond yes or no." + ^self subclassResponsibility! Item was added: + ----- Method: UIManager>>confirm:title: (in category 'ui requests') ----- + confirm: queryString title: titleString + "Put up a yes/no menu with caption queryString, and titleString to label the dialog. + Answer true if the response is yes, false if no. This is a modal question--the user + must respond yes or no." + ^self subclassResponsibility! Item was added: + ----- Method: UIManager>>confirm:title:trueChoice:falseChoice: (in category 'ui requests') ----- + confirm: queryString title: titleString trueChoice: trueChoice falseChoice: falseChoice + "Put up a yes/no menu with caption queryString, and titleString to label the dialog. + The actual wording for the two choices will be as provided in the trueChoice and + falseChoice parameters. Answer true if the response is the true-choice, false if it + is the false-choice. This is a modal question -- the user must respond one way or + the other." + ^self subclassResponsibility!

1 0

The Trunk: Morphic-dtl.787.mcz
by commits＠source.squeak.org 29 Mar '15

29 Mar '15

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.787.mcz ==================== Summary ==================== Name: Morphic-dtl.787 Author: dtl Time: 29 March 2015, 5:04:13.048 pm UUID: 432e13de-c7e6-4d70-83ce-2992da504a5b Ancestors: Morphic-topa.786 UserDialogBoxMorph constructor for UIManager access =============== Diff against Morphic-topa.786 =============== Item was changed: ----- Method: UserDialogBoxMorph class>>confirm:orCancel:at: (in category 'utilities') ----- confirm: aString orCancel: cancelBlock at: aPointOrNil + ^self + confirm: aString + orCancel: cancelBlock + title: 'Please confirm:' + at: aPointOrNil! - - ^(self new - title: 'Please confirm:'; - label: aString; - addSelectedButton: ' Yes ' translated value: true; - addButton: ' No ' translated value: false; - addCancelButton: ' Cancel ' translated value: nil; - runModalIn: ActiveWorld forHand: ActiveHand at: aPointOrNil) - ifNil: [ cancelBlock value ]! Item was added: + ----- Method: UserDialogBoxMorph class>>confirm:orCancel:title:at: (in category 'utilities') ----- + confirm: aString orCancel: cancelBlock title: titleString at: aPointOrNil + + ^(self new + title: titleString; + label: aString; + addSelectedButton: ' Yes ' translated value: true; + addButton: ' No ' translated value: false; + addCancelButton: ' Cancel ' translated value: nil; + runModalIn: ActiveWorld forHand: ActiveHand at: aPointOrNil) + ifNil: [ cancelBlock value ]!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
32
Older →

Jump to page: