Packages March 2020

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: ToolBuilder-Morphic-mt.254.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.254.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.254 Author: mt Time: 5 March 2020, 1:26:05.319611 pm UUID: 45169801-abd8-8f48-b2e8-685ab7516e3d Ancestors: ToolBuilder-Morphic-ct.253 Removes some static configuration of alternate multi-selection list, which is not used anymore and which triggered a deprecated message send. =============== Diff against ToolBuilder-Morphic-ct.253 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableAlternateMultiSelectionList: (in category 'widgets optional') ----- buildPluggableAlternateMultiSelectionList: aSpec | listMorph listClass | aSpec getSelected ifNotNil: [ ^ self error: 'There is no PluggableAlternateListMorphOfManyByItem' ]. listClass := self alternateMultiSelectListClass. listMorph := listClass on: aSpec model list: aSpec list primarySelection: aSpec getIndex changePrimarySelection: aSpec setIndex listSelection: aSpec getSelectionList changeListSelection: aSpec setSelectionList menu: aSpec menu. listMorph setProperty: #highlightSelector toValue: #highlightMessageList:with: ; - setProperty: #itemConversionMethod toValue: #asStringOrText ; - setProperty: #balloonTextSelectorForSubMorphs toValue: #balloonTextForClassAndMethodString ; enableDragNDrop: SystemBrowser browseWithDragNDrop ; menuTitleSelector: #messageListSelectorTitle. self register: listMorph id: aSpec name. listMorph keystrokeActionSelector: aSpec keyPress ; getListElementSelector: aSpec listItem ; getListSizeSelector: aSpec listSize; getIconSelector: aSpec icon; getHelpSelector: aSpec helpItem. self buildHelpFor: listMorph spec: aSpec. self setFrame: aSpec frame in: listMorph. self setLayoutHintsFor: listMorph spec: aSpec. parent ifNotNil: [ self add: listMorph to: parent ]. panes ifNotNil: [ aSpec list ifNotNil:[panes add: aSpec list ] ]. ^ listMorph!

1 0

The Trunk: MorphicExtras-mt.273.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.273.mcz ==================== Summary ==================== Name: MorphicExtras-mt.273 Author: mt Time: 5 March 2020, 1:24:04.938611 pm UUID: 9319611d-7c5b-fe48-b559-f7c85529475c Ancestors: MorphicExtras-mt.272 Use the current way to transform Text into an HTML string. =============== Diff against MorphicExtras-mt.272 =============== Item was changed: ----- Method: FancyMailComposition>>completeTheMessage (in category 'actions') ----- completeTheMessage | newText strm | textFields do: [ :each | each hasUnacceptedEdits ifTrue: [ each accept ] ]. newText := String new: 200. strm := WriteStream on: newText. strm nextPutAll: 'Content-Type: text/html'; cr; nextPutAll: 'From: ', MailSender userName; cr; nextPutAll: 'To: ',to; cr; nextPutAll: 'Subject: ',subject; cr; cr; nextPutAll: '<HTML><BODY><BR>'; + nextPutAll: messageText asStringToHtml; - nextPutAll: messageText asString asHtml; nextPutAll: '<BR><BR>',theLinkToInclude,'<BR></BODY></HTML>'. ^strm contents !

1 0

The Trunk: Morphic-mt.1634.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1634.mcz ==================== Summary ==================== Name: Morphic-mt.1634 Author: mt Time: 5 March 2020, 1:23:09.843611 pm UUID: 5c787d47-61df-6e45-87c8-4513a96c1ac9 Ancestors: Morphic-mt.1633 Updates some access to colors, which now resides in UI themes. I think most of those methods are not needed anymore. #textHighlightColor: got moved to 60Deprecated. =============== Diff against Morphic-mt.1633 =============== Item was changed: ----- Method: Morph class>>selectionBackground (in category 'defaults') ----- selectionBackground "The background for selected items in lists and tree-list thingies." ^ self subduedHilites ifTrue: [ + TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2 - Preferences textHighlightColor ] ifFalse: [ "This is tuned so the red-foreground used for list texts stays somewhat legible." Color r: 0.8 g:0.8 b: 0.81 alpha: 0.85 ]. ! Item was removed: - ----- Method: PluggableListMorph>>textHighlightColor (in category 'initialization') ----- - textHighlightColor - "Answer my default text highlight color." - ^self valueOfProperty: #textHighlightColor ifAbsent: [ self textColor negated ]. - ! Item was removed: - ----- Method: PluggableListMorph>>textHighlightColor: (in category 'initialization') ----- - textHighlightColor: aColor - "Set my default text highlight color." - self setProperty: #textHighlightColor toValue: aColor. - ! Item was changed: ----- Method: TextMorph class>>initialize (in category 'class initialization') ----- initialize "TextMorph initialize" "Initialize the default text editor class to use" DefaultEditorClass := SmalltalkEditor. "Initialize constants shared by classes associated with text display." CaretForm := (ColorForm extent: 16@5 fromArray: #(2r001100e26 2r001100e26 2r011110e26 2r111111e26 2r110011e26) offset: -2@0) + colors: (Array with: Color transparent with: (TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2)). - colors: (Array with: Color transparent with: Preferences textHighlightColor). self registerInFlapsRegistry. ! Item was changed: ----- Method: TheWorldMenu>>appearanceMenu (in category 'construction') ----- appearanceMenu "Build the appearance menu for the world." ^self fillIn: (self menu: 'appearance...') from: { {'preferences...' . { self . #openPreferencesBrowser} . 'Opens a "Preferences Browser" which allows you to alter many settings' } . {'choose set of preferences...' . { Preferences . #offerThemesMenu} . 'Presents you with a menu of sets or preferences; each item''s balloon-help will tell you about the particular set. If you choose one, many different preferences that come along are set at the same time; you can subsequently change any settings by using a Preferences Panel'} . nil . {'system fonts...' . { self . #standardFontDo} . 'Choose the standard fonts to use for code, lists, menus, window titles, etc.'}. - {'text highlight color...' . { Preferences . #chooseTextHighlightColor} . 'Choose which color should be used for text highlighting in Morphic.'}. - {'insertion point color...' . { Preferences . #chooseInsertionPointColor} . 'Choose which color to use for the text insertion point in Morphic.'}. - {'keyboard focus color' . { Preferences . #chooseKeyboardFocusColor} . 'Choose which color to use for highlighting which pane has the keyboard focus'}. nil. {#menuColorString . { self . #toggleMenuColorPolicy} . 'Governs whether menu colors should be derived from the desktop color.'}. {#roundedCornersString . { self . #toggleRoundedCorners} . 'Governs whether morphic windows and menus should have rounded corners.'}. nil. {'full screen on' . { DisplayScreen . #fullScreenOn} . 'puts you in full-screen mode, if not already there.'}. {'full screen off' . { DisplayScreen . #fullScreenOff} . 'if in full-screen mode, takes you out of it.'}. nil. {'set display depth...' . {self. #setDisplayDepth} . 'choose how many bits per pixel.'}. {'set desktop color...' . {self. #changeBackgroundColor} . 'choose a uniform color to use as desktop background.'}. {'set gradient color...' . {self. #setGradientColor} . 'choose second color to use as gradient for desktop background.'}. {'use texture background' . { #myWorld . #setStandardTexture} . 'apply a graph-paper-like texture background to the desktop.'}. nil. {'clear turtle trails from desktop' . { #myWorld . #clearTurtleTrails} . 'remove any pigment laid down on the desktop by objects moving with their pens down.'}. {'pen-trail arrowhead size...' . { Preferences. #setArrowheads} . 'choose the shape to be used in arrowheads on pen trails.'}. }!

1 0

The Trunk: EToys-mt.386.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.386.mcz ==================== Summary ==================== Name: EToys-mt.386 Author: mt Time: 5 March 2020, 1:21:10.351611 pm UUID: 86fc41a2-1bfb-7f43-95be-515947b458e1 Ancestors: EToys-mt.385 Removes more deprecated message sends. Adds some new deprecations. =============== Diff against EToys-mt.385 =============== Item was changed: ----- Method: CategoryViewer>>addNamePaneTo: (in category 'header pane') ----- addNamePaneTo: header "Add the namePane, which is a pop-up" | triangle aLabel | namePane := BorderedMorph new. namePane layoutPolicy: TableLayout new. namePane hResizing: #spaceFill. namePane listDirection: #leftToRight. namePane wrapCentering: #center. namePane cellInset: 2. namePane layoutInset: 6 @ 0. namePane color: ScriptingSystem baseColor. + namePane borderColor: (self userInterfaceTheme titleBorderColor - namePane borderColor: (self userInterfaceTheme menuTitleBorderColor ifNil: [(Color r: 0.6 g: 0.7 b: 1)]). namePane borderWidth: 0. namePane height: TileMorph defaultH. namePane useRoundedCornersInEtoys. triangle := ImageMorph new image: (ScriptingSystem formAtKey: #MenuTriangle). namePane addMorph: triangle. aLabel := StringMorph contents: '---------' font: ScriptingSystem fontForViewerCategoryPopups. namePane addMorphBack: aLabel. namePane on: #mouseDown send: #chooseCategory to: self. header addMorphBack: namePane! Item was changed: ----- Method: CharRecog>>recogPar (in category 'historical & disused') ----- recogPar | prv cdir result features char r s t dir | "Inits" (p := Pen new) defaultNib: 1; down. "for points" pts := ReadWriteStream on: #(). "Event Loop" + [EventSensor default anyButtonPressed] whileFalse: [(EventSensor default peekPosition x < 50) ifTrue: [^''].]. - [Sensor anyButtonPressed] whileFalse: [(Sensor mousePoint x < 50) ifTrue: [^''].]. "First-Time" pts reset. "will hold features" ftrs := ''. + (EventSensor default anyButtonPressed) ifTrue: + [pts nextPut: (bmin := bmax := t := s := sts := EventSensor default peekPosition). - (Sensor anyButtonPressed) ifTrue: - [pts nextPut: (bmin := bmax := t := s := sts := Sensor mousePoint). p place: sts. cdir := nil. + "Each-Time" [EventSensor default anyButtonPressed] whileTrue: - "Each-Time" [Sensor anyButtonPressed] whileTrue: [ + "ink raw input" p goto: (r := EventSensor default peekPosition). - "ink raw input" p goto: (r := Sensor mousePoint). "smooth it" s := (0.5*s) + (0.5*r). "thin the stream" ((s x - t x) abs > 3 or:[(s y - t y) abs > 3]) ifTrue: [ pts nextPut: t. "bounding box" bmin := bmin min: s. bmax := bmax max: s. "get current dir" dir := (self fourDirsFrom: t to: s). t := s. dir ~= ' dot... ' ifTrue: [ "store new dirs" cdir ~= dir ifTrue: [ftrs := ftrs, (cdir := dir)]]. "for inked t's" p place: t; go: 1; place: r. ]. "End Each-Time Loop" ]. "Last-Time" "start a new recog for next point" [CharRecog new recognize] fork. "save last points" pts nextPut: t; nextPut: r. "find rest of features" features := self extractFeatures. "find char..." char := CharacterDictionary at: features ifAbsent: "...or get from user" [ result := FillInTheBlank request: 'Not recognized. type char, or type ~: ', features. "ignore or..." result = '~' ifTrue: [''] "...enter new char" ifFalse: [CharacterDictionary at: features put: result. result]]. "control the editor" (char = 'cr' ifTrue: [Transcript cr] ifFalse: [char = 'bs' ifTrue: [Transcript bs] ifFalse: [char = 'tab' ifTrue:[Transcript tab] ifFalse: [Transcript show: char]]]). "End First-Time Loop" ]. ! Item was changed: ----- Method: CharRecog>>recognize (in category 'historical & disused') ----- recognize | prv cdir result features char r s t dir | "Alan Kay's recognizer as of 1/31/96. This version preserved for historical purposes, and also because it's still called by the not-yet-deployed method recogPar. Within the current image, the recognizer is now called via #recognizeAndDispatch:until:" "Inits" (p := Pen new) defaultNib: 1; down. "for points" pts := ReadWriteStream on: #(). "Event Loop" + [(EventSensor default peekPosition x) < 50] whileFalse: - [(Sensor mousePoint x) < 50] whileFalse: "First-Time" [pts reset. "will hold features" ftrs := ''. + (EventSensor default anyButtonPressed) ifTrue: + [pts nextPut: (bmin := bmax := t := s := sts := EventSensor default peekPosition). - (Sensor anyButtonPressed) ifTrue: - [pts nextPut: (bmin := bmax := t := s := sts := Sensor mousePoint). p place: sts. cdir := nil. + "Each-Time" [EventSensor default anyButtonPressed] whileTrue: - "Each-Time" [Sensor anyButtonPressed] whileTrue: [ + "ink raw input" p goto: (r := EventSensor default peekPosition). - "ink raw input" p goto: (r := Sensor mousePoint). "smooth it" s := (0.5*s) + (0.5*r). "thin the stream" ((s x - t x) abs > 3 or:[(s y - t y) abs > 3]) ifTrue: [ pts nextPut: t. "bounding box" bmin := bmin min: s. bmax := bmax max: s. "get current dir" dir := (self fourDirsFrom: t to: s). t := s. dir ~= ' dot... ' ifTrue: [ "store new dirs" cdir ~= dir ifTrue: [ftrs := ftrs, (cdir := dir)]]. "for inked t's" p place: t; go: 1; place: r. ]. "End Each-Time Loop" ]. "Last-Time" "save last points" pts nextPut: t; nextPut: r. "find rest of features" features := self extractFeatures. "find char..." char := CharacterDictionary at: features ifAbsent: "...or get from user" [ result := FillInTheBlank request: 'Not recognized. type char, or type ~: ', features. "ignore or..." result = '~' ifTrue: [''] "...enter new char" ifFalse: [CharacterDictionary at: features put: result. result]]. "control the editor" (char = 'cr' ifTrue: [Transcript cr] ifFalse: [char = 'bs' ifTrue: [Transcript bs] ifFalse: [char = 'tab' ifTrue:[Transcript tab] ifFalse: [Transcript show: char]]]). "End First-Time Loop" ]. "End Event-Loop" ]. ! Item was changed: ----- Method: CharRecog>>recognizeAndDispatch:ifUnrecognized:until: (in category 'recognizer') ----- recognizeAndDispatch: charDispatchBlock ifUnrecognized: unrecognizedFeaturesBlock until: terminationBlock "Recognize characters, and dispatch each one found by evaluating charDispatchBlock; proceed until terminationBlock is true. This method derives directly from Alan's 1/96 #recognize method, but factors out the character dispatch and the termination condition from the main body of the method. 2/2/96 sw. 2/5/96 sw: switch to using a class variable for the character dictionary, and don't put vacuous entries in the dictionary if the user gives an empty response to the prompt, and don't send empty characters onward, and use a variant of the FillInTheBlank that keeps the prompt clear of the working window. 8/17/96 tk: Turn cr, tab, bs into strings so they work. 9/18/96 sw: in this variant, the block for handling unrecognized features is handed in as an argument, so that in some circumstances we can avoid putting up a prompt. unrecognizedFeaturesBlock should be a one-argument block, which is handed in the features and which is expected to return a string which indicates the determined translation -- empty if none." | prv cdir features char r s t dir | "Inits" (p := Pen new) defaultNib: 1; down. "for points" pts := ReadWriteStream on: #(). "Event Loop" [terminationBlock value] whileFalse: "First-Time" [pts reset. "will hold features" ftrs := ''. + (EventSensor default anyButtonPressed) ifTrue: + [pts nextPut: (bmin := bmax := t := s := sts := EventSensor default peekPosition). - (Sensor anyButtonPressed) ifTrue: - [pts nextPut: (bmin := bmax := t := s := sts := Sensor mousePoint). p place: sts. cdir := nil. + "Each-Time" [EventSensor default anyButtonPressed] whileTrue: + "ink raw input" [p goto: (r := EventSensor default peekPosition). - "Each-Time" [Sensor anyButtonPressed] whileTrue: - "ink raw input" [p goto: (r := Sensor mousePoint). "smooth it" s := (0.5*s) + (0.5*r). "thin the stream" ((s x - t x) abs > 3 or:[(s y - t y) abs > 3]) ifTrue: [pts nextPut: t. "bounding box" bmin := bmin min: s. bmax := bmax max: s. "get current dir" dir := (self fourDirsFrom: t to: s). t := s. dir ~= ' dot... ' ifTrue: "store new dirs" [cdir ~= dir ifTrue: [ftrs := ftrs, (cdir := dir)]]. "for inked t's" p place: t; go: 1; place: r]]. "End Each-Time Loop" "Last-Time" "save last points" pts nextPut: t; nextPut: r. "find rest of features" features := self extractFeatures. "find char..." char := CharacterDictionary at: features ifAbsent: [unrecognizedFeaturesBlock value: features]. "special chars" char size > 0 ifTrue: [char = 'tab' ifTrue: [char := Tab]. char = 'cr' ifTrue: [char := CR]. "must be a string" char class == Character ifTrue: [char := String with: char]. char = 'bs' ifTrue: [char := BS]. "control the editor" charDispatchBlock value: char]]] ! Item was changed: ----- Method: CharRecog>>recognizeAndPutInTranscript (in category 'historical & disused') ----- recognizeAndPutInTranscript "Call Alan's recognizer repeatedly until the mouse is near the left edge of the screen, and dispatch keystrokes inferred to the Trancript. 2/2/96 sw" ^ self recognizeAndDispatch: [:char | (char = 'cr') ifTrue: [Transcript cr] ifFalse: [char = 'bs' ifTrue: [Transcript bs] ifFalse: [char = 'tab' ifTrue:[Transcript tab] ifFalse: [Transcript show: char]]]] until: + [EventSensor default peekPosition x < 50] - [Sensor mousePoint x < 50] "CharRecog new recognizeAndPutInTranscript"! Item was changed: ----- Method: DocLibrary>>saveDocCheck: (in category 'doc pane') ----- saveDocCheck: aMorph "Make sure the document gets attached to the version of the code that the user was looking at. Is there a version of this method in a changeSet beyond the updates we know about? Works even when the user has internal update numbers and the documentation is for external updates (It always is)." | classAndMethod parts selector class lastUp beyond ours docFor unNum ok key verList ext response | classAndMethod := aMorph valueOfProperty: #classAndMethod. classAndMethod ifNil: [ ^ self error: 'need to know the class and method']. "later let user set it" parts := classAndMethod findTokens: ' .'. selector := parts last asSymbol. class := Smalltalk at: (parts first asSymbol) ifAbsent: [^ self saveDoc: aMorph]. parts size = 3 ifTrue: [class := class class]. "Four indexes we are looking for: docFor = highest numbered below lastUpdate that has method. unNum = a higher unnumbered set that has method. lastUp = lastUpdate we know about in methodVersions beyond = any set about lastUp that has the method." ChangeSet allChangeSets doWithIndex: [:cs :ind | "youngest first" + (cs name includesSubstring: lastUpdateName) ifTrue: [lastUp := ind]. - (cs name includesSubString: lastUpdateName) ifTrue: [lastUp := ind]. (cs atSelector: selector class: class) ~~ #none ifTrue: [ lastUp ifNotNil: [beyond := ind. ours := cs name] ifNil: [cs name first isDigit ifTrue: [docFor := ind] ifFalse: [unNum := ind. ours := cs name]]]]. "See if version the user sees is the version he is documenting" ok := beyond == nil. unNum ifNotNil: [docFor ifNotNil: [ok := docFor > unNum] ifNil: [ok := false]]. "old changeSets gone" ok ifTrue: [^ self saveDoc: aMorph]. key := DocLibrary properStemFor: classAndMethod. verList := (methodVersions at: key ifAbsent: [#()]), #(0 0). ext := verList first. "external update number we will write to" response := (PopUpMenu labels: 'Cancel\Broadcast Page' withCRs) startUpWithCaption: 'You are documenting a method in External Update ', ext asString, '.\There is a more recent version of that method in ' withCRs, ours, '.\If you are explaining the newer version, please Cancel.\Wait until that version appears in an External Update.' withCRs. response = 2 ifTrue: [self saveDoc: aMorph]. ! Item was changed: ----- Method: KedamaAttributeEvaluator>>sortDependencies (in category 'actions') ----- sortDependencies | t keys array | t := TopologicalSorter new. keys := attributedTree allOccurences contents. + dependencies keys do: [:key | - dependencies fasterKeys do: [:key | array := (dependencies at: key) contents. dependencies at: key put: array. ]. t collection: keys. t edges: dependencies. ^ t sort. ! Item was changed: ----- Method: PasteUpMorph class>>putativeAdditionsToViewerCategoryPlayfieldOptions (in category '*Etoys-Squeakland-eToys-scripting') ----- putativeAdditionsToViewerCategoryPlayfieldOptions "Answer playfield options additions. Some of these are not yet underpinned by code in the current image; these will follow in due course." ^ #(#'playfield options' ( (command roundUpStrays 'Bring back all objects whose current coordinates keep them from being visible, so that at least a portion of each of my interior objects can be seen.') (command makeFitContents 'Adjust my bounds so that I fit precisely around all the objects within me') (command showAllPlayers 'Make visible the viewers for all players which have user-written scripts in this playfield.') (command hideAllPlayers 'Make invisible the viewers for all players in this playfield. This will save space before you publish this project') (command shuffleSubmorphs 'Rearranges my contents in random order') - (command restoreDisplay 'Redraws the screen') (command showAllObjectNames 'show names beneath all the objects currently in my interior, except for those for which showing such names is inappropriate.') (command hideAllObjectNames 'stop showing names beneath all the objects of my interior, If any of them is marked to "always show name", remove that designation')))! Item was changed: ----- Method: Preferences class>>openNewPreferencesPanel (in category '*Etoys-Squeakland-preferences panel') ----- openNewPreferencesPanel "Create and open a new Preferences Panel" | window | window := self preferencesControlPanel. self currentWorld addMorphFront: window. window center: self currentWorld center. + window beKeyWindow. - window activateAndForceLabelToShow. "Preferences openNewPreferencesPanel"! Item was removed: - ----- Method: Preferences class>>windowColorHelp (in category '*Etoys-Squeakland-window colors') ----- - windowColorHelp - "Provide help for the window-color panel" - - | helpString | - helpString := - 'The "Window Colors" panel lets you select colors for many kinds of standard Squeak windows. - - You can change your color preference for any particular tool by clicking on the color swatch and then selecting the desired color from the resulting color-picker. - - The three buttons entitled "Bright", "Pastel", and "White" let you revert to any of three different standard color schemes. - - The choices you make in the Window Colors panel only affect the colors of new windows that you open. - - You can make other tools have their colors governed by this panel by simply implementing #windowColorSpecification on the class side of the model -- consult implementors of that method to see examples of how to do this.'. - - (StringHolder new contents: helpString) - openLabel: 'About Window Colors' translated - - "Preferences windowColorHelp"! Item was removed: - ----- Method: Preferences class>>windowSpecificationPanel (in category '*Etoys-Squeakland-window colors') ----- - windowSpecificationPanel - "Put up a panel for specifying window colors" - - "Preferences windowSpecificationPanel" - | aPanel buttonRow aButton aRow aSwatch aColor aWindow aMiniWorld aStringMorph | - aPanel := AlignmentMorph newColumn hResizing: #shrinkWrap; vResizing: #shrinkWrap; - layoutInset: 0. - - aPanel addMorph: (buttonRow := AlignmentMorph newRow color: (aColor := Color tan lighter)). - - buttonRow addTransparentSpacerOfSize: 2@0. - buttonRow addMorphBack: (SimpleButtonMorph new label: '?'; target: self; actionSelector: #windowColorHelp; setBalloonText: 'Click for an explanation of this panel' translated; color: Color veryVeryLightGray; yourself). - buttonRow addTransparentSpacerOfSize: 8@0. - #( ('Bright' installBrightWindowColors yellow - 'Use standard bright colors for all windows.') - ('Pastel' installPastelWindowColors paleMagenta - 'Use standard pastel colors for all windows.') - ('White' installUniformWindowColors white - 'Use white backgrounds for all standard windows.')) translatedNoop do: - - [:quad | - aButton := (SimpleButtonMorph new target: self) - label: quad first translated; - actionSelector: quad second; - color: (Color colorFrom: quad third); - setBalloonText: quad fourth translated; - yourself. - buttonRow addMorphBack: aButton. - buttonRow addTransparentSpacerOfSize: 10@0]. - - self windowColorTable do: - [:colorSpec | - aRow := AlignmentMorph newRow color: aColor. - aSwatch := ColorSwatch new - target: self; - getSelector: #windowColorFor:; - putSelector: #setWindowColorFor:to:; - argument: colorSpec classSymbol; - extent: (40 @ 20); - setBalloonText: ('Click here to change the standard color to be used for {1} windows.' format: {colorSpec wording translated}); - yourself. - aRow addMorphFront: aSwatch. - aRow addTransparentSpacerOfSize: (12 @ 1). - aRow addMorphBack: (aStringMorph := StringMorph contents: colorSpec wording translated font: TextStyle defaultFont). - aStringMorph setBalloonText: colorSpec helpMessage translated. - aPanel addMorphBack: aRow]. - - Smalltalk isMorphic - ifTrue: - [aWindow := aPanel wrappedInWindowWithTitle: 'Window Colors' translated. - " don't allow the window to be picked up by clicking inside " - aPanel on: #mouseDown send: #yourself to: aPanel. - self currentWorld addMorphCentered: aWindow. - aWindow activateAndForceLabelToShow ] - ifFalse: - [(aMiniWorld := MVCWiWPasteUpMorph newWorldForProject: nil) - addMorph: aPanel. - aMiniWorld startSteppingSubmorphsOf: aPanel. - MorphWorldView openOn: aMiniWorld - label: 'Window Colors' translated - extent: aMiniWorld fullBounds extent]! Item was removed: - ----- Method: SMSqueakMap>>windowColorToUse (in category '*Etoys-Squeakland-model access') ----- - windowColorToUse - - ^ self userInterfaceTheme uniformWindowColor ifNil: [Color veryVeryLightGray]! Item was changed: ----- Method: SoundLibraryTool>>listing (in category 'initialization') ----- listing | list newList format soundData selectorList formatList | list := SampledSound soundLibrary keys sort. selectorList := OrderedCollection new. formatList := OrderedCollection new. list do: [:each | soundData := (SampledSound soundLibrary at: each) second. soundData isNumber ifTrue: [format := 'uncompressed'] ifFalse: [(soundData includesSubString: 'Vorbis') ifTrue: [format := 'Vorbis'] ifFalse: [(soundData includesSubString: 'Speex') ifTrue: [format := 'Speex'] + ifFalse: [(soundData includesSubstring: 'GSM') - ifFalse: [(soundData includesSubString: 'GSM') ifTrue: [format := 'GSM']]]]. selectorList add: each. formatList add: format]. newList := OrderedCollection new. newList add: selectorList asArray. showCompression ifTrue:[newList add: formatList asArray] ifFalse:[newList add: (Array new: (formatList size) withAll:' ')]. ^newList! Item was changed: ----- Method: UserText>>drawOn: (in category 'drawing') ----- drawOn: aCanvas "Render the receiver on the given canvas." super drawOn: aCanvas. aCanvas isShadowDrawing ifTrue: [^ self]. self hasFocus ifTrue: [aCanvas frameRectangle: (self fullBounds insetBy: 0) + color: self keyboardFocusColor]! - color: Preferences keyboardFocusColor]! Item was changed: ----- Method: Viewer class>>innerBorderColor (in category '*Etoys-Squeakland-constants') ----- innerBorderColor + ^ (UserInterfaceTheme current get: #titleBorderColor for: self) ifNil: [(Color r: 0.6 g: 0.7 b: 1)]! - ^ Preferences menuTitleBorderColor!

1 0

The Trunk: System-mt.1143.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1143.mcz ==================== Summary ==================== Name: System-mt.1143 Author: mt Time: 5 March 2020, 1:19:48.088611 pm UUID: 2ff047e8-54ee-1d4d-97ab-cac7594ad307 Ancestors: System-mt.1142 More deprecations regarding colors. Also removes a deprecated message send. =============== Diff against System-mt.1142 =============== Item was changed: ----- Method: Preferences class>>addModelItemsToWindowMenu: (in category 'support - misc') ----- addModelItemsToWindowMenu: aMenu aMenu addLine. + aMenu add: 'restore default preference settings' target: self action: #chooseInitialSettings.! - aMenu add: 'restore default preference settings' target: self action: #chooseInitialSettings. - aMenu add: 'restore default text highlighting' target: self action: #initializeTextHighlightingParameters! Item was removed: - ----- Method: Preferences class>>chooseInsertionPointColor (in category 'prefs - text') ----- - chooseInsertionPointColor - "Let the user indicate what color he wishes to have used for insertion points in text" - - ColorPickerMorph new - choseModalityFromPreference; - sourceHand: self currentHand; - target: self; - selector: #insertionPointColor:; - originalColor: self insertionPointColor; - putUpFor: self currentHand near: self currentHand cursorBounds! Item was removed: - ----- Method: Preferences class>>chooseKeyboardFocusColor (in category 'prefs - text') ----- - chooseKeyboardFocusColor - "Let the user indicate what color he wishes to have used for keyboard-focus feedback" - - ColorPickerMorph new - choseModalityFromPreference; - sourceHand: self currentHand; - target: self; - selector: #keyboardFocusColor:; - originalColor: self keyboardFocusColor; - putUpFor: self currentHand near: self currentHand cursorBounds! Item was removed: - ----- Method: Preferences class>>chooseTextHighlightColor (in category 'prefs - text') ----- - chooseTextHighlightColor - "Let the user choose the text-highlight color" - - ColorPickerMorph new - choseModalityFromPreference; - sourceHand: self currentHand; - target: self; - selector: #textHighlightColor:; - originalColor: self textHighlightColor; - putUpFor: self currentHand near: self currentHand cursorBounds! Item was changed: ----- Method: Preferences class>>initializeParameters (in category 'parameters') ----- initializeParameters "Preferences initializeParameters" Parameters := IdentityDictionary new. + Parameters at: #maxBalloonHelpLineLength put: 28.! - Parameters at: #maxBalloonHelpLineLength put: 28. - self initializeTextHighlightingParameters! Item was removed: - ----- Method: Preferences class>>initializeTextHighlightingParameters (in category 'prefs - text') ----- - initializeTextHighlightingParameters - "Preferences initializeTextHighlightingParameters" - - self - insertionPointColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.8); - textHighlightColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2)! Item was removed: - ----- Method: Preferences class>>insertionPointColor (in category 'prefs - text') ----- - insertionPointColor - ^ Parameters at: #insertionPointColor! Item was removed: - ----- Method: Preferences class>>insertionPointColor: (in category 'prefs - text') ----- - insertionPointColor: aColor - Parameters at: #insertionPointColor put: aColor! Item was removed: - ----- Method: Preferences class>>keyboardFocusColor (in category 'prefs - text') ----- - keyboardFocusColor - "Answer the keyboard focus color, initializing it if necessary" - - ^ Parameters at: #keyboardFocusColor ifAbsentPut: [Color lightGray] - - " - Parameters removeKey: #keyboardFocusColor. - Preferences keyboardFocusColor - "! Item was removed: - ----- Method: Preferences class>>keyboardFocusColor: (in category 'prefs - text') ----- - keyboardFocusColor: aColor - "Set the keyboard focus color" - - Parameters at: #keyboardFocusColor put: aColor! Item was removed: - ----- Method: Preferences class>>textHighlightColor (in category 'prefs - text') ----- - textHighlightColor - ^ Parameters at: #textHighlightColor! Item was removed: - ----- Method: Preferences class>>textHighlightColor: (in category 'prefs - text') ----- - textHighlightColor: aColor - Parameters at: #textHighlightColor put: aColor! Item was removed: - ----- Method: Project>>toggleFullScreen (in category 'menu messages') ----- - toggleFullScreen - "Toggle between full screen and windowed mode." - self lastScreenModeSelected - ifTrue: [ self fullScreenOff ] - ifFalse: [ self fullScreenOn ]!

1 0

The Trunk: System-mt.1142.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1142.mcz ==================== Summary ==================== Name: System-mt.1142 Author: mt Time: 5 March 2020, 1:17:57.313611 pm UUID: c0bcbaf5-9833-b641-ae8a-8e03d89bb84c Ancestors: System-mt.1141 Adds support for setting a value in the current UI theme similar to retrieving it like this: self userInterfaceTheme myBackgroundColor: Color black. =============== Diff against System-mt.1141 =============== Item was changed: ----- Method: UserInterfaceThemeRequest>>doesNotUnderstand: (in category 'lookup') ----- doesNotUnderstand: aMessage "Look up the visual attribute specified by aMessage's #selector in the current theme for the current target object." aMessage numArgs = 0 ifTrue: [ ^ (self theme get: self target class -> aMessage selector) ifNil: [(self theme respondsTo: aMessage selector) ifTrue: [self theme perform: aMessage selector] ifFalse: [nil "unset property"]]]. + aMessage numArgs = 1 ifTrue: [ + ^ self theme + set: self target class -> aMessage selector asSimpleGetter + to: aMessage arguments first]. + ^ self theme perform: aMessage selector withArguments: aMessage arguments.!

1 0

The Trunk: Tools-nice.725.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.725.mcz ==================== Summary ==================== Name: Tools-nice.725 Author: nice Time: 4 September 2016, 9:31:23.175175 pm UUID: 7009e733-b45e-403a-9469-6106ad6f747a Ancestors: Tools-tfel.724 Recognize Cuis #classDefinition: when scanning a cuis change file. =============== Diff against Tools-tfel.724 =============== Item was changed: ----- Method: ChangeList>>scanCategory (in category 'scanning') ----- scanCategory "Scan anything that involves more than one chunk; method name is historical only" + | itemPosition item tokens stamp anIndex class meta | - | itemPosition item tokens stamp anIndex | itemPosition := file position. item := file nextChunk. ((item includesSubstring: 'commentStamp:') or: [(item includesSubstring: 'methodsFor:') + or: [(item includesSubstring: 'classDefinition:') + or: [item endsWith: 'reorganize']]]) ifFalse: - or: [item endsWith: 'reorganize']]) ifFalse: ["Maybe a preamble, but not one we recognize; bail out with the preamble trick" ^ self addItem: (ChangeRecord new file: file position: itemPosition type: #preamble) text: ('preamble: ' , item contractTo: 50)]. tokens := Scanner new scanTokens: item. tokens size >= 3 ifTrue: [stamp := ''. anIndex := tokens indexOf: #stamp: ifAbsent: [nil]. anIndex ifNotNil: [stamp := tokens at: (anIndex + 1)]. tokens second == #methodsFor: ifTrue: [^ self scanCategory: tokens third class: tokens first meta: false stamp: stamp]. tokens third == #methodsFor: ifTrue: [^ self scanCategory: tokens fourth class: tokens first meta: true stamp: stamp]]. tokens second == #commentStamp: ifTrue: [stamp := tokens third. self addItem: (ChangeRecord new file: file position: file position type: #classComment class: tokens first category: nil meta: false stamp: stamp) text: 'class comment for ' , tokens first, (stamp isEmpty ifTrue: [''] ifFalse: ['; ' , stamp]). file nextChunk. ^ file skipStyleChunk]. + + tokens first == #classDefinition: + ifTrue: + [class := tokens second. + meta := tokens size >= 3 and: [tokens third = 'class']. + stamp := ''. + self addItem: + (ChangeRecord new file: file position: file position type: #classDefinition + class: class category: nil meta: meta stamp: stamp) + text: 'class definition for ' , class, + (stamp isEmpty ifTrue: [''] ifFalse: ['; ' , stamp]). + file nextChunk. + ^ file skipStyleChunk]. self assert: tokens last == #reorganize. self addItem: (ChangeRecord new file: file position: file position type: #reorganize class: tokens first category: nil meta: false stamp: stamp) text: 'organization for ' , tokens first, (tokens second == #class ifTrue: [' class'] ifFalse: ['']). file nextChunk!

1 0

The Trunk: Tools-jr.929.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-jr.929.mcz ==================== Summary ==================== Name: Tools-jr.929 Author: jr Time: 30 December 2019, 3:20:08.513977 pm UUID: 0a4d62fd-022e-1844-b6bc-db1502ab2466 Ancestors: Tools-cmm.928 Show browsed environment in Browser title if it is not the default environment. =============== Diff against Tools-cmm.928 =============== Item was changed: ----- Method: Browser>>defaultBrowserTitle (in category 'initialize-release') ----- defaultBrowserTitle + | title | + title := 'System Browser'. + ^ environment = self class environment + ifTrue: [title] + ifFalse: [title, ' on environment ', environment asString]! - ^ 'System Browser'!

1 0

The Trunk: Tools-kfr.930.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-kfr.930.mcz ==================== Summary ==================== Name: Tools-kfr.930 Author: kfr Time: 9 February 2020, 9:02:29.519512 pm UUID: 5ba34f14-47a5-3d41-b77a-e043dad99316 Ancestors: Tools-mt.929 Form preview was displaying wrong colors. Convert preview form to screen depth to make colors display correctly =============== Diff against Tools-mt.929 =============== Item was changed: ----- Method: FileList>>readGraphicContents (in category 'private') ----- readGraphicContents | form maxExtent ext | + form := (Form fromFileNamed: self fullName) asFormOfDepth: Display depth. - form := Form fromFileNamed: self fullName. maxExtent := lastGraphicsExtent := self availableGraphicsExtent. ext := form extent. (maxExtent notNil and: [form extent <= maxExtent]) ifFalse: [ form := form magnify: form boundingBox by: (maxExtent x / form width min: maxExtent y / form height) asPoint smoothing: 3]. contents := ('Image extent: ', ext printString) asText, (String with: Character cr), (Text string: ' ' attribute: (TextFontReference toFont: (FormSetFont new fromFormArray: (Array with: form) asciiStart: Character space asInteger ascent: form height))). brevityState := #graphic. ^contents!

1 0

The Trunk: Tools-ct.941.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.941.mcz ==================== Summary ==================== Name: Tools-ct.941 Author: ct Time: 16 February 2020, 4:48:20.368878 pm UUID: 152d52a8-5a34-e545-a638-a80249453a58 Ancestors: Tools-mt.939 Fixes a small bug when reusing a MessageNames window. To reproduce: Preferences setFlag: #(SystemWindow >> reuseWindows) join asSymbol toValue: true during: [ ToolSet browseMessageNames: 'someFictiveMessageName'; browseMessageNames: 'someOtherFictiveMessageName']. =============== Diff against Tools-mt.939 =============== Item was added: + ----- Method: MessageNames>>postAcceptBrowseFor: (in category 'morphic ui') ----- + postAcceptBrowseFor: anotherModel + + self searchString: anotherModel searchString.!

1 0

← Newer
1
...
6
7
8
9
10
11
12
13
14
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2020