Squeak-dev September 2022

squeak-dev@lists.squeakfoundation.org

29 participants
158 discussions

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

13 Sep '22

Christoph Thiede uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-ct.89.mcz ==================== Summary ==================== Name: MorphicTests-ct.89 Author: ct Time: 13 September 2022, 12:22:09.913695 pm UUID: bf6eefe7-f24d-cf4a-b1a7-7167a703eb23 Ancestors: MorphicTests-ct.88 Adds a regression test for shrinking TransformationMorphs. Complements Morphic-ct.2041. =============== Diff against MorphicTests-ct.88 =============== Item was added: + TestCase subclass: #TransformMorphBugs + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicTests-Basic'! Item was added: + ----- Method: TransformMorphBugs>>testLayoutConvergence (in category 'tests - geometry') ----- + testLayoutConvergence + + | scale f inner newScale outer | + scale := 0.4. + inner := Morph new color: Color red. + f := inner addFlexShell + scale: scale; + yourself. + + outer := Morph new color: Color yellow. + outer changeTableLayout. + outer addMorph: f. + outer addMorph: (Morph new extent: 30 @ 10). + + 100 timesRepeat: [ + f layoutChanged. outer fullBounds. + newScale := f scale. + self assert: (scale - newScale) abs < 0.001].!

1 0

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

13 Sep '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2041.mcz ==================== Summary ==================== Name: Morphic-ct.2041 Author: ct Time: 13 September 2022, 12:21:12.708695 pm UUID: a8ebbbd7-0bfd-9241-8a0d-9bed28da4251 Ancestors: Morphic-ct.2039 Adds an optimization to TransformationMorph>>#extent: that also helps to avoid layout divergence/ever-shrinkage in TransformationMorphs with odd extents for now. Besides this patch, we should still consider a "preciseExtent" solution as described in the referenced issue. =============== Diff against Morphic-ct.2039 =============== Item was changed: ----- Method: TransformationMorph>>extent: (in category 'geometry') ----- extent: newExtent + "Optimization (see super). ct: Currently also used as a backstop to avoid layout divergence for odd extents caused by rounding errors for the bounds. In the future, we might want to try to remember the precise bounds in the receiver. See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-August/221968.h…" + self extent = newExtent ifTrue: [^ self]. + self renderedMorph == self ifTrue: [super extent: newExtent] ifFalse: [ self adjustAfter: [ | scaleFactor | scaleFactor := (self scale * newExtent r / self fullBounds extent r) max: 0.1. self scale: (scaleFactor detentBy: 0.1 atMultiplesOf: 1.0 snap: false)]].!

1 0

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

13 Sep '22

Christoph Thiede uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ct.333.mcz ==================== Summary ==================== Name: MorphicExtras-ct.333 Author: ct Time: 13 September 2022, 11:47:58.797695 am UUID: 94a7eed3-7356-bd46-a34d-8feb18b6576d Ancestors: MorphicExtras-ct.332 Fixes a high-dpi slip in PianoRollScoreMorph. =============== Diff against MorphicExtras-ct.332 =============== Item was changed: ----- Method: PianoRollScoreMorph>>moveCursorToTime: (in category 'scrolling') ----- moveCursorToTime: scoreTime | cursorOffset desiredCursorHeight | scorePlayer isPlaying ifTrue: [cursorOffset := ((scoreTime - leftEdgeTime) asFloat * timeScale * RealEstateAgent scaleFactor) asInteger. (cursorOffset < 0 or: [cursorOffset > (self width - 20 px)]) ifTrue: [self goToTime: scoreTime - (20 px / timeScale). + cursorOffset := ((scoreTime - leftEdgeTime) asFloat * timeScale * RealEstateAgent scaleFactor) asInteger]] - cursorOffset := ((scoreTime - leftEdgeTime) asFloat * timeScale) asInteger]] ifFalse: + [self goToTime: (scoreTime - (self width//2 / timeScale / RealEstateAgent scaleFactor) + max: (self width//10 / timeScale / RealEstateAgent scaleFactor) negated). + cursorOffset := ((scoreTime - leftEdgeTime) asFloat * timeScale * RealEstateAgent scaleFactor) asInteger]. - [self goToTime: (scoreTime - (self width//2 / timeScale) - max: (self width//10 / timeScale) negated). - cursorOffset := ((scoreTime - leftEdgeTime) asFloat * timeScale) asInteger]. cursor position: (self left + self borderWidth + cursorOffset)@(self top + self borderWidth). desiredCursorHeight := self height. cursor height ~= desiredCursorHeight ifTrue: [cursor extent: (1 px clampLow: 1) @ desiredCursorHeight].!

1 0

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

13 Sep '22

Christoph Thiede uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ct.332.mcz ==================== Summary ==================== Name: MorphicExtras-ct.332 Author: ct Time: 13 September 2022, 10:43:26.542293 am UUID: b8569da9-9d0e-2d40-9b14-c72daf1534be Ancestors: MorphicExtras-ct.331 Makes tick indicator high-dpi-sensitive. =============== Diff against MorphicExtras-ct.331 =============== Item was changed: ----- Method: TickIndicatorMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas | r center cc deg | super drawOn: aCanvas. corners ifNil:[ + r := (bounds topCenter - bounds center) r - 2 px. - r := (bounds topCenter - bounds center) r - 2. corners := Array new: 32. 1 to: corners size do:[:i| deg := 360.0 / corners size * (i-1). corners at: i put: (Point r: r degrees: deg-90) asIntegerPoint]]. index := index \\ corners size. cc := color darker. center := bounds center. 1 to: corners size by: 4 do:[:i| + aCanvas fillRectangle: (center + (corners at: i)-2 extent: 4 px @ 4 px) color: cc. - aCanvas fillRectangle: (center + (corners at: i)-2 extent: 4@4) color: cc. ]. cc := cc darker. + aCanvas line: center to: center + (corners at: index + 1) width: 2 px color: cc.! - aCanvas line: center to: center + (corners at: index + 1) width: 2 color: cc.! Item was changed: ----- Method: TickIndicatorMorph>>extent: (in category 'geometry') ----- extent: aPoint + super extent: ((aPoint x max: aPoint y) roundDownTo: 4 px) asPoint. - super extent: ((aPoint x max: aPoint y) asInteger bitClear: 3) asPoint. corners := nil.! Item was changed: ----- Method: TickIndicatorMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" + self extent: 30 px @ 30 px. - self extent: 30 @ 30. index := 0!

1 0

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

13 Sep '22

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1371.mcz ==================== Summary ==================== Name: System-ct.1371 Author: ct Time: 13 September 2022, 10:15:48.374172 am UUID: 6ec2954f-5dcc-3f41-b3a7-3c4310973c7f Ancestors: System-ct.1370 Documents an example on ChangeSet class>>#removeChangeSetsNamedSuchThat:. =============== Diff against System-ct.1370 =============== Item was changed: ----- Method: ChangeSet class>>removeChangeSetsNamedSuchThat: (in category 'enumerating') ----- removeChangeSetsNamedSuchThat: nameBlock + " + Example (this should match a Monticello version names from installing the update stream): + + self removeChangeSetsNamedSuchThat: [:name | name matchesRegex: '[\w-]+-\w+\.\d+'] + " (self changeSetsNamedSuchThat: nameBlock) do: [:cs | self removeChangeSet: cs]!

1 0

The Trunk: EToys-ct.483.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.483.mcz ==================== Summary ==================== Name: EToys-ct.483 Author: ct Time: 13 September 2022, 10:04:53.483293 am UUID: 29d2f5c2-b618-5140-9ea4-e35b7cad312b Ancestors: EToys-ct.482 Complements System-ct.1370 (Project explicitName). =============== Diff against EToys-ct.482 =============== Item was changed: ----- Method: Project>>name: (in category '*Etoys-Squeakland-accessing') ----- name: aString + changeSet ifNil: [ + self flag: #ct. "Can we redirect to #explicitName: here instead of creating change set, or does anyone rely on this side effect?" + changeSet := ChangeSet new]. - changeSet ifNil: [changeSet := ChangeSet new]. (aString isEmpty or: [aString = changeSet name]) ifFalse: [changeSet name: (ChangeSet uniqueNameLike: aString)]!

1 0

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

13 Sep '22

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1370.mcz ==================== Summary ==================== Name: System-ct.1370 Author: ct Time: 13 September 2022, 10:03:33.429293 am UUID: 23193c2a-bc1f-8a40-8979-9a4f67da6542 Ancestors: System-cmm.1369 Adds an optional #explicitName property to Project that may deviate from the name of the associated change set. For instance, this can be helpful when sharing the same change set between multiple projects. This commit is part of reconstruction of Objectland (also known as "The Worlds of Squeak"). For more information, see: http://forum.world.st/The-Inbox-MorphicExtras-ct-267-mcz-td5104764.html =============== Diff against System-cmm.1369 =============== Item was changed: Model subclass: #Project + instanceVariableNames: 'world uiManager changeSet transcript parentProject previousProject displayDepth viewSize thumbnail nextProject projectParameters version urlList lastDirectory lastSavedAtSeconds projectPreferenceFlagDictionary resourceManager explicitName' - instanceVariableNames: 'world uiManager changeSet transcript parentProject previousProject displayDepth viewSize thumbnail nextProject projectParameters version urlList lastDirectory lastSavedAtSeconds projectPreferenceFlagDictionary resourceManager' classVariableNames: 'AllProjects CurrentProject EmergencyRecoveryRequested GoalFreePercent GoalNotMoreThan' poolDictionaries: '' category: 'System-Support'! !Project commentStamp: 'cbr 7/27/2010 21:36' prior: 0! A Project stores the state of a complete Squeak desktop, including the windows, and the currently active changeSet. A project knows who its parent project is. When you change projects, whether by entering or exiting, the screen state of the project being exited is saved in that project. A project is retained by its view in the parent world. It is effectively named by the name of its changeSet, which can be changed either by renaming in a changeSorter, or by editing the label of its view from the parent project. As the site of major context switch, Projects are the locus of swapping between the old MVC and the new Morphic worlds. The distinction is based on whether the variable 'world' contains a WorldMorph or a ControlManager. Saving and Loading Projects may be stored on the disk in external format. (Project named: 'xxx') exportSegment, or choose 'store project on file...'. Projects may be loaded from a server and stored back. Storing on a server never overwrites; it always makes a new version. A project remembers the url of where it lives in urlList. The list is length one, for now. The url may point to a local disk instead of a server. All projects that the user looks at are cached in the Squeaklet folder. Sorted by server. The cache holds the most recent version only. When a project is loaded into Squeak, its objects are converted to the current version. There are three levels of conversion. First, each object is converted from raw bits to an object in its old format. Then it is sent some or all of these messages: comeFullyUpOnReload: smartRefStream Used to re-discover an object that already exists in this image, such as a resource, global variable, Character, or Symbol. (sent to objects in outPointers) convertToCurrentVersion: varDict refStream: smartRefStrm fill in fields that have been added to a class since the object was stored. Used to set the extra inst var to a default value. Or, return a new object of a different class. (sent to objects that changed instance variables) fixUponLoad: aProject refStream: smartRefStrm change the object due to conventions that have changed on the project level. (sent to all objects in the incoming project) Here is the calling sequence for storing out a Project: Project saveAs Project storeOnServer Project storeOnServerWithProgressInfo Project storeOnServerInnards Project exportSegmentFileName:directory: Project exportSegmentWithChangeSet:fileName:directory: ImageSegment writeForExportWithSources:inDirectory:changeSet: ! Item was added: + ----- Method: Project>>explicitName (in category 'accessing') ----- + explicitName + "An explicit name string that can be specified to override the name of the associated change set. For instance, this can be helpful when sharing the same change set between multiple projects. See #name. Optional." + + ^ explicitName! Item was added: + ----- Method: Project>>explicitName: (in category 'accessing') ----- + explicitName: aStringOrNil + "An explicit name string that can be specified to override the name of the associated change set. For instance, this can be helpful when sharing the same change set between multiple projects. See #name. Optional." + + explicitName := aStringOrNil.! Item was changed: ----- Method: Project>>name (in category 'accessing') ----- name + self explicitName ifNotNil: [^ self explicitName]. + changeSet ifNotNil: [^ changeSet name]. + ^ 'no name'! - changeSet == nil ifTrue: [^ 'no name']. - ^ changeSet name!

1 0

The Inbox: Morphic-ct.2040.mcz
by commits＠source.squeak.org 13 Sep '22

13 Sep '22

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.2040.mcz ==================== Summary ==================== Name: Morphic-ct.2040 Author: ct Time: 13 September 2022, 9:16:44.916523 am UUID: 1d78d473-ef93-d741-877f-90e485d21356 Ancestors: Morphic-ct.2039 Improves high-dpi support for AlignmentMorph. While technically consistent, this would make the high-dpi mode look less clean and minimalistic for some widgets (such as menus), so we want this change indeed? =============== Diff against Morphic-ct.2039 =============== Item was changed: ----- Method: AlignmentMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" self layoutPolicy: TableLayout new; listDirection: #leftToRight; wrapCentering: #topLeft; hResizing: #spaceFill; vResizing: #spaceFill; + layoutInset: 2 px; - layoutInset: 2; rubberBandCells: true!

1 0

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

13 Sep '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2039.mcz ==================== Summary ==================== Name: Morphic-ct.2039 Author: ct Time: 13 September 2022, 9:12:32.874523 am UUID: 1a114662-bba8-114c-b88d-eb610d393157 Ancestors: Morphic-ct.2038 Improves high-dpi support for Etoys icons. =============== Diff against Morphic-ct.2038 =============== Item was changed: ----- Method: StandardScriptingSystem>>formAtKey: (in category 'form dictionary') ----- formAtKey: aString "Answer the form saved under the given key" + ^((Symbol lookup: aString) - ^(Symbol lookup: aString) ifNotNil: [ :aKey | FormDictionary at: aKey ifAbsent: [ FormDictionary at: #Cat ] ] + ifNil: [ FormDictionary at: #Cat ]) + magnifyBy: RealEstateAgent scaleFactor! - ifNil: [ FormDictionary at: #Cat ]!

1 0

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

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

Jump to page: