Squeak-dev September 2022

squeak-dev@lists.squeakfoundation.org

29 participants
158 discussions

The Trunk: SMLoader-ct.99.mcz
by commits＠source.squeak.org 13 Sep '22

13 Sep '22

Christoph Thiede uploaded a new version of SMLoader to project The Trunk: http://source.squeak.org/trunk/SMLoader-ct.99.mcz ==================== Summary ==================== Name: SMLoader-ct.99 Author: ct Time: 13 September 2022, 9:07:19.907523 am UUID: 81baa5fb-e073-de40-bedd-5512d6c17392 Ancestors: SMLoader-ct.98 Complements Tools-ct.1176 (high-dpi support for FileList2). =============== Diff against SMLoader-ct.98 =============== Item was changed: ----- Method: FileList2 class>>morphicViewOnDirectory: (in category '*smloader-extension') ----- morphicViewOnDirectory: aFileDirectory | aFileList window fileListBottom midLine fileListTopOffset buttonPane | aFileList := self new directory: aFileDirectory. window := (SystemWindow labelled: aFileDirectory pathName) model: aFileList. + fileListTopOffset := (TextStyle defaultFont pointSize * 2) + 14 px. - fileListTopOffset := (TextStyle defaultFont pointSize * 2) + 14. fileListBottom := 0.4. midLine := 0.4. buttonPane := aFileList optionalButtonRow addMorph: (aFileList morphicPatternPane vResizing: #spaceFill; yourself). self addFullPanesTo: window from: { {buttonPane. 0@0 corner: 1@0. 0@0 corner: 0@fileListTopOffset}. {aFileList morphicDirectoryTreePane. 0@0 corner: midLine@fileListBottom. 0@fileListTopOffset corner: 0@0}. {aFileList morphicFileListPane. midLine @ 0 corner: 1@fileListBottom. 0@fileListTopOffset corner: 0@0}. {aFileList morphicFileContentsPane. 0@fileListBottom corner: 1@1. nil}. }. aFileList postOpen. ^ window !

1 0

The Trunk: EToys-ct.482.mcz
by commits＠source.squeak.org 13 Sep '22

13 Sep '22

Christoph Thiede uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.482.mcz ==================== Summary ==================== Name: EToys-ct.482 Author: ct Time: 13 September 2022, 9:00:07.422523 am UUID: 5c9ae0b6-6679-e448-a2bc-54572f1904b8 Ancestors: EToys-ct.481 Gradually improves high-dpi support for Etoys (TileMorph, ScriptEditorMorph, FileList2). Complements Tools-ct.1176. =============== Diff against EToys-ct.481 =============== Item was changed: ----- Method: FileList2 class>>buildFileTypeButtons:actionRow:fileList: (in category '*Etoys-Squeakland-blue ui') ----- buildFileTypeButtons: window actionRow: actionRow fileList: aFileList | fileTypeInfo fileTypeButtons fileTypeRow aButton | fileTypeInfo := self endingSpecs. fileTypeRow := window addARowCentered: #(). fileTypeRow color: ScriptingSystem paneColor. + fileTypeRow layoutInset: 3 px @ 3 px. + fileTypeRow cellInset: 2 px @ 0 px. - fileTypeRow layoutInset: 3 @ 3. - fileTypeRow cellInset: 2 @ 0. fileTypeRow hResizing: #spaceFill. fileTypeButtons := fileTypeInfo collect: [:each | aButton := self buildButtonText: each first balloonText: nil receiver: aFileList selector: #update:fileTypeRow:morphUp:. aButton arguments: {actionRow. fileTypeRow. aButton}. aButton setProperty: #enabled toValue: true. aButton setProperty: #buttonText toValue: each first. aButton]. fileTypeRow addAllMorphs: fileTypeButtons. aFileList directoryChangeBlock: [:newDir | self enableTypeButtons: fileTypeButtons info: fileTypeInfo + forDir: newDir].! - forDir: newDir]. - ! Item was changed: ----- Method: FileList2 class>>buildLoadButtons:fileList:reallyLoad: (in category '*Etoys-Squeakland-blue ui') ----- buildLoadButtons: window fileList: aFileList reallyLoad: aBoolean | aRow okButton cancelButton | okButton := self buildButtonText: 'OK' translated balloonText: nil receiver: aFileList selector: (aBoolean ifTrue: [#okHitForProjectLoader] ifFalse: [#okHit]). + okButton width: 150 px. - okButton width: 150. cancelButton := self buildButtonText: 'Cancel' translated balloonText: nil receiver: aFileList selector: #cancelHit. + cancelButton width: 150 px. - cancelButton width: 150. "aFileList updateLoginButtonAppearance." aRow := window addARow: {aFileList loginButton. aFileList loginField. okButton. cancelButton}. aRow color: ScriptingSystem paneColor. aRow listCentering: #bottomRight. + aRow layoutInset: 3 px @ 3 px. + aRow cellInset: 6 px @ 3 px. - aRow layoutInset: 3 @ 3. - aRow cellInset: 6 @ 3. ^ aRow! Item was changed: ----- Method: FileList2 class>>buildPane:fileList:window:dirFilterType: (in category '*Etoys-Squeakland-blue ui') ----- buildPane: aWorld fileList: aFileList window: window dirFilterType: aSymbol | treeExtent filesExtent treePane fileListPane pane2a pane2b aRow | + aWorld width < 800 px + ifTrue: [treeExtent := 150 px @ 300 px. + filesExtent := 350 px @ 300 px] + ifFalse: [treeExtent := 250 px @ 300 px. + filesExtent := 350 px @ 300 px]. - aWorld width < 800 - ifTrue: [treeExtent := 150 @ 300. - filesExtent := 350 @ 300] - ifFalse: [treeExtent := 250 @ 300. - filesExtent := 350 @ 300]. (treePane := aFileList morphicDirectoryTreePaneFiltered: aSymbol) extent: treeExtent; retractable: false; borderWidth: 0. fileListPane := aFileList morphicFileListPane extent: filesExtent; retractable: false; borderWidth: 0. + aRow := window addARow: {(window inAColumn: {(pane2a := window inARow: {window inAColumn: {treePane}}) useRoundedCornersInEtoys; layoutInset: 3 px}) + layoutInset: 3 px. (window inAColumn: {(pane2b := window inARow: {window inAColumn: {fileListPane}}) useRoundedCornersInEtoys; layoutInset: 3 px}) + layoutInset: 3 px}. - aRow := window addARow: {(window inAColumn: {(pane2a := window inARow: {window inAColumn: {treePane}}) useRoundedCornersInEtoys; layoutInset: 3}) - layoutInset: 3. (window inAColumn: {(pane2b := window inARow: {window inAColumn: {fileListPane}}) useRoundedCornersInEtoys; layoutInset: 3}) - layoutInset: 3}. aRow color: ScriptingSystem paneColor. window fullBounds. {pane2a. pane2b} do: [:each | + each borderWidth: 1 px. - each borderWidth: 1. each borderColor: ScriptingSystem borderColor]. ^ treePane.! Item was changed: ----- Method: FileList2 class>>buildSaveButtons:fileList: (in category '*Etoys-Squeakland-blue ui') ----- buildSaveButtons: window fileList: aFileList | buttonData buttons aRow | buttonData := Preferences enableLocalSave ifTrue: [#(#('Save' #okHit 'Save in the place specified above') #('Save on local disk only' #saveLocalOnlyHit 'saves in the Squeaklets folder') #('Cancel' #cancelHit 'return without saving') ) translatedNoop] ifFalse: [#(#('Save' #okHit 'Save in the place specified above') #('Cancel' #cancelHit 'return without saving') ) translatedNoop]. buttons := buttonData collect: [:each | self buildButtonText: each first translated balloonText: each third translated receiver: aFileList selector: each second]. aFileList updateLoginButtonAppearance. buttons := {aFileList loginButton. aFileList loginField. Morph new color: Color transparent; width: 50}, buttons. aRow := window addARow: buttons. aRow color: ScriptingSystem paneColor. aRow listCentering: #bottomRight. + aRow layoutInset: 3 px @ 3 px. + aRow cellInset: 6 px @ 3 px. - aRow layoutInset: 3 @ 3. - aRow cellInset: 6 @ 3. ^ aRow! Item was changed: ----- Method: FileList2 class>>fontForBlueFileListButtons (in category '*Etoys-Squeakland-blue ui') ----- fontForBlueFileListButtons "Answer the font to use in the buttons of the blue file-list dialogs used by olpc users of etoys." + ^ Preferences standardButtonFont! - ^ Preferences standardEToysFont! Item was changed: ----- Method: FileList2>>updateLoginButtonAppearance (in category '*Etoys-Squeakland-private') ----- updateLoginButtonAppearance | old oldField notLoggedInMessage | notLoggedInMessage := '(not logged in)' translated. old := self loginButton. oldField := self loginField. self loginField: (Morph new color: Color white). + self loginField borderWidth: 2 px. - self loginField borderWidth: 2. self loginField borderColor: ScriptingSystem baseColor. self loginField beSticky. + self loginField width: 150 px. + self loginField height: 30 px. - self loginField width: 150. - self loginField height: 30. self loginField clipSubmorphs: true. EtoysUtilities loggedIn ifTrue: [ self loginButton: (self class buildButtonText: 'Logout' translated balloonText: nil receiver: self selector: #logoutHit). self loginButton color: ScriptingSystem baseColor. self loginField addMorphCentered: (StringMorph contents: (Utilities authorNamePerSe ifNil: [notLoggedInMessage]) font: Preferences standardEToysButtonFont). self loginButton setBalloonText: 'Log out from the Squeakland server' translated. self loginField setBalloonText: 'Your Squeakland user name' translated. ] ifFalse: [ self loginButton: (self class buildButtonText: 'Login' translated balloonText: nil receiver: self selector: #loginHit). self loginButton color: ScriptingSystem baseColor. self loginField addMorphCentered: (StringMorph contents: notLoggedInMessage font: Preferences standardEToysButtonFont). self loginButton setBalloonText: 'Log in to share projects on the Squeakland server' translated. self loginField setBalloonText: 'Your Squeakland user name' translated ]. self loginButton setNamePropertyTo: 'login'. + self loginButton width: 150 px. - self loginButton width: 150. old ifNotNil: [ old owner addMorph: self loginButton inFrontOf: old. old delete]. oldField ifNotNil: [ oldField owner addMorph: self loginField inFrontOf: oldField. + oldField delete].! - oldField delete]. - ! Item was changed: ----- Method: ScriptEditorMorph>>buttonRowForEditor (in category 'buttons') ----- buttonRowForEditor "Answer a row of buttons that comprise the header at the top of the Scriptor" | aRow aString aStatusMorph aButton aTile aMorph goldBoxButton aBox | + aRow := AlignmentMorph newRow color: ScriptingSystem baseColor; layoutInset: 1 px. - aRow := AlignmentMorph newRow color: ScriptingSystem baseColor; layoutInset: 1. aRow hResizing: #spaceFill. aRow vResizing: #shrinkWrap. self addDismissButtonTo: aRow. + aRow addTransparentSpacerOfSize: 9 px. - aRow addTransparentSpacerOfSize: 9. "Player's name" aString := playerScripted externalName. aMorph := StringMorph contents: aString font: ScriptingSystem fontForTiles. aMorph setNameTo: 'title'. aRow addMorphBack: aMorph. + aRow addTransparentSpacerOfSize: 6 px. - aRow addTransparentSpacerOfSize: 6. "Script's name" aBox := AlignmentMorph newRow. aBox hResizing: #shrinkWrap; vResizing: #shrinkWrap. aBox color: (Color r: 0.839 g: 1.0 b: 0.806). + aBox borderWidth: 1 px. - aBox borderWidth: 1. aBox borderColor: (Color r: 0.645 g: 0.774 b: 0.613). aButton := UpdatingStringMorph new. aButton useStringFormat; target: self; getSelector: #scriptTitle; setNameTo: 'script name'; font: ScriptingSystem fontForNameEditingInScriptor; putSelector: #setScriptNameTo:; setProperty: #okToTextEdit toValue: true; step; yourself. aBox addMorph: aButton. aRow addMorphBack: aBox. aBox setBalloonText: 'Click here to edit the name of the script.' translated. "aRow addTransparentSpacerOfSize: 9." aRow addVariableTransparentSpacer. "Try It button" self hasParameter ifFalse: [aRow addMorphBack: ((ThreePhaseButtonMorph labelSymbol: #TryIt target: self actionSelector: #tryMe arguments: #()) actWhen: #whilePressed; balloonTextSelector: #tryMe). + aRow addTransparentSpacerOfSize: 3 px]. - aRow addTransparentSpacerOfSize: 3]. "Step button, only for non-Kedama" (self playerScripted isPrototypeTurtlePlayer or: [self hasParameter]) ifFalse: [aRow addMorphBack: (aButton := ThreePhaseButtonMorph labelSymbol: #StepMe target: self actionSelector: #stepMe arguments: #()). aButton balloonTextSelector: #stepMe. + aRow addTransparentSpacerOfSize: 3 px]. - aRow addTransparentSpacerOfSize: 3]. "Status controller" self hasParameter ifTrue: [aTile := TypeListTile new choices: Vocabulary typeChoicesForUserVariables dataType: nil. aTile addArrows. aTile setLiteral: self typeForParameter. aRow addMorphBack: aTile. aTile borderColor: Color red. aTile color: ScriptingSystem uniformTileInteriorColor. aTile setBalloonText: 'Drag from here to get a parameter tile' translated. aTile addCaretsAsAppropriate: true] ifFalse: [aRow addMorphBack: (aStatusMorph := self scriptInstantiation statusControlMorph)]. + "aRow addTransparentSpacerOfSize: 3 px." - "aRow addTransparentSpacerOfSize: 3." aRow addVariableTransparentSpacer. "Gold-box" aRow addMorphBack: (goldBoxButton := IconicButton new). goldBoxButton borderWidth: 0; labelGraphic: (ScriptingSystem formAtKey: 'RoundGoldBox'); color: Color transparent; actWhen: #buttonDown; target: self; actionSelector: #offerGoldBoxMenu; shedSelvedge; setBalloonText: 'click here to get a palette of useful tiles to use in your script.' translated. + aRow addTransparentSpacerOfSize: 6 px @ 1 px. - aRow addTransparentSpacerOfSize: 6@1. "Menu Button" aButton := self menuButton. aButton actionSelector: #offerScriptorMenu. aRow addMorphBack: aButton. (playerScripted existingScriptInstantiationForSelector: scriptName) ifNotNil: [:inst | inst updateStatusMorph: aStatusMorph]. ^ aRow! Item was changed: ----- Method: ScriptEditorMorph>>createThreadShowing (in category 'menu commands') ----- createThreadShowing | vertices | self deleteThreadShowing. vertices := OrderedCollection new. self tileRows do: [:row | | b | row first isTurtleRow ifTrue: [ b := row first bounds. + vertices add: ((b topLeft + (4 px @ 0)) + ((0 * 0.1 * b width) @ 0)). - vertices add: ((b topLeft + (4 @ 0)) + ((0 * 0.1 * b width) @ 0)). 0 to: 9 do: [:i | + vertices add: ((b topLeft + (4 px @ 4 px))+ ((i * 0.1 * b width ) @ 0)). + vertices add: ((b bottomLeft + (4 px @ -4 px)) + ((i * 0.1 * b width) @ 0)). - vertices add: ((b topLeft + (4 @ 4))+ ((i * 0.1 * b width ) @ 0)). - vertices add: ((b bottomLeft + (4 @ -4)) + ((i * 0.1 * b width) @ 0)). ]. + vertices add: ((b bottomLeft + (4 px @ 0)) + ((9 * 0.1 * b width) @ 0)). - vertices add: ((b bottomLeft + (4 @ 0)) + ((9 * 0.1 * b width) @ 0)). ] ifFalse: [ b := row first bounds. vertices add: ((b origin x + b corner x) // 2) @ (b origin y). + vertices add: ((b origin x + b corner x) // 2) @ (b origin y + 4 px). + vertices add: ((b origin x + b corner x) // 2) @ (b corner y - 4 px). - vertices add: ((b origin x + b corner x) // 2) @ (b origin y + 4). - vertices add: ((b origin x + b corner x) // 2) @ (b corner y - 4). vertices add: ((b origin x + b corner x) // 2) @ (b corner y). ]. ]. + threadPolygon := PolygonMorph vertices: vertices color: Color black borderWidth: 2 px borderColor: Color black. - threadPolygon := PolygonMorph vertices: vertices color: Color black borderWidth: 2 borderColor: Color black. threadPolygon makeOpen. + threadPolygon openInWorld.! - threadPolygon openInWorld. - ! Item was changed: ----- Method: ScriptEditorMorph>>defaultBorderWidth (in category 'initialization') ----- defaultBorderWidth "answer the default border width for the receiver" + ^ 1 px! - ^ 1! Item was changed: ----- Method: ScriptEditorMorph>>explainStatusAlternatives (in category 'customevents-other') ----- explainStatusAlternatives "Explain the scripting-status alternatives." + ScriptingSystem putUpInfoPanelFor:(ScriptingSystem statusHelpStringFor: playerScripted) title: 'Script Status' translated extent: 800 px @ 500 px! - ScriptingSystem putUpInfoPanelFor:(ScriptingSystem statusHelpStringFor: playerScripted) title: 'Script Status' translated extent: 800@500! Item was changed: ----- Method: ScriptEditorMorph>>extent: (in category 'other') ----- extent: x | newExtent tw menu | newExtent := x max: self minWidth @ self minHeight. (tw := self findA: ScrollPane) ifNil: ["This was the old behavior" ^ super extent: newExtent]. (self hasProperty: #autoFitContents) ifTrue: [ menu := MenuMorph new defaultTarget: self. menu addUpdating: #autoFitString target: self action: #autoFitOnOff. menu addTitle: 'To resize the script, uncheck the box below' translated. menu popUpEvent: nil in: self world . ^ self]. "Allow the user to resize to any size" tw extent: ((newExtent x max: self firstSubmorph width) + @ (newExtent y - self firstSubmorph height)) - (self borderWidth * 2) + (-4 px @ -4 px). "inset?" - @ (newExtent y - self firstSubmorph height)) - (self borderWidth * 2) + (-4 @ -4). "inset?" ^ super extent: newExtent! Item was changed: ----- Method: ScriptEditorMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; hResizing: #shrinkWrap; vResizing: #shrinkWrap; cellPositioning: #topLeft; setProperty: #autoFitContents toValue: true; minHeight: TileMorph defaultH; + layoutInset: 2 px. - layoutInset: 2. self useRoundedCornersInEtoys. self borderColor: ScriptingSystem borderColor. self setNameTo: 'Script Editor' translated. firstTileRow := 1. "index of first tile-carrying submorph" self addNewRow. + showingMethodPane := false.! - showingMethodPane := false. - ! Item was changed: ----- Method: ScriptEditorMorph>>setupMethodMorph (in category '*Etoys-Squeakland-buttons') ----- setupMethodMorph "create textual source instead" | aCodePane | aCodePane := MethodHolder isolatedCodePaneForClass: playerScripted class selector: scriptName. aCodePane hResizing: #spaceFill; vResizing: #spaceFill; + minHeight: 100 px. - minHeight: 100. self hResizing: #shrinkWrap; vResizing: #shrinkWrap. self addMorphBack: aCodePane. self fullBounds. self listDirection: #topToBottom; hResizing: #rigid; vResizing: #rigid; rubberBandCells: true; minWidth: self width. showingMethodPane := true. self currentWorld startSteppingSubmorphsOf: self! Item was changed: ----- Method: TileMorph>>arrowDelta (in category 'mouse handling') ----- arrowDelta "Answer the amount by which a number I display should increase at a time" | readout | (readout := self findA: UpdatingStringMorph) ifNotNil: [^readout floatPrecision ]. + ^ 1 px! - ^ 1! Item was changed: ----- Method: TileMorph>>basicWidth (in category 'misc') ----- basicWidth "Provide a nominal minimum, exclusive of arrows and independent of label width" ^ operatorOrExpression + ifNotNil: [3 px] + ifNil: [18 px]! - ifNotNil: [3] - ifNil: [18]! Item was changed: ----- Method: TileMorph>>buildHPopArrows (in category '*Etoys-Squeakland-arrows popup') ----- buildHPopArrows | panel left right | self outmostScriptEditor ifNil: [^ nil]. (retractArrow isNil and: [suffixArrow isNil]) ifTrue: [^ nil]. panel := Morph new. panel cornerStyle: #rounded. left := SketchMorph new form: (ScriptingSystem formAtKey: #LargeLeftArrow). right := SketchMorph new form: (ScriptingSystem formAtKey: #LargeRightArrow). panel color: color. panel sticky: true. panel layoutPolicy: TableLayout new. panel listDirection: #leftToRight. panel hResizing: #shrinkWrap. panel vResizing: #shrinkWrap. + panel cellInset: 4 px. + panel layoutInset: 2 px. - panel cellInset: 4. - panel layoutInset: 2. retractArrow ifNotNil: [panel addMorphBack: left]. suffixArrow ifNotNil: [panel addMorphBack: right]. panel on: #mouseLeave send: #hidePopArrows to: self. left on: #mouseUp send: #popArrowRetractArrowHit: to: self. right on: #mouseUp send: #popArrowSuffixArrowHit: to: self. ^ panel! Item was changed: ----- Method: TileMorph>>buildVPopArrows (in category '*Etoys-Squeakland-arrows popup') ----- buildVPopArrows | panel up down | upArrow ifNil: [^ nil]. panel := Morph new. panel cornerStyle: #rounded. up := SketchMorph new form: (ScriptingSystem formAtKey: #LargeUpArrow). down := SketchMorph new form: (ScriptingSystem formAtKey: #LargeDownArrow). panel color: color. panel sticky: true. panel layoutPolicy: TableLayout new. panel listDirection: #topToBottom. panel hResizing: #shrinkWrap. panel vResizing: #shrinkWrap. + panel cellInset: 4 px. + panel layoutInset: 2 px. - panel cellInset: 4. - panel layoutInset: 2. panel addMorphBack: up. panel addMorphBack: down. panel on: #mouseLeave send: #hidePopArrows to: self. up on: #mouseDown send: #popArrowUp: to: self. up on: #mouseMove send: #popArrowMouseMove: to: self. down on: #mouseDown send: #popArrowDown: to: self. down on: #mouseMove send: #popArrowMouseMove: to: self. ^ panel! Item was changed: ----- Method: TileMorph>>convertAlignment (in category 'private') ----- convertAlignment "Convert the receiver's alignment rules" | where frame | owner ifNotNil:[ owner class == TilePadMorph ifTrue:[ owner layoutPolicy: TableLayout new. owner hResizing: #shrinkWrap. owner vResizing: #spaceFill. ]. ]. self layoutPolicy: TableLayout new. + self cellInset: 2 px @ 0. + self layoutInset: 1 px @ 0. - self cellInset: 2@0. - self layoutInset: 1@0. self listDirection: #leftToRight. self wrapCentering: #center. self hResizing: #shrinkWrap. self vResizing: #spaceFill. "Now convert up and down arrow" (upArrow notNil and:[upArrow owner == self "e.g., not converted" and:[downArrow notNil and:[downArrow owner == self]]]) ifTrue:[ "where to insert the frame" where := (submorphs indexOf: upArrow) min: (submorphs indexOf: downArrow). frame := Morph new color: Color transparent. frame layoutPolicy: TableLayout new; listDirection: #topToBottom; hResizing: #shrinkWrap; vResizing: #shrinkWrap; + cellInset: 0 @ 1 px; + layoutInset: 0 @ 1 px. - cellInset: 0@1; - layoutInset: 0@1. self privateAddMorph: frame atIndex: where. frame addMorphBack: upArrow; addMorphBack: downArrow. + ].! - ]. - ! Item was changed: ----- Method: TileMorph>>defaultBorderWidth (in category 'initialization') ----- defaultBorderWidth "answer the default border width for the receiver" + ^ 1 px! - ^ 1! Item was changed: ----- Method: TileMorph>>emblazonPlayerNameOnReferenceTileWithin: (in category '*Etoys-Squeakland-initialization') ----- emblazonPlayerNameOnReferenceTileWithin: scriptorOrViewer "Make the string within the receiver be the right thing." | newLabel usePad | newLabel := actualObject externalName. Preferences implicitSelfInTiles ifTrue: [scriptorOrViewer ifNotNil: [scriptorOrViewer playerScripted == actualObject ifTrue: [newLabel := '']]]. (newLabel notEmpty and: [self isPossessive]) ifTrue: [newLabel := newLabel, '''s' translated]. self line1: newLabel. usePad := owner isKindOf: TilePadMorph. newLabel ifEmpty: [usePad ifTrue: [owner hResizing: #rigid; width: 0; clipSubmorphs: true]. self hResizing: #rigid; width: 0; borderWidth: 0] ifNotEmpty: [usePad ifTrue: [owner hResizing: #shrinkWrap; clipSubmorphs: false]. + self hResizing: #shrinkWrap; borderWidth: 1 px] - self hResizing: #shrinkWrap; borderWidth: 1] ! Item was changed: ----- Method: TileMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" + self extent: 1 px @ 1 px. - self extent: 1 @ 1. self typeColor: (Color r: 0.8 g: 1.0 b: 0.6). type := #literal. "#literal, #slotRef, #objRef, #operator, #expression" slotName := ''. literal := 1. self layoutPolicy: TableLayout new. self minCellSize: 0 @ TileMorph defaultH. + self cellInset: 2 px @ 0. + self layoutInset: 1 px @ 0. - self cellInset: 2 @ 0. - self layoutInset: 1 @ 0. self listDirection: #leftToRight. self wrapCentering: #center. self hResizing: #shrinkWrap. self vResizing: #spaceFill! Item was changed: ----- Method: TileMorph>>layoutChanged (in category 'layout') ----- layoutChanged | vpanel hpanel popArrows | super layoutChanged. self labelMorph ifNil: [^ self]. popArrows := self activeHand ifNil: [^ self] ifNotNil: [:ac | ac valueOfProperty: #popArrows ifAbsent: [^ self]]. popArrows first == self ifFalse: [^ self]. vpanel := popArrows second. hpanel := popArrows third. vpanel ifNotNil: [vpanel openInWorld. vpanel center: self labelMorph center. + vpanel right: self labelMorph left - 2 px]. - vpanel right: self labelMorph left - 2]. hpanel ifNotNil: [hpanel openInWorld. hpanel center: self labelMorph center. + hpanel left: self labelMorph right + 2 px]! - hpanel left: self labelMorph right + 2]! Item was changed: ----- Method: TileMorph>>line1: (in category 'private') ----- line1: line1 "Emblazon the receiver with the requested label. If the receiver already has a label, make the new label be of the same class" | m desiredW classToUse lab f | classToUse := (lab := self labelMorph) ifNotNil: [lab class] ifNil: [StringMorph]. self removeAllMorphs. f := ScriptingSystem fontForTiles. (type = #operator and: [#(+ - * / // \\ < <= > >= = ~=) includes: operatorOrExpression]) ifTrue: [ f := f emphasized: 1]. m := classToUse contents: line1 font: f. + desiredW := m width + 6 px. - desiredW := m width + 6. self extent: (desiredW max: self minimumWidth) @ self class defaultH. m position: self center - (m extent // 2). self addMorph: m. ! Item was changed: ----- Method: TileMorph>>setVisibilityOfUpDownCarets: (in category '*Etoys-Squeakland-arrows') ----- setVisibilityOfUpDownCarets: showCarets "If the argument is true, make all the 'up and down' carets, such as those that let you change the value of a number or of a boolean constant, visible; if false, remove them from sight. " (submorphs detect: [:m | m hasProperty: #arrows] ifNone: [nil]) ifNotNil: [:wrapper | showCarets + ifTrue: [wrapper width: 9 px] - ifTrue: [wrapper width: 9] ifFalse: [wrapper width: 0]]! Item was changed: ----- Method: TileMorph>>test (in category 'private') ----- test | pos | "Set the position of all my submorphs. Compute my bounds. Caller must call layoutChanged or set fullBounds to nil." fullBounds ifNil: [ pos := self topLeft. self submorphsDo: [:sub | | hh | hh := (self class defaultH - sub height) // 2. "center in Y" + sub privateBounds: (pos + (2 px @ hh) extent: sub extent). + pos x: (sub right min: 1200 px)]. "2 pixels spacing on left" + bounds := bounds topLeft corner: pos + (2 px @ self class defaultH). - sub privateBounds: (pos + (2@hh) extent: sub extent). - pos x: (sub right min: 1200)]. "2 pixels spacing on left" - bounds := bounds topLeft corner: pos + (2 @ self class defaultH). fullBounds := bounds. ]. owner class == TilePadMorph ifTrue: [owner bounds: bounds]. ^ fullBounds!

1 0

referring to a cli command in a unix systemd unit file
by tim Rowledge 13 Sep '22

13 Sep '22

I'm making a pass at enabling personal squeaksource run cleanly under systemd instead of daemontools. The only bit that seems to be problematic right now is making the ExecStart part handle the older style `cat webPort` fragment. I've banged away a google to see how to do this but nothing I've spotted so far looks like it will work. There surely must be a way within a service unit file to find the value of `cat webPort` and append it to the ExecStart=vm/squeak -vm-sound-null -vm-display-null -mmap 1024m -eden 16m ss.image run.st `cat webPort` ... but damned if I can get it to work... What stupidly simple thing have I missed? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful random insult:- Moves his lips to pretend he's reading.

3 4

How to clear the changes file?
by Thiede, Christoph 12 Sep '22

12 Sep '22

Hi all, probably a simple FAQ, but I did not find a simple answer to it: What would be the easiest way to clear my changes file? The background is that I have a "fresh trunk image" which I open several times a day to test anything out, make some changes to some classes, or install several Metacello packages but eventually close the image without saving. This bloats my changes file. How can I empty it again and remove all old do-its, prior method versions, and so on? The "remove" items in the change list tool do not seem to have any effect for me. Thanks in advance! Best, Christoph

7 9

The Inbox: Tools-ct.1173.mcz
by commits＠source.squeak.org 12 Sep '22

12 Sep '22

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-ct.1173.mcz ==================== Summary ==================== Name: Tools-ct.1173 Author: ct Time: 8 September 2022, 3:05:12.665836 pm UUID: f0fe2b64-b27c-6d4b-9670-d920d0580baf Ancestors: Tools-ct.1171 Fixes package pane browser to actually use the package organizer instead of parsing the system category list. Resolves https://github.com/squeak-smalltalk/squeak-object-memory/issues/28. =============== Diff against Tools-ct.1171 =============== Item was changed: Browser subclass: #PackagePaneBrowser + instanceVariableNames: 'packageOrganizer package packageListIndex packageList' - instanceVariableNames: 'package packageListIndex packageList' classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'! + !PackagePaneBrowser commentStamp: 'ct 9/8/2022 15:05' prior: 0! + A package browser represents a hierarchical query path through an organization of class and method information. It nests classes into a two-level hierarchy that consists of the package (e.g., Kernel, FFI-Kernel) and the system category (e.g., Exception, Exceptions-Kernel; Support, empty). - !PackagePaneBrowser commentStamp: '<historical>' prior: 0! - A package browser represents a hierarchical query path through an organization of class and method information. It parses class categories into a two-level hierarchy on the first '-' character, giving "packages" (e.g., Magnitude, Collections, Graphics, etc.), and "categories" (e.g., Magnitude-General and Magnitude-Number). Instance Variables: + packageOrganizer <PackageOrganizer> the organizer of packages in the current environment package <Symbol> the "category header," e.g., #Magnitudes or #Collections packageListIndex <Integer> The index in the package list + packageList <OrderedCollection of String> the list of package names! - packageList <OrderedCollection of String> the list of package names - ! Item was added: + ----- Method: PackagePaneBrowser>>initialize (in category 'initialize-release') ----- + initialize + + super initialize. + + self packageOrganizer: self environment packageOrganizer.! Item was changed: ----- Method: PackagePaneBrowser>>packageList (in category 'package list') ----- packageList - "Answer a list of the packages in the current system organization." + ^ self packageOrganizer packageNames sorted! - | str stream | - str := Set new: 100. - stream := WriteStream on: (Array new: 100). - systemOrganizer categories do: - [ :categ | | cats | - cats := categ asString copyUpTo: $-. - (str includes: cats) ifFalse: - [str add: cats. - stream nextPut: cats]]. - ^stream contents! Item was added: + ----- Method: PackagePaneBrowser>>packageOrganizer (in category 'accessing') ----- + packageOrganizer + + ^ packageOrganizer! Item was added: + ----- Method: PackagePaneBrowser>>packageOrganizer: (in category 'initialize-release') ----- + packageOrganizer: aPackageOrganizer + + packageOrganizer := aPackageOrganizer. + + self systemOrganizer: self systemOrganizer. "reset selections"! Item was added: + ----- Method: PackagePaneBrowser>>selectEnvironment: (in category 'accessing') ----- + selectEnvironment: anEnvironment + + super selectEnvironment: anEnvironment. + self packageOrganizer: anEnvironment packages.!

3 2

The Trunk: Tools-ct.1175.mcz
by commits＠source.squeak.org 12 Sep '22

12 Sep '22

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1175.mcz ==================== Summary ==================== Name: Tools-ct.1175 Author: ct Time: 12 September 2022, 7:11:01.503585 pm UUID: 9dd00133-03f0-074f-95da-9aa4bc0bedc0 Ancestors: Tools-ct.1173, Tools-ct.1174 Merges Tools-ct.1173: Fixes package pane browser to actually use the package organizer instead of parsing the system category list. Resolves https://github.com/squeak-smalltalk/squeak-object-memory/issues/28. Revision: Don't use an instance variable for packageOrganizer, as the environment of the browser is already configurable. Remove never-read instvars 'package' and 'packageList'. Update class comment with refined examples. Thanks to Jakob (jr) for the review! =============== Diff against Tools-ct.1174 =============== Item was changed: Browser subclass: #PackagePaneBrowser + instanceVariableNames: 'packageListIndex' - instanceVariableNames: 'package packageListIndex packageList' classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'! + !PackagePaneBrowser commentStamp: 'ct 9/12/2022 19:09' prior: 0! + A package browser represents a hierarchical query path through an organization of class and method information. It nests classes into a two-level hierarchy that consists of the package (e.g., Kernel; FFI-Kernel) and the system category (e.g., Exception, Exceptions-Kernel, etc. for package Kernel; Support and empty for FFI-Kernel). - !PackagePaneBrowser commentStamp: '<historical>' prior: 0! - A package browser represents a hierarchical query path through an organization of class and method information. It parses class categories into a two-level hierarchy on the first '-' character, giving "packages" (e.g., Magnitude, Collections, Graphics, etc.), and "categories" (e.g., Magnitude-General and Magnitude-Number). Instance Variables: + packageListIndex <Integer> The current selected index in the package list.! - package <Symbol> the "category header," e.g., #Magnitudes or #Collections - packageListIndex <Integer> The index in the package list - packageList <OrderedCollection of String> the list of package names - ! Item was changed: ----- Method: PackagePaneBrowser>>packageList (in category 'package list') ----- packageList - "Answer a list of the packages in the current system organization." + ^ self packageOrganizer packageNames sorted! - | str stream | - str := Set new: 100. - stream := WriteStream on: (Array new: 100). - systemOrganizer categories do: - [ :categ | | cats | - cats := categ asString copyUpTo: $-. - (str includes: cats) ifFalse: - [str add: cats. - stream nextPut: cats]]. - ^stream contents! Item was changed: ----- Method: PackagePaneBrowser>>packageListIndex: (in category 'package list') ----- packageListIndex: anInteger "Set anInteger to be the index of the current package selection." packageListIndex := anInteger. - anInteger = 0 - ifFalse: [package := self packageList at: packageListIndex]. selectedMessageCategoryName := nil. self selectSystemCategory: nil. selectedMessageName := nil. selectedClassName := nil. self setClassOrganizer. self changed: #packageSelectionChanged. self changed: #packageListIndex. "update my selection" self changed: #systemCategoryList. "update the category list" self selectSystemCategory: nil. "update category list selection" self changed: #classList. "update the class list" self selectClass: nil. "update category list selection"! Item was added: + ----- Method: PackagePaneBrowser>>packageOrganizer (in category 'accessing') ----- + packageOrganizer + + ^ self environment packageOrganizer!

1 0

The Trunk: Morphic-ct.2026.mcz
by commits＠source.squeak.org 12 Sep '22

12 Sep '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2026.mcz ==================== Summary ==================== Name: Morphic-ct.2026 Author: ct Time: 22 August 2022, 6:00:53.823827 pm UUID: 751b9c82-f5ce-284c-9ab1-5adc1e2616f9 Ancestors: Morphic-mt.2025 Uses shorthand URL for the new issue tracker. Please confirm that this shortcut should be used. Best, Christoph =============== Diff against Morphic-mt.2025 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>sendFeedback (in category 'menu actions') ----- sendFeedback | url os vm hash image | + url := 'https://bugs.squeak.org/'. - url := 'https://github.com/squeak-smalltalk/squeak-object-memory/issues'. ([Smalltalk vm platformSourceVersion] on: Warning do: ["Ignore"]) ifNotNil: [:info | | tokens | tokens := info findTokens. vm := tokens at: 2. hash := tokens atLast: 4]. os := Smalltalk os platformName, ' ', Smalltalk os osVersion, ' ', Smalltalk os platformSubtype. image := SystemVersion current version, ' #', SystemVersion current highestUpdate. self inform: ('Please visit the following website to report on bugs, requests, and other issues: <a href="{1}">{1}</a> Make sure that you always include information about your current environment such as: OS: {2} VM: {3} ({4}) SQ: {5} ({6} bit) You can find more in the <a href="code://SystemReporter open">System Reporter</a>.' translated format: {url. os. vm. hash. image. Smalltalk image wordSize * 8}) asTextFromHtml!

1 0

The Trunk: Morphic-ct.2038.mcz
by commits＠source.squeak.org 12 Sep '22

12 Sep '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2038.mcz ==================== Summary ==================== Name: Morphic-ct.2038 Author: ct Time: 12 September 2022, 6:17:05.873585 pm UUID: e7299d8d-95fa-124e-8a96-50ad98cee6ee Ancestors: Morphic-ct.2037, Morphic-ct.2026 Merge. =============== Diff against Morphic-ct.2037 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>sendFeedback (in category 'menu actions') ----- sendFeedback | url os vm hash image | + url := 'https://bugs.squeak.org/'. - url := 'https://github.com/squeak-smalltalk/squeak-object-memory/issues'. ([Smalltalk vm platformSourceVersion] on: Warning do: ["Ignore"]) ifNotNil: [:info | | tokens | tokens := info findTokens. vm := tokens at: 2. hash := tokens atLast: 4]. os := Smalltalk os platformName, ' ', Smalltalk os osVersion, ' ', Smalltalk os platformSubtype. image := SystemVersion current version, ' #', SystemVersion current highestUpdate. self inform: ('Please visit the following website to report on bugs, requests, and other issues: <a href="{1}">{1}</a> Make sure that you always include information about your current environment such as: OS: {2} VM: {3} ({4}) SQ: {5} ({6} bit) You can find more in the <a href="code://SystemReporter open">System Reporter</a>.' translated format: {url. os. vm. hash. image. Smalltalk image wordSize * 8}) asTextFromHtml!

1 0

The Inbox: ToolBuilder-Kernel-ct.162.mcz
by commits＠source.squeak.org 11 Sep '22

11 Sep '22

A new version of ToolBuilder-Kernel was added to project The Inbox: http://source.squeak.org/inbox/ToolBuilder-Kernel-ct.162.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-ct.162 Author: ct Time: 17 July 2022, 3:26:41.516615 pm UUID: dc34f48c-6a59-a746-9151-486b8dfb3fcf Ancestors: ToolBuilder-Kernel-eem.161 In menu construction from tuples, allows nil values for the help. Follow up of ToolBuilder-Kernel-eem.161. Complements Morphic-ct.2021. For instance, some menus in the Git Browser failed to open since that change. See SquitBrowser>>#buildMenu:from: and senders. Inbox because I'm not sure whether we should allow nil values here or whether Squot should be fixed instead. =============== Diff against ToolBuilder-Kernel-eem.161 =============== Item was added: + ----- Method: PluggableMenuSpec>>addList: (in category 'construction') ----- + addList: aList + "Add the given items to this menu, where each item is a pair (<string> <actionSelector>).. If an element of the list is simply the symobl $-, add a line to the receiver. The optional third element of each entry, if present, provides balloon help." + + aList do: [:tuple | + tuple == #- + ifTrue: [self addSeparator] + ifFalse:[ | item | + item := self add: tuple first target: model selector: tuple second argumentList: #(). + tuple size > 2 ifTrue: + [tuple third ifNotNil: [:help | + item help: help withCRs]]]]!

3 2

Debian package project - calling PhilB
by tim Rowledge 11 Sep '22

11 Sep '22

HI PhilB; are you still around on the list? Wondering if any progress on making the Debian package thing has been made? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful random insult:- A mental midget with the IQ of a fencepost.

2 2

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

Jump to page: