Packages March 2018

packages@lists.squeakfoundation.org

1 participants
71 discussions

The Trunk: ToolBuilder-Morphic-cmm.209.mcz
by commits＠source.squeak.org 31 Mar '18

31 Mar '18

Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.209.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-cmm.209 Author: cmm Time: 30 March 2018, 6:01:58.101354 pm UUID: da0cc990-c84a-49e8-ad16-99d84013a244 Ancestors: ToolBuilder-Morphic-tpr.208 Various fixes and improvements to Tim's cool new FileSaverDialog. Restores the convenience of simply typing a name and pressing [Return], by opening with the filename field directly under the mouse, ready to type. It is also once again not required to type the filename extension, the system will add it or prompt the user for it if there are multiple possibilities. If an invalid filename is specified, the user is alerted appropriately, instead of silently not saving their file. =============== Diff against ToolBuilder-Morphic-tpr.208 =============== Item was changed: ----- Method: DialogWindow>>openAsTool (in category '*ToolBuilder-Morphic-opening') ----- openAsTool + self flag: #dev. + "cm: The following line may no longer be necessary." + preferredPosition isMorph ifFalse: [ self moveToHand ]. + ^ self getUserResponse! - - self flag: #fishy. "mt: Why does the dialog not return its Morphic form but data?" - ^ self - moveToHand; - getUserResponse! Item was changed: Model subclass: #FileAbstractSelectionDialog + instanceVariableNames: 'patternList directory directoryCache message listIndex fileName finalChoice nameList sizeList dateList suffixList' - instanceVariableNames: 'patternList directory directoryCache message listIndex fileName finalChoice nameList sizeList dateList' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Morphic-Tools'! !FileAbstractSelectionDialog commentStamp: 'tpr 11/21/2017 18:18' prior: 0! FileAbstractSelectionDialog is the abstract superclass for the file chooser & saver modal dialogs. The UI provides a message to the user, a text input field, a directory tree widget and a list of files within any chosen directory, and buttons to accept the selected file name/path or cancel the operation. See subclass comments and class side methods for specific usage examples. Instance Variables directory: <FileDirectory> used for the currently selected directory directoryCache: <WeakIdentityKeyDictionary> used to cache a boolean to help us more quickly populate the directory tree widget when revisiting a directory fileName: <String|nil> the name of the currently selected file, if any finalChoice: <String|nil> pathname of the finally chosen file, returned as the result of accepting; nil is returned otherwise list: <Array> the list of String of filenames (and date/size) that match the current pattern listIndex: <Integer> list index of the currently selected file patternList: <OrderedCollection of String> the patterns are held as a collection of string that may include * or # wildcards. See FileAbstractSelectionDialog>>#parsePatternString for details message: <String> a message to the user to explain what is expected nameList,DateList, sizeList: <Array> the list of file names matching the pattern and the appropriate date and size values, formatted for a PluggableMultiColumnListMorph! Item was changed: ----- Method: FileAbstractSelectionDialog>>buildTextInputWith: (in category 'toolbuilder') ----- buildTextInputWith: builder | textSpec | textSpec := builder pluggableInputFieldSpec new. textSpec model: self; + name: #inputText ; font: self textViewFont; + getText: #inputText; + setText: #selectFilename:; + selection: #contentsSelection. - getText: #inputText; - setText: #inputText:. ^textSpec ! Item was changed: ----- Method: FileAbstractSelectionDialog>>initialize (in category 'initialize-release') ----- initialize super initialize. directoryCache := WeakIdentityKeyDictionary new. listIndex := 0. + patternList := self defaultPatternList. + suffixList := OrderedCollection new! - patternList := self defaultPatternList! Item was changed: ----- Method: FileAbstractSelectionDialog>>suffixList: (in category 'path and pattern') ----- + suffixList: listOfStrings - suffixList: listOfStrings "Make a pattern list from a one or more filename suffix strings in a list , i.e. #('jpg' 'mpeg') " - listOfStrings isEmptyOrNil + ifTrue: [ patternList := self defaultPatternList ] + ifFalse: + [ patternList := OrderedCollection new. + listOfStrings do: + [ : each | each isEmptyOrNil ifFalse: + [ patternList add: '*.' , each. + suffixList add: each ] ] ]! - ifTrue: [patternList := self defaultPatternList] - ifFalse: [patternList := OrderedCollection new. - listOfStrings do: [:each| - each isEmptyOrNil ifFalse:[ patternList add: '*.',each] ] ]! Item was changed: ----- Method: FileChooserDialog class>>openOn:suffixList:label: (in category 'instance creation') ----- + openOn: aDirectory suffixList: aCollection label: labelString + "Open a modal dialog to choose a file. Start the dialog with aDirectory selected and files matching the file name suffixes in aCollection. Set the user message to labelString." - openOn: aDirectory suffixList: patternList label: labelString - "Open a modal dialog to choose a file. Start the dialog with aDirectory selected - and files matching the file name suffixes in patternList. Set the user message - to labelString." "FileChooserDialog openOn: FileDirectory default suffixList: { 'changes' . 'image' } label: 'Do something with the selected files' " ^self new directory: aDirectory; + suffixList: aCollection; - suffixList: patternList; message: labelString; getUserResponse! Item was changed: ----- Method: FileSaverDialog>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "assemble the spec for the saver dialog UI and build the window" | window windowSpec | windowSpec := self buildWindowWith: builder specs: { (self topConstantHeightFrame: self textViewHeight + self viewSpacing fromLeft: 0 width: 1) -> [self buildTextInputWith: builder]. (self frameOffsetFromTop: self textViewHeight + self viewSpacing fromLeft: 0.25 width: 0.75 offsetFromBottom: 0) -> [self buildFileListWith: builder]. (self frameOffsetFromTop: self textViewHeight + self viewSpacing fromLeft: 0 width: 0.25 offsetFromBottom: 0) -> [self buildDirectoryTreeWith: builder]. }. windowSpec buttons addAll: ( self buildButtonsWith: builder ). window := builder build: windowSpec. window addKeyboardCaptureFilter: self. self changed: #selectedPath. self inputText: fileName. + window positionOverWidgetNamed: #inputText. ^window ! Item was added: + ----- Method: FileSaverDialog>>contentsSelection (in category 'ui details') ----- + contentsSelection + ^ 1 to: 9999! Item was changed: ----- Method: FileSaverDialog>>inputText: (in category 'filename') ----- inputText: aText + "Initialize the filename entry field to aString. If a file with that name already exists, set up to highlight it." + fileName := aText asString. + self selectExistingFilename! - "user has entered a potential filename in the text field. - Check it against the current pattern; if it is ok we can accept it and then if it is a file in - the current list, highlight it. - If it would not match the pattern, alert the user as best we can" - | candidate | - candidate := aText asString. - (patternList anySatisfy: [:p | p match: candidate]) - ifTrue: [fileName := candidate. - listIndex := nameList findFirst: [:nm | nm = fileName]. - self changed: #fileListIndex. - ^true] - ifFalse: [fileName := nil. - self changed: #flash. - ^false]! Item was added: + ----- Method: FileSaverDialog>>selectExistingFilename (in category 'private') ----- + selectExistingFilename + "Answer whether an existing file in the list matches my proposed filename, selecting it if it does." + ^ (patternList anySatisfy: + [ : each | (each + compare: fileName + caseSensitive: FileDirectory default isCaseSensitive) = 2 ]) + and: + [ listIndex := nameList findFirst: [ : each | each = fileName ]. + true ]! Item was added: + ----- Method: FileSaverDialog>>selectFilename: (in category 'filename') ----- + selectFilename: aText + "The user has entered a potential filename in the text field. Check it against the current pattern; if it is ok we can accept it and then if it is a file in the current list, highlight it. If it would not match the pattern, alert the user." + fileName := aText asString. + ^ self selectExistingFilename + ifTrue: + [ self changed: #fileListIndex. + true ] + ifFalse: + [ suffixList size = 1 + ifTrue: + [ fileName := fileName , '.' , suffixList first. + true ] + ifFalse: + [ suffixList + at: + (UIManager default + chooseFrom: suffixList + title: 'Please choose the type of file to save.') + ifPresent: + [ : choice | fileName := fileName , '.' , choice. + true ] + ifAbsent: + [ fileName := nil. + UIManager default inform: 'WARNING: File not saved!! A filename matching one of ' , patternList asArray asString , ' patterns is required.'. + false ] ] ]!

1 0

The Trunk: Morphic-cmm.1407.mcz
by commits＠source.squeak.org 31 Mar '18

31 Mar '18

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1407.mcz ==================== Summary ==================== Name: Morphic-cmm.1407 Author: cmm Time: 30 March 2018, 5:59:05.775759 pm UUID: d60bae6d-7ac8-4ac6-90d4-ef2adbbe7d68 Ancestors: Morphic-mt.1406 - Allow particular subwidgets of dialogs to be positioned directly under hand instead of only under the center of the entire dialog (under the hand). - Fix for PluggableMultiColumnListMorph when Smart Splitters is enabled. =============== Diff against Morphic-mt.1406 =============== Item was changed: ----- Method: DialogWindow>>getUserResponse (in category 'running') ----- getUserResponse | hand world | (ProvideAnswerNotification signal: self message asString) ifNotNil: [:answer| ^ answer = #default ifTrue: [result] ifFalse: [answer]]. self message ifEmpty: [messageMorph delete]. "Do not waste space." self paneMorph submorphs ifEmpty: [self paneMorph delete]. "Do not waste space." hand := self currentHand. world := self currentWorld. self fullBounds. + self moveToPreferredPosition. - self center: preferredPosition. - self bounds: (self bounds translatedToBeWithin: world bounds). self openInWorld: world. hand showTemporaryCursor: nil. "Since we are out of context, reset the cursor." hand keyboardFocus in: [:priorKeyboardFocus | self exclusive ifTrue: [hand newMouseFocus: self]. hand newKeyboardFocus: self. [self isInWorld] whileTrue:[world doOneSubCycle]. hand newKeyboardFocus: priorKeyboardFocus. hand releaseMouseFocus]. ^ result! Item was changed: ----- Method: DialogWindow>>getUserResponseAtHand (in category 'running') ----- getUserResponseAtHand + "Remove unnecessary widgets." + self message ifEmpty: [ messageMorph delete ]. + self paneMorph submorphs ifEmpty: [ self paneMorph delete ]. + "Modal dialogs must be as convenient as possible, put default button directly under hand." + self + ensureSelectedButton ; + preferredPosition: self selectedButton. + ^ self getUserResponse! - - ^ self getUserResponseAtHand: ActiveHand! Item was removed: - ----- Method: DialogWindow>>getUserResponseAtHand: (in category 'running') ----- - getUserResponseAtHand: aHand - - self message ifEmpty: [messageMorph delete]. "Do not waste space." - self paneMorph submorphs ifEmpty: [self paneMorph delete]. "Do not waste space." - - self moveSelectedButtonToHand: aHand. - ^ self getUserResponse! Item was removed: - ----- Method: DialogWindow>>moveSelectedButtonToHand: (in category 'position') ----- - moveSelectedButtonToHand: aHand - "Just let the user confirm the selected button without having to reposition the mouse." - - self ensureSelectedButton. - self moveTo: self fullBounds center + (aHand position - self selectedButton center).! Item was removed: - ----- Method: DialogWindow>>moveTo: (in category 'position') ----- - moveTo: position - - preferredPosition := position.! Item was changed: ----- Method: DialogWindow>>moveToHand: (in category 'position') ----- + moveToHand: aHand + self preferredPosition: aHand position! - moveToHand: aHand - - self moveTo: aHand position.! Item was added: + ----- Method: DialogWindow>>moveToPreferredPosition (in category 'initialization') ----- + moveToPreferredPosition + self center: + (preferredPosition isPoint + ifTrue: [ preferredPosition ] + ifFalse: [ self center + ActiveHand position - preferredPosition center ]). + self bounds: (self bounds translatedToBeWithin: self currentWorld bounds)! Item was added: + ----- Method: DialogWindow>>positionOverWidgetNamed: (in category 'initialization') ----- + positionOverWidgetNamed: nameSymbol + self allMorphsDo: + [ : each | each knownName = nameSymbol ifTrue: [ self preferredPosition: each ] ]! Item was added: + ----- Method: DialogWindow>>preferredPosition: (in category 'position') ----- + preferredPosition: aPointOrMorph + "Specify that the dialog should be positioned at an absolute Point on the screen, or the particular Morph widget which should be positioned under the hand." + preferredPosition := aPointOrMorph! Item was changed: ----- Method: FillInTheBlankMorph class>>request:initialAnswer:centerAt:inWorld:onCancelReturn:acceptOnCR:answerExtent: (in category 'instance creation') ----- request: queryString initialAnswer: defaultAnswer centerAt: aPoint inWorld: aWorld onCancelReturn: returnOnCancel acceptOnCR: acceptBoolean answerExtent: answerExtent "Create an instance of me whose question is queryString with the given initial answer. Invoke it centered at the given point, and answer the string the user accepts. If the user cancels, answer returnOnCancel." "FillInTheBlankMorph request: 'Type something, then type CR.' initialAnswer: 'yo ho ho!!' centerAt: Display center" | aFillInTheBlankMorph | aFillInTheBlankMorph := self new setQuery: queryString initialAnswer: defaultAnswer answerExtent: answerExtent acceptOnCR: acceptBoolean. aFillInTheBlankMorph createAcceptButton action: [aFillInTheBlankMorph textPane accept]. aFillInTheBlankMorph createCancelButton action: [aFillInTheBlankMorph closeDialog: returnOnCancel]. + aFillInTheBlankMorph preferredPosition: aPoint. - aFillInTheBlankMorph moveTo: aPoint. ^ aFillInTheBlankMorph getUserResponse ! Item was changed: ----- Method: FillInTheBlankMorph class>>requestPassword:initialAnswer:centerAt:inWorld:onCancelReturn:acceptOnCR: (in category 'instance creation') ----- requestPassword: queryString initialAnswer: defaultAnswer centerAt: aPoint inWorld: aWorld onCancelReturn: returnOnCancel acceptOnCR: acceptBoolean "Create an instance of me whose question is queryString with the given initial answer. Invoke it centered at the given point, and answer the string the user accepts. If the user cancels, answer returnOnCancel." "FillInTheBlankMorph request: 'Type something, then type CR.' initialAnswer: 'yo ho ho!!' centerAt: Display center" | aFillInTheBlankMorph | aFillInTheBlankMorph := self new setPasswordQuery: queryString initialAnswer: defaultAnswer answerHeight: 50 acceptOnCR: acceptBoolean. aFillInTheBlankMorph createAcceptButton action: [aFillInTheBlankMorph textPane accept]. aFillInTheBlankMorph createCancelButton action: [aFillInTheBlankMorph closeDialog: returnOnCancel]. + aFillInTheBlankMorph preferredPosition: aPoint. - aFillInTheBlankMorph moveTo: aPoint. ^ aFillInTheBlankMorph getUserResponse! Item was added: + ----- Method: PluggableMultiColumnListMorph>>charactersOccluded (in category 'private') ----- + charactersOccluded + "Not meaningful in multi-column lists, since they should truncate their column widths according to how much space is needed vs. available to show a bit of each." + ^ 0! Item was changed: ----- Method: UserDialogBoxMorph class>>confirm:orCancel:title:at: (in category 'utilities') ----- confirm: aString orCancel: cancelBlock title: titleString at: aPointOrNil (self new title: titleString; message: aString; createButton: 'Yes' translated value: true; createButton: 'No' translated value: false; createButton: 'Cancel' translated value: nil; selectedButtonIndex: 1; "YES" registerKeyboardShortcuts; yourself) in: [:dialog | ^ (aPointOrNil ifNil: [dialog getUserResponseAtHand] ifNotNil: [ + dialog preferredPosition: aPointOrNil. - dialog moveTo: aPointOrNil. dialog getUserResponse]) ifNil: [ cancelBlock value ]]! Item was changed: ----- Method: UserDialogBoxMorph class>>confirm:title:trueChoice:falseChoice:at: (in category 'utilities') ----- confirm: aString title: titleString trueChoice: trueChoice falseChoice: falseChoice at: aPointOrNil "UserDialogBoxMorph confirm: 'Make your choice carefully' withCRs title: 'Do you like chocolate?' trueChoice: 'Oh yessir!!' falseChoice: 'Not so much...'" ^self new title: titleString; message: aString; createButton: trueChoice translated value: true; createCancelButton: falseChoice translated value: false; selectedButtonIndex: 1; registerKeyboardShortcuts; + preferredPosition: (aPointOrNil ifNil: [ActiveWorld center]); - moveTo: (aPointOrNil ifNil: [ActiveWorld center]); getUserResponse! Item was changed: ----- Method: UserDialogBoxMorph class>>confirm:title:trueChoice:falseChoice:default:triggerAfter:at: (in category 'utilities') ----- confirm: aString title: titleString trueChoice: trueChoice falseChoice: falseChoice default: default triggerAfter: seconds at: aPointOrNil "UserDialogBoxMorph confirm: 'I like hot java' title: 'What do you say?' trueChoice: 'You bet!!' falseChoice: 'Nope' default: false triggerAfter: 12 at: 121@212" ^self new title: titleString; message: aString; createButton: trueChoice translated value: true; createCancelButton: falseChoice translated value: false; selectedButtonIndex: (default ifTrue: [1] ifFalse: [2]); registerKeyboardShortcuts; + preferredPosition: (aPointOrNil ifNil: [ActiveWorld center]); - moveTo: (aPointOrNil ifNil: [ActiveWorld center]); getUserResponseAfter: seconds!

1 0

The Trunk: Collections-cmm.785.mcz
by commits＠source.squeak.org 31 Mar '18

31 Mar '18

Chris Muller uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-cmm.785.mcz ==================== Summary ==================== Name: Collections-cmm.785 Author: cmm Time: 30 March 2018, 5:57:37.727038 pm UUID: 37e9870a-5379-4185-8538-fada710dad5d Ancestors: Collections-eem.784 Add #at:ifPresent:ifAbsent: for API compatibility with other kinds of directly-accessible Collections. =============== Diff against Collections-eem.784 =============== Item was added: + ----- Method: SequenceableCollection>>at:ifPresent:ifAbsent: (in category 'accessing') ----- + at: index ifPresent: elementBlock ifAbsent: exceptionBlock + "Answer the value of elementBlock on the element at position index. If I do not contain an element at index, answer the result of evaluating exceptionBlock." + ^ elementBlock value: + (self + at: index + ifAbsent: [ ^ exceptionBlock value ])!

1 0

The Trunk: System-cmm.1009.mcz
by commits＠source.squeak.org 31 Mar '18

31 Mar '18

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.1009.mcz ==================== Summary ==================== Name: System-cmm.1009 Author: cmm Time: 30 March 2018, 5:47:41.207216 pm UUID: fce32aff-3701-47be-9d68-125ede7bed60 Ancestors: System-mt.1008 Modernize the fonts of my Community Dark theme to better accomodate larger displays. =============== Diff against System-mt.1008 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkFonts: (in category 'instance creation') ----- addDarkFonts: aUserInterfaceTheme "Set-up fonts." aUserInterfaceTheme + set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis italic emphasisCode); + set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); + set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12); + set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode); - set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis italic emphasisCode); - set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); + set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12); + set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12); + set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12); + set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12 emphasized: TextEmphasis bold emphasisCode)! - set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode)!

1 0

The Trunk: Morphic-mt.1406.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1406.mcz ==================== Summary ==================== Name: Morphic-mt.1406 Author: mt Time: 29 March 2018, 2:40:42.042957 pm UUID: 961c7e17-5ab5-844d-91b3-c8ccfbe623fd Ancestors: Morphic-mt.1405 Deprecate *Colorized: messages because of the newer Form >> #dyed: message. =============== Diff against Morphic-mt.1405 =============== Item was removed: - ----- Method: MenuIcons class>>checkBoxOffColorized: (in category 'accessing - icons') ----- - checkBoxOffColorized: aColor - - ^ self checkBoxOff - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>checkBoxOnColorized: (in category 'accessing - icons') ----- - checkBoxOnColorized: aColor - - ^ self checkBoxOn - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>checkBoxPressedColorized: (in category 'accessing - icons') ----- - checkBoxPressedColorized: aColor - - ^ self checkBoxPressed - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>fullscreenWireframeIconColorized: (in category 'accessing - icons') ----- - fullscreenWireframeIconColorized: aColor - - ^ self fullscreenWireframeIcon - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>radioButtonOffColorized: (in category 'accessing - icons') ----- - radioButtonOffColorized: aColor - - ^ self radioButtonOff - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>radioButtonOnColorized: (in category 'accessing - icons') ----- - radioButtonOnColorized: aColor - - ^ self radioButtonOn - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>radioButtonPressedColorized: (in category 'accessing - icons') ----- - radioButtonPressedColorized: aColor - - ^ self radioButtonPressed - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>squeakLogoIconColorized: (in category 'accessing - icons') ----- - squeakLogoIconColorized: aColor - - ^ self squeakLogoIcon - collectColors: [:c | aColor alpha: c alpha]! Item was removed: - ----- Method: MenuIcons class>>subMenuMarkerColorized: (in category 'accessing - icons') ----- - subMenuMarkerColorized: aColor - - ^ self subMenuMarker - collectColors: [:c | aColor alpha: c alpha]!

1 0

The Trunk: 60Deprecated-mt.12.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.12.mcz ==================== Summary ==================== Name: 60Deprecated-mt.12 Author: mt Time: 29 March 2018, 2:38:37.422957 pm UUID: 90b410a3-4c46-894a-b994-967911ba8abd Ancestors: 60Deprecated-eem.11 Deprecate *Colorized: messages because of the newer Form >> #dyed: message. =============== Diff against 60Deprecated-eem.11 =============== Item was added: + ----- Method: MenuIcons class>>checkBoxOffColorized: (in category '*60Deprecated') ----- + checkBoxOffColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self checkBoxOff dyed: aColor! Item was added: + ----- Method: MenuIcons class>>checkBoxOnColorized: (in category '*60Deprecated') ----- + checkBoxOnColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self checkBoxOn dyed: aColor! Item was added: + ----- Method: MenuIcons class>>checkBoxPressedColorized: (in category '*60Deprecated') ----- + checkBoxPressedColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self checkBoxPressed dyed: aColor! Item was added: + ----- Method: MenuIcons class>>fullscreenWireframeIconColorized: (in category '*60Deprecated') ----- + fullscreenWireframeIconColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self fullscreenWireframeIcon dyed: aColor! Item was added: + ----- Method: MenuIcons class>>radioButtonOffColorized: (in category '*60Deprecated') ----- + radioButtonOffColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self radioButtonOff dyed: aColor! Item was added: + ----- Method: MenuIcons class>>radioButtonOnColorized: (in category '*60Deprecated') ----- + radioButtonOnColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self radioButtonOn dyed: aColor! Item was added: + ----- Method: MenuIcons class>>radioButtonPressedColorized: (in category '*60Deprecated') ----- + radioButtonPressedColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self radioButtonPressed dyed: aColor! Item was added: + ----- Method: MenuIcons class>>squeakLogoIconColorized: (in category '*60Deprecated') ----- + squeakLogoIconColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self squeakLogoIcon dyed: aColor! Item was added: + ----- Method: MenuIcons class>>subMenuMarkerColorized: (in category '*60Deprecated') ----- + subMenuMarkerColorized: aColor + + self deprecated: 'Use Form >> #dyed: to dye forms.'. + ^ self subMenuMarker dyed: aColor!

1 0

The Trunk: Morphic-mt.1405.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1405.mcz ==================== Summary ==================== Name: Morphic-mt.1405 Author: mt Time: 29 March 2018, 2:34:02.381957 pm UUID: afa48519-1b10-634d-8ffc-40ae0f4db608 Ancestors: Morphic-mt.1404 Make use of new #dyed: message in forms to dye forms. =============== Diff against Morphic-mt.1404 =============== Item was changed: ----- Method: MenuItemMorph class>>defaultSubMenuMarker (in category 'defaults') ----- defaultSubMenuMarker + ^ MenuIcons subMenuMarker dyed: ((UserInterfaceTheme current get: #textColor for: self) ifNil: [Color black]).! - ^ MenuIcons subMenuMarkerColorized: ((UserInterfaceTheme current get: #textColor for: self) ifNil: [Color black]).! Item was changed: ----- Method: MenuItemMorph>>offImage (in category 'private') ----- offImage "Return the form to be used for indicating an '<off>' marker" + ^ MenuIcons checkBoxOff dyed: (self userInterfaceTheme textColor ifNil: [Color black])! - ^ MenuIcons checkBoxOffColorized: (self userInterfaceTheme textColor ifNil: [Color black])! Item was changed: ----- Method: MenuItemMorph>>onImage (in category 'private') ----- onImage "Return the form to be used for indicating an '<on>' marker" + ^ MenuIcons checkBoxOn dyed: (self userInterfaceTheme textColor ifNil: [Color black])! - ^ MenuIcons checkBoxOnColorized: (self userInterfaceTheme textColor ifNil: [Color black])! Item was changed: ----- Method: TheWorldMainDockingBar>>squeakMenuOn: (in category 'construction') ----- squeakMenuOn: aDockingBar "Private - fill the given docking bar" aDockingBar addItem: [ :item | item contents: ''; + icon: (MenuIcons squeakLogoIcon dyed: - icon: (MenuIcons squeakLogoIconColorized: (self userInterfaceTheme logoColor ifNil: [Color black])); + selectedIcon: (MenuIcons squeakLogoIcon dyed: - selectedIcon: (MenuIcons squeakLogoIconColorized: (self userInterfaceTheme selectionLogoColor ifNil: [Color white])); addSubMenu: [ :menu | self aboutMenuItemOn: menu; updateMenuItemOn: menu. menu addLine. self saveMenuItemOn: menu; saveAsMenuItemOn: menu; saveAsNewVersionMenuItemOn: menu. menu addLine. self saveAndQuitMenuItemOn: menu; quitMenuItemOn: menu ] ]! Item was changed: ----- Method: TheWorldMainDockingBar>>toggleFullScreenOn: (in category 'right side') ----- toggleFullScreenOn: aDockingBar | toggleMorph onIcon offIcon box bgColor | + offIcon := MenuIcons fullscreenWireframeIcon dyed: - offIcon := MenuIcons fullscreenWireframeIconColorized: (self userInterfaceTheme logoColor ifNil: [Color black]). + onIcon := MenuIcons fullscreenWireframeIcon dyed: - onIcon := MenuIcons fullscreenWireframeIconColorized: (self userInterfaceTheme selectionLogoColor ifNil: [Color white]). bgColor := (UserInterfaceTheme current get: #selectionColor for: #DockingBarItemMorph) ifNil: [Color blue]. toggleMorph := offIcon asMorph. box := Morph new color: Color transparent; hResizing: #shrinkWrap; vResizing: #spaceFill; listCentering: #center; width: toggleMorph width; changeTableLayout; borderWidth: 1; borderColor: Color transparent; balloonText: 'toggle full screen mode' translated; addMorph: toggleMorph. toggleMorph setToAdhereToEdge: #rightCenter. box on: #mouseUp send: #value to: [ DisplayScreen toggleFullScreen. "toggleMorph image: MenuIcons smallFullscreenOffIcon" ] ; on: #mouseEnter send: #value to: [ toggleMorph image: onIcon. box color: bgColor; borderColor: bgColor]; on: #mouseLeave send: #value to: [ toggleMorph image: offIcon. box color: Color transparent; borderColor: Color transparent]. aDockingBar addMorphBack: box! Item was changed: ----- Method: ThreePhaseButtonMorph class>>checkBox (in category 'instance creation') ----- checkBox "Answer a button pre-initialized with checkbox images." | f | ^self new + onImage: (f := MenuIcons checkBoxOn dyed: Color red); + pressedImage: (MenuIcons checkBoxPressed dyed: Color black); + offImage: (MenuIcons checkBoxOff dyed: Color black); - onImage: (f := MenuIcons checkBoxOnColorized: Color red); - pressedImage: (MenuIcons checkBoxPressedColorized: Color black); - offImage: (MenuIcons checkBoxOffColorized: Color black); extent: f extent + (2@0); setDefaultParameters; yourself ! Item was changed: ----- Method: ThreePhaseButtonMorph class>>radioButton (in category 'instance creation') ----- radioButton "Answer a button pre-initialized with radiobutton images." | f | ^self new + onImage: (f := MenuIcons radioButtonOn dyed: Color black); + pressedImage: (MenuIcons radioButtonPressed dyed: Color black); + offImage: (MenuIcons radioButtonOff dyed: Color black); - onImage: (f := MenuIcons radioButtonOnColorized: Color black); - pressedImage: (MenuIcons radioButtonPressedColorized: Color black); - offImage: (MenuIcons radioButtonOffColorized: Color black); extent: f extent + (2@0); setDefaultParameters; yourself !

1 0

The Trunk: Graphics-mt.395.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.395.mcz ==================== Summary ==================== Name: Graphics-mt.395 Author: mt Time: 29 March 2018, 2:31:08.332957 pm UUID: 0f0f6d41-5000-fe41-9970-5a08bf0f66b1 Ancestors: Graphics-tcj.394 New support message to dye forms. To be used for our mono icons for UI themes. Implementation might be improved in the future to also dye non-mono, rich-color forms. =============== Diff against Graphics-tcj.394 =============== Item was added: + ----- Method: Form>>dyed: (in category 'converting') ----- + dyed: aColor + "Dye this form with the given color. For now, the alpha channel should be sufficient to preserve the meaning of the form." + + ^ self collectColors: [:ea | aColor alpha: ea alpha]!

1 0

The Trunk: Morphic-mt.1404.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1404.mcz ==================== Summary ==================== Name: Morphic-mt.1404 Author: mt Time: 29 March 2018, 10:02:19.017053 am UUID: c6566b82-98cf-d247-9b7a-9792b583499d Ancestors: Morphic-mt.1403 Fix minor regression from last commit. Sorry. =============== Diff against Morphic-mt.1403 =============== Item was changed: ----- Method: ScrollPane>>drawOverlayOn: (in category 'drawing') ----- drawOverlayOn: aCanvas "Draw my border OVER my submorphs because the scrollbars overlap." - self borderStyle width = 0 ifTrue: [^ self]. - self wantsRoundedCorners ifTrue: [aCanvas frameRoundRect: self bounds radius: self cornerRadius width: self borderStyle width color: self borderStyle color] + ifFalse: [aCanvas frameRectangle: self bounds width: self borderStyle width color: self borderStyle color]. + + super drawOverlayOn: aCanvas.! - ifFalse: [aCanvas frameRectangle: self bounds width: self borderStyle width color: self borderStyle color].!

1 0

The Trunk: System-mt.1008.mcz
by commits＠source.squeak.org 29 Mar '18

29 Mar '18

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1008.mcz ==================== Summary ==================== Name: System-mt.1008 Author: mt Time: 29 March 2018, 9:40:40.867053 am UUID: 8ccebea8-0f21-4144-855d-0017623a16d9 Ancestors: System-mt.1007 Support class-comment nagging color in all UI themes. =============== Diff against System-mt.1007 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkToolColors: (in category 'instance creation') ----- addDarkToolColors: theme "Tool-specific colors." theme set: #failureColor for: #TestRunner to: self dbYellow; set: #errorColor for: #TestRunner to: self dbRed; + set: #passColor for: #TestRunner to: self dbGreen. + + "Browser." + theme set: #noClassCommentColor for: #Browser to: self dbRed.! - set: #passColor for: #TestRunner to: self dbGreen.! Item was changed: ----- Method: MonokaiTheme class>>addDarkToolColors: (in category 'instance creation') ----- addDarkToolColors: theme "Tool-specific colors." theme set: #failureColor for: #TestRunner to: self yellow; set: #errorColor for: #TestRunner to: self red; set: #passColor for: #TestRunner to: self green; set: #failureTextColor for: #TestRunner to: self backgroundColor; set: #errorTextColor for: #TestRunner to: self backgroundColor; set: #passTextColor for: #TestRunner to: self backgroundColor. theme + set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self grayLight}. + + "Browser." + theme set: #noClassCommentColor for: #Browser to: self red.! - set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self grayLight}.! Item was changed: ----- Method: SolarizedTheme class>>addDarkToolColors: (in category 'instance creation') ----- addDarkToolColors: theme "Tool-specific colors." theme set: #failureColor for: #TestRunner to: self yellow; set: #errorColor for: #TestRunner to: self red; set: #passColor for: #TestRunner to: self green; set: #failureTextColor for: #TestRunner to: self darkBackground; set: #errorTextColor for: #TestRunner to: self darkBackground; set: #passTextColor for: #TestRunner to: self darkBackground. theme + set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self darkContentSecondary}. + + "Browser." + theme set: #noClassCommentColor for: #Browser to: self red.! - set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self darkContentSecondary}.! Item was changed: ----- Method: SolarizedTheme class>>addLightToolColors: (in category 'instance creation') ----- addLightToolColors: theme "Tool-specific colors." theme set: #failureColor for: #TestRunner to: self yellow; set: #errorColor for: #TestRunner to: self red; set: #passColor for: #TestRunner to: self green; set: #failureTextColor for: #TestRunner to: self lightBackground; set: #errorTextColor for: #TestRunner to: self lightBackground; set: #passTextColor for: #TestRunner to: self lightBackground. theme + set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self lightContentSecondary}. + + "Browser." + theme set: #noClassCommentColor for: #Browser to: self red.! - set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self lightContentSecondary}.! Item was changed: ----- Method: SqueakTheme class>>addToolColors: (in category 'instance creation') ----- addToolColors: theme "Tool-specific colors." "SUnit's TestRunner." theme set: #failureColor for: #TestRunner to: Color yellow; set: #errorColor for: #TestRunner to: Color red; set: #passColor for: #TestRunner to: Color green; derive: #failureTextColor for: #TestRunner from: #PluggableTextMorph at: #textColor; derive: #errorTextColor for: #TestRunner from: #PluggableTextMorph at: #textColor; derive: #passTextColor for: #TestRunner from: #PluggableTextMorph at: #textColor. "Monticello Tools." theme set: #revertedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis struckOut}; set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: Color gray}. "set: #rejectedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis struckOut}; set: #acceptedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis underlined}; set: #conflictingOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis bold}." "Halos." theme derive: #borderColor for: #HaloMorph from: #MenuItemMorph at: #selectionColor do: [:c | c alpha: 0.8]; derive: #borderColor for: #SelectionMorph from: #MenuItemMorph at: #selectionColor do: [:c | c twiceDarker alpha: 0.75]; + derive: #color for: #SelectionMorph from: #MenuItemMorph at: #selectionColor do: [:c | c alpha: 0.08]. + + "Browser." + theme set: #noClassCommentColor for: #Browser to: Color red.! - derive: #color for: #SelectionMorph from: #MenuItemMorph at: #selectionColor do: [:c | c alpha: 0.08].!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2018