Packages September 2022

packages@lists.squeakfoundation.org

1 participants
90 discussions

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

13 Sep '22

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1176.mcz ==================== Summary ==================== Name: Tools-ct.1176 Author: ct Time: 13 September 2022, 9:07:22.211523 am UUID: 148ebbd0-9395-6244-9393-47242da1629b Ancestors: Tools-ct.1175 Improves high-dpi support for FileList2. =============== Diff against Tools-ct.1175 =============== Item was changed: ----- Method: FileList2 class>>blueButtonText:textColor:color:inWindow: (in category 'blue ui') ----- blueButtonText: aString textColor: textColor color: aColor inWindow: window | result | result := window fancyText: aString translated + font: Preferences standardButtonFont - font: Preferences standardEToysFont color: textColor. result setProperty: #buttonText toValue: aString; hResizing: #rigid; + extent: 100 px @ 20 px; + layoutInset: 4 px; + borderWidth: 1 px; - extent: 100 @ 20; - layoutInset: 4; - borderWidth: 1; useRoundedCorners. aColor isNil ifFalse: [""result color: aColor. result borderColor: aColor muchDarker]. ^ result! Item was changed: ----- Method: FileList2 class>>blueButtonText:textColor:color:inWindow:balloonText:selector:recipient: (in category 'blue ui') ----- blueButtonText: aString textColor: textColor color: aColor inWindow: window balloonText: balloonText selector: sel recipient: recip | result | result := window fancyText: aString translated + font: Preferences standardButtonFont - font: Preferences standardEToysFont color: textColor. result setProperty: #buttonText toValue: aString; hResizing: #rigid; + extent: 100 px @ 20 px; + layoutInset: 4 px; + borderWidth: 1 px; - extent: 100 @ 20; - layoutInset: 4; - borderWidth: 1; useRoundedCorners; setBalloonText: balloonText. result on: #mouseUp send: sel to: recip. aColor isNil ifFalse: ["" result color: aColor. result borderColor: aColor muchDarker]. ^ result! Item was changed: ----- Method: FileList2 class>>morphicViewFileSelectorForSuffixes:directory: (in category 'morphic ui') ----- morphicViewFileSelectorForSuffixes: aList directory: dir "Answer a morphic file-selector tool for the given suffix list and the given directory." | aFileList window fixedSize midLine gap | aFileList := self new directory: dir. aFileList optionalButtonSpecs: aFileList okayAndCancelServices. aList ifNotNil: [aFileList fileSelectionBlock: [:entry :myPattern | entry isDirectory ifTrue: [false] ifFalse: [aList includes: (FileDirectory extensionFor: entry name asLowercase)]]]. window := BorderedMorph new layoutPolicy: ProportionalLayout new; color: Color lightBlue; borderColor: Color blue; + borderWidth: 4 px; + layoutInset: 4 px; + extent: 600 px @ 400 px; - borderWidth: 4; - layoutInset: 4; - extent: 600@400; useRoundedCorners. window setProperty: #fileListModel toValue: aFileList. aFileList modalView: window. midLine := 0.4. + fixedSize := 25 px. + gap := 5 px. - fixedSize := 25. - gap := 5. self addFullPanesTo: window from: { {self textRow: 'Please select a file'. 0 @ 0 corner: 1 @ 0. 0@0 corner: 0@fixedSize}. {aFileList optionalButtonRow. 0 @ 0 corner: 1 @ 0. 0@fixedSize corner: 0@(fixedSize * 2)}. {aFileList morphicDirectoryTreePane. 0@0 corner: midLine@1. gap @(fixedSize * 2) corner: gap negated@0}. {aFileList morphicFileListPane. midLine @ 0 corner: 1@1. gap@(fixedSize * 2) corner: gap negated@0}. }. aFileList postOpen. ^ window ! Item was changed: ----- Method: FileList2 class>>morphicViewFolderSelector: (in category 'morphic ui') ----- morphicViewFolderSelector: aDir "Answer a tool that allows the user to select a folder" | aFileList window fixedSize | aFileList := self new directory: aDir. aFileList optionalButtonSpecs: aFileList servicesForFolderSelector. window := (SystemWindow labelled: aDir pathName) model: aFileList. aFileList modalView: window. + fixedSize := 25 px. - fixedSize := 25. self addFullPanesTo: window from: { {self textRow: 'Please select a folder'. 0 @ 0 corner: 1 @ 0. 0@0 corner: 0@fixedSize}. {aFileList optionalButtonRow. 0 @ 0 corner: 1 @ 0. 0@fixedSize corner: 0@(fixedSize * 2)}. {aFileList morphicDirectoryTreePane. 0@0 corner: 1@1. 0@(fixedSize * 2) corner: 0@0}. }. aFileList postOpen. + ^ window! - ^ window ! Item was changed: ----- Method: FileList2 class>>morphicViewGeneralLoaderInWorld: (in category 'blue ui') ----- morphicViewGeneralLoaderInWorld: aWorld " FileList2 morphicViewGeneralLoaderInWorld: self currentWorld " | window aFileList buttons treePane textColor1 fileListPane pane2a pane2b fileTypeInfo fileTypeButtons fileTypeRow actionRow | fileTypeInfo := self endingSpecs. window := AlignmentMorphBob1 newColumn. window hResizing: #shrinkWrap; vResizing: #shrinkWrap. textColor1 := Color r: 0.742 g: 0.839 b: 1.0. aFileList := self new directory: FileDirectory default. aFileList fileSelectionBlock: self projectOnlySelectionBlock; modalView: window. window setProperty: #FileList toValue: aFileList; wrapCentering: #center; cellPositioning: #topCenter; + borderWidth: 1 px; - borderWidth: 1; borderColor: (Color r: 0.9 g: 0.801 b: 0.2); useRoundedCorners. fileTypeButtons := fileTypeInfo collect: [ :each | (self blueButtonText: each first textColor: Color gray inWindow: window) setProperty: #enabled toValue: true; hResizing: #shrinkWrap; useSquareCorners ]. buttons := {{'OK'. Color lightGreen}. {'Cancel'. Color lightRed}} collect: [ :each | self blueButtonText: each first textColor: textColor1 color: each second inWindow: window ]. treePane := aFileList morphicDirectoryTreePane + extent: 250 px @ 300 px; - extent: 250@300; retractable: false; borderWidth: 0. fileListPane := aFileList morphicFileListPane + extent: 350 px @ 300 px; - extent: 350@300; retractable: false; borderWidth: 0. window addARow: {window fancyText: 'Find...' translated font: Preferences standardEToysTitleFont color: textColor1}. + fileTypeRow := window addARowCentered: fileTypeButtons cellInset: 2 px. - fileTypeRow := window addARowCentered: fileTypeButtons cellInset: 2. actionRow := window addARowCentered: { buttons first. + (Morph new extent: 30 px @ 5 px) color: Color transparent. - (Morph new extent: 30@5) color: Color transparent. buttons second + } cellInset: 2 px. - } cellInset: 2. window addARow: { (window inAColumn: {(pane2a := window inARow: {window inAColumn: {treePane}}) useRoundedCorners; layoutInset: 0; + borderWidth: 1 px; - borderWidth: 1; borderColor: (Color r: 0.6 g: 0.7 b: 1) }) layoutInset: 10. (window inAColumn: {(pane2b := window inARow: {window inAColumn: {fileListPane}}) useRoundedCorners; layoutInset: 0; + borderWidth: 1 px; - borderWidth: 1; borderColor: (Color r: 0.6 g: 0.7 b: 1) + }) layoutInset: 10 px. - }) layoutInset: 10. }. window fullBounds. window fillWithRamp: (Color r: 1 g: 0.85 b: 0.975) oriented: 0.65. pane2a fillWithRamp: (Color r: 0.85 g: 0.9 b: 1) oriented: (0.7 @ 0.35). pane2b fillWithRamp: (Color r: 0.85 g: 0.9 b: 1) oriented: (0.7 @ 0.35). " buttons do: [ :each | each fillWithRamp: ColorTheme current dialogButtonsRampOrColor oriented: (0.75 @ 0). ]. " fileTypeButtons do: [ :each | each on: #mouseUp send: #value:value: to: [ :evt :morph | self update: actionRow in: window fileTypeRow: fileTypeRow morphUp: morph. ] ]. buttons first on: #mouseUp send: #okHit to: aFileList. buttons second on: #mouseUp send: #cancelHit to: aFileList. aFileList postOpen. window position: aWorld topLeft + (aWorld extent - window extent // 2). aFileList directoryChangeBlock: [ :newDir | self update: actionRow in: window fileTypeRow: fileTypeRow morphUp: nil. self enableTypeButtons: fileTypeButtons info: fileTypeInfo forDir: newDir. ]. aFileList directory: aFileList directory. window adoptPaneColor: (Color r: 0.548 g: 0.677 b: 1.0). ^ window openInWorld: aWorld.! Item was changed: ----- Method: FileList2 class>>morphicViewImageViewer (in category 'morphic ui') ----- morphicViewImageViewer | dir aFileList window midLine fixedSize | dir := FileDirectory default. aFileList := self new directory: dir. aFileList optionalButtonSpecs: aFileList specsForImageViewer. aFileList fileSelectionBlock: [ :entry :myPattern | entry isDirectory ifTrue: [ false ] ifFalse: [ #('bmp' 'gif' 'jpg' 'form' 'png') includes: (FileDirectory extensionFor: entry name asLowercase) ] ]. window := (SystemWindow labelled: dir pathName) model: aFileList. + fixedSize := 25 px. - fixedSize := 25. midLine := 0.4. self addFullPanesTo: window from: { {aFileList optionalButtonRow. 0 @ 0 corner: 1 @ 0. 0@0 corner: 0@fixedSize}. {aFileList morphicDirectoryTreePane. 0@0 corner: midLine@1. 0@fixedSize corner: 0@0}. {aFileList morphicFileListPane. midLine @ 0 corner: 1@1. 0@fixedSize corner: 0@0}. }. aFileList postOpen. ^ window ! Item was changed: ----- Method: FileList2 class>>morphicViewNoFile (in category 'morphic ui') ----- morphicViewNoFile | dir aFileList window midLine fixedSize | dir := FileDirectory default. aFileList := self new directory: dir. window := (SystemWindow labelled: dir pathName) model: aFileList. + fixedSize := 25 px. - fixedSize := 25. midLine := 0.4. self addFullPanesTo: window from: { {aFileList morphicPatternPane. 0@0 corner: 0.3@0. 0@0 corner: 0@fixedSize}. {aFileList optionalButtonRow. 0.3 @ 0 corner: 1@0. 0@0 corner: 0@fixedSize}. {aFileList morphicDirectoryTreePane. 0@0 corner: midLine@1. 0@fixedSize corner: 0@0}. {aFileList morphicFileListPane. midLine @ 0 corner: 1@1. 0@fixedSize corner: 0@0}. }. aFileList postOpen. + ^ window! - ^ window ! Item was changed: ----- Method: FileList2 class>>morphicViewProjectLoader (in category 'morphic ui') ----- morphicViewProjectLoader | dir aFileList window midLine fixedSize | dir := FileDirectory default. aFileList := self new directory: dir. aFileList optionalButtonSpecs: aFileList servicesForProjectLoader. aFileList fileSelectionBlock: self projectOnlySelectionBlock. window := (SystemWindow labelled: dir pathName) model: aFileList. + fixedSize := 25 px. - fixedSize := 25. midLine := 0.4. self addFullPanesTo: window from: { {aFileList optionalButtonRow. 0 @ 0 corner: 1 @ 0. 0@0 corner: 0@fixedSize}. {aFileList morphicDirectoryTreePane. 0@0 corner: midLine@1. 0@fixedSize corner: 0@0}. {aFileList morphicFileListPane. midLine @ 0 corner: 1@1. 0@fixedSize corner: 0@0}. }. aFileList postOpen. + ^ window! - ^ window ! Item was changed: ----- Method: FileList2 class>>morphicViewProjectLoader2InWorld:reallyLoad:dirFilterType: (in category 'blue ui') ----- morphicViewProjectLoader2InWorld: aWorld reallyLoad: aBoolean dirFilterType: aSymbol | window aFileList buttons treePane textColor1 fileListPane pane2a pane2b treeExtent filesExtent | window := AlignmentMorphBob1 newColumn. window hResizing: #shrinkWrap; vResizing: #shrinkWrap. textColor1 := Color r: 0.742 g: 0.839 b: 1.0. aFileList := self new. aFileList optionalButtonSpecs: aFileList servicesForProjectLoader; fileSelectionBlock: ( aSymbol == #limitedSuperSwikiDirectoryList ifTrue: [ MessageSend receiver: Project current selector: #latestProjectVersionsFromFileEntries: ] ifFalse: [ self projectOnlySelectionBlock ] ); "dirSelectionBlock: self hideSqueakletDirectoryBlock;" modalView: window. aFileList directory: FileDirectory default. window setProperty: #FileList toValue: aFileList; wrapCentering: #center; cellPositioning: #topCenter; + borderWidth: 1 px; - borderWidth: 1; borderColor: (Color r: 0.9 g: 0.801 b: 0.2); useRoundedCorners. buttons := {{'OK'. Color lightGreen}. {'Cancel'. Color lightRed}} collect: [ :each | self blueButtonText: each first textColor: textColor1 color: each second inWindow: window ]. + aWorld width < 800 px ifTrue: [ + treeExtent := 150 px @ 300 px. + filesExtent := 350 px @ 300 px. - aWorld width < 800 ifTrue: [ - treeExtent := 150@300. - filesExtent := 350@300. ] ifFalse: [ + treeExtent := 350 px @ 500 px. + filesExtent := 550 px @500 px. - treeExtent := 350@500. - filesExtent := 550@500. ]. (treePane := aFileList morphicDirectoryTreePaneFiltered: aSymbol) extent: treeExtent; retractable: false; borderWidth: 0. fileListPane := aFileList morphicFileListPane extent: filesExtent; retractable: false; borderWidth: 0. window addARow: { window fancyText: 'Load A Project' translated font: Preferences standardEToysTitleFont color: textColor1 }; addARowCentered: { buttons first. + (Morph new extent: 30 px @ 5 px) color: Color transparent. - (Morph new extent: 30@5) color: Color transparent. buttons second }; addARow: { + window fancyText: 'Please select a project' translated font: Preferences standardButtonFont color: textColor1 - window fancyText: 'Please select a project' translated font: Preferences standardEToysFont color: textColor1 }; addARow: { (window inAColumn: {(pane2a := window inARow: {window inAColumn: {treePane}}) useRoundedCorners; layoutInset: 0; + borderWidth: 1 px; - borderWidth: 1; borderColor: (Color r: 0.6 g: 0.7 b: 1) + }) layoutInset: 10 px. - }) layoutInset: 10. (window inAColumn: {(pane2b := window inARow: {window inAColumn: {fileListPane}}) useRoundedCorners; layoutInset: 0; + borderWidth: 1 px; - borderWidth: 1; borderColor: (Color r: 0.6 g: 0.7 b: 1) + }) layoutInset: 10 px. - }) layoutInset: 10. }. window fullBounds. window fillWithRamp: (Color r: 1 g: 0.85 b: 0.975) oriented: 0.65. pane2a fillWithRamp: (Color r: 0.85 g: 0.9 b: 1) oriented: (0.7 @ 0.35). pane2b fillWithRamp: (Color r: 0.85 g: 0.9 b: 1) oriented: (0.7 @ 0.35). " buttons do: [ :each | each fillWithRamp: ColorTheme current dialogButtonsRampOrColor oriented: (0.75 @ 0). ]. " buttons first on: #mouseUp send: (aBoolean ifTrue: [#okHitForProjectLoader] ifFalse: [#okHit]) to: aFileList. buttons second on: #mouseUp send: #cancelHit to: aFileList. aFileList postOpen. window position: aWorld topLeft + (aWorld extent - window extent // 2). window adoptPaneColor: (Color r: 0.548 g: 0.677 b: 1.0). ^ window openInWorld: aWorld.! Item was changed: ----- Method: FileList2 class>>morphicViewProjectSaverFor: (in category 'blue ui') ----- morphicViewProjectSaverFor: aProject " (FileList2 morphicViewProjectSaverFor: Project current) openInWorld " | window aFileList buttons treePane pane2 textColor1 option treeExtent buttonData buttonRow | textColor1 := Color r: 0.742 g: 0.839 b: 1.0. aFileList := self new directory: ServerDirectory projectDefaultDirectory. aFileList dirSelectionBlock: self hideSqueakletDirectoryBlock. window := AlignmentMorphBob1 newColumn. window hResizing: #shrinkWrap; vResizing: #shrinkWrap. aFileList modalView: window. window setProperty: #FileList toValue: aFileList; wrapCentering: #center; cellPositioning: #topCenter; borderWidth: 1; borderColor: (Color r: 0.9 g: 0.801 b: 0.2); useRoundedCorners. buttonData := Preferences enableLocalSave ifTrue: [{ {'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. Color lightGreen}. {'Save on local disk only'. #saveLocalOnlyHit. 'saves in the Squeaklets folder'. Color lightGreen}. {'Cancel'. #cancelHit. 'return without saving'. Color lightRed} }] ifFalse: [{ {'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. Color lightGreen}. {'Cancel'. #cancelHit. 'return without saving'. Color lightRed} }]. buttons := buttonData collect: [ :each | (self blueButtonText: each first textColor: textColor1 color: each fourth inWindow: window) setBalloonText: each third translated; hResizing: #shrinkWrap; on: #mouseUp send: each second to: aFileList ]. option := aProject world valueOfProperty: #SuperSwikiPublishOptions ifAbsent: [#initialDirectoryList]. aProject world removeProperty: #SuperSwikiPublishOptions. + treeExtent := Project current world height < 500 px + ifTrue: [ 350 px @ 150 px ] + ifFalse: [ 350 px @ 300 px ]. - treeExtent := Project current world height < 500 - ifTrue: [ 350@150 ] - ifFalse: [ 350@300 ]. (treePane := aFileList morphicDirectoryTreePaneFiltered: option) extent: treeExtent; retractable: false; borderWidth: 0. window addARowCentered: { window fancyText: 'Publish This Project' translated font: Preferences standardEToysTitleFont color: textColor1 }. buttonRow := OrderedCollection new. + buttons do: [:button | buttonRow add: button] separatedBy: [buttonRow add: ((Morph new extent: 30 px @ 5 px) color: Color transparent)]. - buttons do: [:button | buttonRow add: button] separatedBy: [buttonRow add: ((Morph new extent: 30@5) color: Color transparent)]. " addARowCentered: { buttons first. + (Morph new extent: 30 px @ 5 px) color: Color transparent. - (Morph new extent: 30@5) color: Color transparent. buttons second. + (Morph new extent: 30 px@ 5 px) color: Color transparent. - (Morph new extent: 30@5) color: Color transparent. buttons third };" window addARowCentered: buttonRow; + addARowCentered: { (window inAColumn: {(ProjectViewMorph on: aProject) lock}) layoutInset: 4 px}; - addARowCentered: { (window inAColumn: {(ProjectViewMorph on: aProject) lock}) layoutInset: 4}; addARowCentered: { + window fancyText: 'Please select a folder' translated font: Preferences standardButtonFont color: textColor1 - window fancyText: 'Please select a folder' translated font: Preferences standardEToysFont color: textColor1 }; addARow: { ( window inAColumn: { (pane2 := window inARow: {window inAColumn: {treePane}}) useRoundedCorners; layoutInset: 0; + borderWidth: 1 px; - borderWidth: 1; borderColor: (Color r: 0.6 g: 0.7 b: 1) } + ) layoutInset: 10 px - ) layoutInset: 10 }. window fullBounds. window fillWithRamp: (Color r: 1 g: 0.85 b: 0.975) oriented: 0.65. pane2 fillWithRamp: (Color r: 0.85 g: 0.9 b: 1) oriented: (0.7 @ 0.35). " buttons do: [ :each | each fillWithRamp: ColorTheme current dialogButtonsRampOrColor oriented: (0.75 @ 0). ]. " window morphicLayerNumber: window class dialogLayer. aFileList postOpen. window adoptPaneColor: (Color r: 0.548 g: 0.677 b: 1.0). ^ window ! Item was changed: ----- Method: FileList2>>blueButtonForService:textColor:inWindow: (in category 'user interface') ----- blueButtonForService: aService textColor: textColor inWindow: window | block result | block := [self fullName isNil ifTrue: [self inform: 'Please select a file' translated] ifFalse: [aService performServiceFor: self]]. result := window fancyText: aService buttonLabel capitalized translated + font: Preferences standardButtonFont - font: Preferences standardEToysFont color: textColor. result setProperty: #buttonText toValue: aService buttonLabel capitalized; hResizing: #rigid; + extent: 100 px @ 20 px; + layoutInset: 4 px; + borderWidth: 1 px; - extent: 100 @ 20; - layoutInset: 4; - borderWidth: 1; useRoundedCorners; setBalloonText: aService label. result on: #mouseUp send: #value to: block. ^ result! Item was changed: ----- Method: FileList2>>optionalButtonRow (in category 'initialization') ----- optionalButtonRow "Answer the button row associated with a file list" | aRow | aRow := AlignmentMorph newRow beSticky. aRow color: Color transparent. aRow clipSubmorphs: true. + aRow layoutInset: 5 px @ 1 px; cellGap: 6 px. - aRow layoutInset: 5@1; cellGap: 6. self universalButtonServices do: "just the three sort-by items" [:service | aRow addMorphBack: (service buttonToTriggerIn: self). (service selector == #sortBySize) ifTrue: + [aRow addTransparentSpacerOfSize: (4 px @ 0)]]. - [aRow addTransparentSpacerOfSize: (4@0)]]. aRow setNameTo: 'buttons'. aRow setProperty: #buttonRow toValue: true. "Used for dynamic retrieval later on" ^ aRow!

1 0

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

The Trunk: Tools-ct.1173.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.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.!

1 0

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 Treated Inbox: Regex-Tests-Core-ct.24.mcz
by commits＠source.squeak.org 12 Sep '22

12 Sep '22

Christoph Thiede uploaded a new version of Regex-Tests-Core to project The Treated Inbox: http://source.squeak.org/treated/Regex-Tests-Core-ct.24.mcz ==================== Summary ==================== Name: Regex-Tests-Core-ct.24 Author: ct Time: 23 August 2021, 9:21:50.43534 pm UUID: 43ea3080-816c-a44d-878f-9ef50d27288b Ancestors: Regex-Tests-Core-mt.16 Complements Regex-Core-ct.68 (Unicode backslash atoms). =============== Diff against Regex-Tests-Core-mt.16 =============== Item was added: + ----- Method: RxParserTest>>testCodePointu (in category 'tests') ----- + testCodePointu + + | string | + string := String value: 16r1f388. + self assert: [string matchesRegex: '\u{1f388}']. + self deny: [string matchesRegex: '\u{1f387}']. + self deny: ['\u{1f388}' matchesRegex: '\u{1f388}']. + self deny: ['1f388' matchesRegex: '\u{1f388}']. + self deny: [(String value: 16r1f389) matchesRegex: '\u{1f388}']. + self deny: [(WideString fromByteArray: #(16r17f3 16r88)) matchesRegex: '\u{1f388}']. + self deny: [(WideString fromByteArray: #(16r17f3 88)) matchesRegex: '\u{1f388}']. + + self deny: [(String new: 20 withAll: $u) matchesRegex: '\u{20}'].! Item was added: + ----- Method: RxParserTest>>testCodePointx (in category 'tests') ----- + testCodePointx + + self assert: ['8' matchesRegex: '\x38']. + self deny: ['8' matchesRegex: '\x39']. + self deny: ['9' matchesRegex: '\x38']. + self deny: ['&' matchesRegex: '\x38']. + self deny: ['\x38' matchesRegex: '\x38']. + self deny: ['38' matchesRegex: '\x38']. + self deny: [(WideString fromByteArray: {3. 8}) matchesRegex: '\x38']. + self deny: [(WideString fromByteArray: {3. 38}) matchesRegex: '\x38']. + self deny: [(String new: 20 withAll: $x) matchesRegex: '\x20']. + + self assert: ['8' matchesRegex: '\x{38}']. + self deny: ['8' matchesRegex: '\x{39}']. + self deny: ['9' matchesRegex: '\x{38}']. + self deny: ['\x{38}' matchesRegex: '\x{38}'].! Item was added: + ----- Method: RxParserTest>>testUnicodeCategory (in category 'tests') ----- + testUnicodeCategory + + self assert: ['X' matchesRegex: '\p{Lu}']. + self assert: ['X' matchesRegex: '\p{L}']. + self deny: ['X' matchesRegex: '\p{Ll}']. + self assert: ['x' matchesRegex: '\p{Ll}']. + self assert: ['x' matchesRegex: '\p{L}']. + self deny: ['x' matchesRegex: '\p{Lu}']. + + self deny: ['X' matchesRegex: '\P{Lu}']. + self deny: ['X' matchesRegex: '\P{L}']. + self assert: ['X' matchesRegex: '\P{Ll}']. + self deny: ['x' matchesRegex: '\P{Ll}']. + self deny: ['x' matchesRegex: '\P{L}']. + self assert: ['x' matchesRegex: '\P{Lu}'].!

1 0

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

09 Sep '22

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1174.mcz ==================== Summary ==================== Name: Tools-ct.1174 Author: ct Time: 9 September 2022, 10:59:25.805395 pm UUID: c6e6fc87-b341-c940-8993-c72b2a6bc5e4 Ancestors: Tools-ct.1171 Fixes slip in browser when defining a trait over a selected class. =============== Diff against Tools-ct.1171 =============== Item was changed: ----- Method: Browser>>defineTrait:notifying: (in category 'traits') ----- defineTrait: defString notifying: aController | defTokens keywdIx envt oldTrait newTraitName trait | oldTrait := self selectedClassOrMetaClass. + oldTrait isTrait ifFalse: [oldTrait := nil]. defTokens := defString findTokens: Character separators. keywdIx := defTokens findFirst: [:x | x = 'category']. envt := self selectedEnvironment. keywdIx := defTokens findFirst: [:x | x = 'named:']. newTraitName := (defTokens at: keywdIx+1) copyWithoutAll: '#()'. ((oldTrait isNil or: [oldTrait baseTrait name asString ~= newTraitName]) and: [envt includesKey: newTraitName asSymbol]) ifTrue: ["Attempting to define new class/trait over existing one when not looking at the original one in this browser..." (self confirm: ((newTraitName , ' is an existing class/trait in this system. Redefining it might cause serious problems. Is this really what you want to do?') asText makeBoldFrom: 1 to: newTraitName size)) ifFalse: [^ false]]. trait := envt beCurrentDuring: [Compiler evaluate: defString in: envt notifying: aController logged: true]. ^(trait isTrait) ifTrue: [ self changed: #classList. self classListIndex: (self classListIndexOf: trait baseTrait name). self clearUserEditFlag; editClass. true] ifFalse: [ false ] !

1 0

The Trunk: Installer-Core-ct.451.mcz
by commits＠source.squeak.org 09 Sep '22

09 Sep '22

Christoph Thiede uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-ct.451.mcz ==================== Summary ==================== Name: Installer-Core-ct.451 Author: ct Time: 8 September 2022, 9:38:49.346128 pm UUID: 05f0cf03-9bef-9248-881a-a80b6c3a7b64 Ancestors: Installer-Core-eem.450 Accelerates #ensureRecentMetacello by one or two seconds by sharing the Metacello instance for #get and #load. See https://github.com/Metacello/metacello/pull/552#issuecomment-1152634032 for an argument. =============== Diff against Installer-Core-eem.450 =============== Item was changed: ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') ----- ensureRecentMetacello "Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md" | metacello | ((Smalltalk classNamed: #WebClient) ifNil: [ false ] ifNotNil: [ :webClient | [ (webClient httpHead: 'https://github.com') isSuccess ] on: Error do: [ false ] ]) ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ]. self isMetacelloInstalled ifFalse: [ | response | "Download base archive of Metacello." response := WebClient httpGet: 'https://files.squeak.org/metacello/metacello-squeak60.sar'. response isSuccess ifFalse: [ self error: ('Could not download Metacello archive: {1}' translated format: {response status})]. "Prepare a clean environment and install it." Smalltalk globals removeKey: #Metacello ifAbsent: ["Ignore prior attempts."]. SARInstaller new fileInFrom: response content asByteArray readStream]. metacello := Smalltalk classNamed: #Metacello. "Now load latest version of Metacello" metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; + get; - get. - metacello new - baseline: 'Metacello'; - repository: 'github://Metacello/metacello:master/repository'; load: #('default' 'Metacello-Help').!

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2022