Squeak-dev September 2016

squeak-dev@lists.squeakfoundation.org

46 participants
175 discussions

The Trunk: EToys-tfel.252.mcz
by commits＠source.squeak.org 26 Sep '16

26 Sep '16

Tim Felgentreff uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tfel.252.mcz ==================== Summary ==================== Name: EToys-tfel.252 Author: tfel Time: 26 September 2016, 10:06:37.467552 am UUID: ec8e5c79-9271-ee4b-b729-a0138c2b4b9d Ancestors: EToys-tfel.251 fix a potential bug when the info dictionary for kedama turtle vector players was restored from siss =============== Diff against EToys-tfel.251 =============== Item was changed: ----- Method: KedamaTurtleVectorPlayer2>>compileAllAccessors (in category 'player protocol') ----- compileAllAccessors + info rehash. info keys asArray do: [:k | (#(who x y heading color visible predicate) includes: k) ifFalse: [ self compileVectorInstVarAccessorsFor: k. ]. ]. !

1 0

Daily Commit Log
by commits＠source.squeak.org 23 Sep '16

23 Sep '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-September/068946.… Name: EToys-tfel.244 Ancestors: EToys-tfel.243 - move the BookMorph>>storeAsDataStream methods to SISS - when editing the Kedama drawing, don't include the patch in the painting, only the turtles (this way we can now e.g. pause the forest fire, erase some trees to create a firebreak, and then continue running the fire :)) - re-add the code from Squeakland to draw large arrows on mouse over ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068947.… Name: EToys-tfel.245 Ancestors: EToys-tfel.244 remove haltOnce. I should check for slips before committing ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068948.… Name: EToys-tfel.246 Ancestors: EToys-tfel.245 - hide uniclasses from the system, so they are collected when their players go away - fix editing and saving player scripts that refer to other players by name ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068949.… Name: Kernel-tfel.1039 Ancestors: Kernel-bf.1038 - hide uniclasses from the environment, so they are collected automatically when their players go away. One can always browse such classes using the InstanceBrowser, anyway. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068950.… Name: Morphic-tfel.1309 Ancestors: Morphic-jl.1308 when uniclasses are hidden from the global environment, we want to browse them with the InstanceBrowser ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068951.… Name: MorphicExtras-tfel.198 Ancestors: MorphicExtras-jl.197 Flag those hacks for the etoys viewer flaps so we can remember to clean them up ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068952.… Name: Protocols-tfel.57 Ancestors: Protocols-tfel.56 Fix showing source of uniclasses that are not in the environment in instance browsers by going directly through the instance's class for lookup ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068953.… Name: EToys-tfel.247 Ancestors: EToys-tfel.246 - Player classes should always return a category, be it the uniclass category by default. This is required for recompiling when the class isn't in any organization - make sure that we cannot drag tile morphs out of their Etoys sentences, because that breaks compilation ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068954.… Name: EToys-tfel.248 Ancestors: EToys-tfel.247 - also don't allow grabbing a tile morph out of the viewer line - add a convenient way to add a name watcher to a player's morph through the viewer menu ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068955.… Name: EToys-tfel.249 Ancestors: EToys-tfel.248 fix the defensive code for updating status morphs in scripts ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068956.… Name: EToys-tfel.250 Ancestors: EToys-tfel.249 since different script instantiation may need to update their statuses, don't use just one global flag, instead have a flag for each instantiation ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068957.… Name: 60Deprecated-tfel.3 Ancestors: 60Deprecated-mt.2 deprecate the old modalWindow property, was only used by eToys code ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068958.… Name: EToys-tfel.251 Ancestors: EToys-tfel.250 remove becomeModal ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068959.… Name: Morphic-tfel.1310 Ancestors: Morphic-tfel.1309 deprecate modalWindow property usage on PasteUpMorphs, that was only used in eToys related code ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068960.… Name: Network-tfel.185 Ancestors: Network-tfel.184 becomeModal was deprecated ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068961.… Name: Tools-tfel.728 Ancestors: Tools-jl.727 becomeModal was deprecated ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-September/068962.… Name: ToolBuilder-Morphic-topa.188 Ancestors: ToolBuilder-Morphic-mt.187 Make pluggable trees work again with nodes whose children are dictionary-like =============================================

1 0

The Trunk: ToolBuilder-Morphic-topa.188.mcz
by commits＠source.squeak.org 23 Sep '16

23 Sep '16

Tobias Pape uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-topa.188.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-topa.188 Author: topa Time: 23 September 2016, 10:27:45.599099 pm UUID: 5b808207-4f79-42b5-98b8-be4203bb54f2 Ancestors: ToolBuilder-Morphic-mt.187 Make pluggable trees work again with nodes whose children are dictionary-like =============== Diff against ToolBuilder-Morphic-mt.187 =============== Item was changed: ----- Method: PluggableTreeMorph>>contentsOfNode: (in category 'node access') ----- contentsOfNode: node | children | + getChildrenSelector ifNil: [^#()]. - getChildrenSelector ifNil:[^#()]. children := model perform: getChildrenSelector with: node item. + ^ self nodesForChildren: children inNode: node + ! - ^children collectWithIndex: [:item :index | - (self nodeClass with: item model: self) - index: index; - parent: node]! Item was added: + ----- Method: PluggableTreeMorph>>instantiateNodeWithContents:index:parent: (in category 'node access') ----- + instantiateNodeWithContents: item index: aNumber parent: anObject + + ^ (self nodeClass with: item model: self) + index: aNumber; + parent: anObject! Item was added: + ----- Method: PluggableTreeMorph>>nodesForChildren:inNode: (in category 'node access') ----- + nodesForChildren: aCollection inNode: anObject + + ^ aCollection isSequenceable + ifTrue: [aCollection collectWithIndex: + [:item :index | + self instantiateNodeWithContents: item index: index parent: anObject]] + ifFalse: [ | count | + count := 0. "artificial index." + aCollection collect: + [:item | + count := count + 1. + self instantiateNodeWithContents: item index: count parent: anObject]]!

1 0

Re: [Vm-dev] Nuking VM ImageSegment support (was Re: [squeak-dev] Daily Commit Log; System-bf.916)
by Jakob Reschke 23 Sep '16

23 Sep '16

Hi Vaidotas, I cannot reproduce this. In my current trunk image where I coincidentally try to get familiar with Environments to put them to use, I can save morphs without a debugger appearing. Loading via drag and drop works as well (though the option "load as morph" appears twice in the dialog that prompts me for an action after the drop). Does Morph saving depend on ImageSegments anyway? Best regards, Jakob 2016-09-23 16:10 GMT+02:00 Vaidotas Didžbalis <vaidasd(a)gmail.com>: > Hello all, > To save morph and restore it is a basic behavior which is broken since > Squeak 4.5. This is a bug. Beginning from 4.5 new Squeak user will get a > debugger window open in a few clicks. This bug happened as a side effect of > pushing Environments package into the Squeak image beginning from Squeak > 4.5. No one uses Environments; there are significant use for morph saving. > Squeak needs this ability. Maybe it is easier to remove Environments from > stock Image and to fix the bug introduced by that package. > Introduction of new packages need not to break useful things... > regards, > Vaidotas >

3 3

Whitewash (was Re: [squeak-dev] The Trunk: EToys-tfel.249.mcz)
by Eliot Miranda 23 Sep '16

23 Sep '16

Hi All, in reading Tobias' much improved code below I noticed that a lot of code is using Morph>>allMorphs where Morph>>allMorphsDo: would be much better On Fri, Sep 23, 2016 at 6:26 AM, <commits(a)source.squeak.org> wrote: > Tim Felgentreff uploaded a new version of EToys to project The Trunk: > http://source.squeak.org/trunk/EToys-tfel.249.mcz > > ==================== Summary ==================== > > Name: EToys-tfel.249 > Author: tfel > Time: 23 September 2016, 3:26:09.056418 pm > UUID: 844e5444-0afb-144b-a622-dcb33fbf8597 > Ancestors: EToys-tfel.248 > > fix the defensive code for updating status morphs in scripts > > =============== Diff against EToys-tfel.248 =============== > > Item was changed: > ----- Method: ScriptInstantiation>>updateAllStatusMorphs (in category > 'status control') ----- > updateAllStatusMorphs > "Update all status morphs bound to the receiver. Done with a > sledge-hammer at present." > > | w | > w := self currentWorld. > + (w hasProperty: #updateStatusMorph) ifTrue: [^ self]. > + w setProperty: #updateStatusMorph toValue: true. > + Project current addDeferredUIMessage: [ > + (w valueOfProperty: #updateStatusMorph ifAbsent: [false]) > ifTrue: [ > + (w allMorphs select: [:m | (m isKindOf: > ScriptStatusControl) and: > + [m scriptInstantiation == self]]) do: > + [:aStatusControl | self updateStatusMorph: > aStatusControl]. > + w removeProperty: #updateStatusMorph. > - > - (w hasProperty: #foo) ifFalse: [ > - w setProperty: #updateStatusMorph toValue: true. > - Project current addDeferredUIMessage: [ > - (w hasProperty: #foo) ifTrue: [ > - w removeProperty: #updateStatusMorph. > - (w allMorphs select: [:m | (m isKindOf: > ScriptStatusControl) and: > - [m scriptInstantiation == self]]) > do: > - [:aStatusControl | self > updateStatusMorph: aStatusControl] . > - ] > ] > ] > > ! > So the above could be updateAllStatusMorphs "Update all status morphs bound to the receiver. Done with a sledge-hammer at present." | w | w := self currentWorld. (w hasProperty: self) ifTrue: [^ self]. w setProperty: self toValue: #updating. Project current addDeferredUIMessage: [[w allMorphsDo: [:m | ((m isKindOf: ScriptStatusControl) and: [m scriptInstantiation == self]) ifTrue: [self updateStatusMorph: m]]] ensure: [w removeProperty: self]] There are quite a few examples like this, even one egregious "ow allMorphs do: [:m|..." instead of "ow allMorphsDo: [:m|...". Calling for volunteers who know Morphic well to go through and make the necessary changes. This should help slow machines like RasperryPi a bit. _,,,^..^,,,_ best, Eliot

2 1

The Trunk: Tools-tfel.728.mcz
by commits＠source.squeak.org 23 Sep '16

23 Sep '16

Tim Felgentreff uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tfel.728.mcz ==================== Summary ==================== Name: Tools-tfel.728 Author: tfel Time: 23 September 2016, 5:06:29.422724 pm UUID: eb83c28d-866e-914d-9d6b-aba9bac17034 Ancestors: Tools-jl.727 becomeModal was deprecated =============== Diff against Tools-jl.727 =============== 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; 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@300; retractable: false; borderWidth: 0. fileListPane := aFileList morphicFileListPane extent: 350@300; retractable: false; borderWidth: 0. window addARow: {window fancyText: 'Find...' translated font: Preferences standardEToysTitleFont color: textColor1}. fileTypeRow := window addARowCentered: fileTypeButtons cellInset: 2. actionRow := window addARowCentered: { buttons first. (Morph new extent: 30@5) color: Color transparent. buttons second } cellInset: 2. window addARow: { (window inAColumn: {(pane2a := window inARow: {window inAColumn: {treePane}}) useRoundedCorners; layoutInset: 0; 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; borderColor: (Color r: 0.6 g: 0.7 b: 1) }) 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 becomeModal. ^ window openInWorld: aWorld.! 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: self selector: #projectOnlySelectionMethod: ] ifFalse: [ self projectOnlySelectionBlock ] ); "dirSelectionBlock: self hideSqueakletDirectoryBlock;" modalView: window. aFileList directory: FileDirectory default. window setProperty: #FileList toValue: aFileList; wrapCentering: #center; cellPositioning: #topCenter; 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 ifTrue: [ treeExtent := 150@300. filesExtent := 350@300. ] ifFalse: [ 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@5) color: Color transparent. buttons second }; addARow: { 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; 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; borderColor: (Color r: 0.6 g: 0.7 b: 1) }) 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 becomeModal. ^ window openInWorld: aWorld.!

1 0

The Trunk: Network-tfel.185.mcz
by commits＠source.squeak.org 23 Sep '16

23 Sep '16

Tim Felgentreff uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-tfel.185.mcz ==================== Summary ==================== Name: Network-tfel.185 Author: tfel Time: 23 September 2016, 5:02:31.408724 pm UUID: 8a7f87c3-69e4-e44d-9ff8-ab1737aa78ed Ancestors: Network-tfel.184 becomeModal was deprecated =============== Diff against Network-tfel.184 =============== Item was changed: ----- Method: SuperSwikiServer>>showQueryAsPVM: (in category 'testing') ----- showQueryAsPVM: resultStream | answer gif whatToShow projectName fileName firstURL wrapper currX currY maxX maxY rawProjectName | "SuperSwikiServer testOnlySuperSwiki queryProjectsAndShow" resultStream reset; nextLine. answer := RectangleMorph new useRoundedCorners; borderWidth: 0; borderColor: Color blue; color: Color paleBlue. currX := currY := maxX := maxY := 10. [resultStream atEnd] whileFalse: [ rawProjectName := resultStream nextLine. projectName := rawProjectName convertFromEncoding: self encodingName. fileName := resultStream nextLine convertFromEncoding: self encodingName. gif := self oldFileOrNoneNamed: rawProjectName,'.gif'. gif ifNotNil: [gif := GIFReadWriter formFromStream: gif]. currX > 600 ifTrue: [ currX := 10. currY := maxY + 10. ]. gif ifNil: [ gif := AlignmentMorph newColumn hResizing: #shrinkWrap; vResizing: #shrinkWrap; borderWidth: 8; borderColor: Color red; color: Color lightRed; addMorph: (StringMorph contents: 'No GIF for ',projectName); fullBounds; imageForm ]. firstURL := self url. firstURL last == $/ ifFalse: [firstURL := firstURL, '/']. whatToShow := ProjectViewMorph new image: (gif asFormOfDepth: Display depth); lastProjectThumbnail: gif; setProperty: #SafeProjectName toValue: projectName; project: (DiskProxy global: #Project selector: #namedUrl: args: {firstURL,fileName} ). answer addMorphBack: (whatToShow position: currX @ currY). currX := currX + whatToShow width + 10. maxX := maxX max: currX. maxY := maxY max: currY + whatToShow height. ]. maxX = 10 ifTrue: [ ^self inform: 'No projects found for your criteria' ]. answer extent: (maxX @ maxY) + (0@10). wrapper := ScrollPane new extent: (answer width + 10) @ (answer height min: 400). wrapper color: Color white. wrapper scroller addMorph: answer. + wrapper - wrapper - becomeModal; openCenteredInWorld; useRoundedCorners; setScrollDeltas.!

1 0

The Trunk: Morphic-tfel.1310.mcz
by commits＠source.squeak.org 23 Sep '16

23 Sep '16

Tim Felgentreff uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tfel.1310.mcz ==================== Summary ==================== Name: Morphic-tfel.1310 Author: tfel Time: 23 September 2016, 4:59:03.672724 pm UUID: bac48a9f-07c3-2640-9923-a1be55a78df0 Ancestors: Morphic-tfel.1309 deprecate modalWindow property usage on PasteUpMorphs, that was only used in eToys related code =============== Diff against Morphic-tfel.1309 =============== Item was removed: - ----- Method: Morph>>becomeModal (in category 'user interface') ----- - becomeModal - self currentWorld - ifNotNil: [self currentWorld modalWindow: self]! Item was changed: ----- Method: PasteUpMorph>>assureNotPaintingElse: (in category 'world state') ----- assureNotPaintingElse: aBlock "If painting is already underway in the receiver, put up an informer to that effect and evalute aBlock" - self removeModalWindow. self sketchEditorOrNil ifNotNil: [self inform: 'Sorry, you can only paint one object at a time' translated. Cursor normal show. ^ aBlock value] ! Item was removed: - ----- Method: PasteUpMorph>>modalWindow: (in category 'accessing') ----- - modalWindow: aMorph - (self valueOfProperty: #modalWindow) - ifNotNil: [:morph | morph doCancel]. - self setProperty: #modalWindow toValue: aMorph. - aMorph - ifNotNil: [self - when: #aboutToLeaveWorld - send: #removeModalWindow - to: self]! Item was changed: ----- Method: PasteUpMorph>>releaseCachedState (in category 'caching') ----- releaseCachedState super releaseCachedState. - self removeModalWindow. presenter ifNotNil:[presenter flushPlayerListCache]. self isWorldMorph ifTrue:[self cleanseStepList].! Item was removed: - ----- Method: PasteUpMorph>>removeModalWindow (in category 'accessing') ----- - removeModalWindow - self modalWindow: nil!

1 0

The Trunk: EToys-tfel.251.mcz
by commits＠source.squeak.org 23 Sep '16

23 Sep '16

Tim Felgentreff uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tfel.251.mcz ==================== Summary ==================== Name: EToys-tfel.251 Author: tfel Time: 23 September 2016, 4:56:28.394724 pm UUID: 2ccc5290-487a-fc49-833c-2f771035e779 Ancestors: EToys-tfel.250 remove becomeModal =============== Diff against EToys-tfel.250 =============== Item was changed: ----- Method: EToyProjectDetailsMorph class>>getFullInfoFor:ifValid:expandedFormat: (in category 'instance creation') ----- getFullInfoFor: aProject ifValid: aMessageSend expandedFormat: expandedFormat "Obtain project info for the project by putting up a dialog-box showing current values for the various project-info variables and allowing the user to change the data." | detailsMorph | detailsMorph := self basicNew. detailsMorph expandedFormat: expandedFormat; project: aProject actionBlock: aMessageSend; initialize; - becomeModal; beSticky; openCenteredInWorld! Item was changed: ----- Method: EToyProjectQueryMorph class>>onServer: (in category 'instance creation') ----- onServer: aProjectServer "EToyProjectQueryMorph onServer: SuperSwikiServer testOnlySuperSwiki" | detailsMorph messageToSendIfValid | detailsMorph := self basicNew. messageToSendIfValid := MessageSend receiver: detailsMorph selector: #carryOutQuery:onProjectServer: arguments: {nil. aProjectServer}. detailsMorph project: nil actionBlock: messageToSendIfValid; "*** actionBlock: [ :x | criteria := OrderedCollection new. x keysAndValuesDo: [ :k :v | (clean := v withBlanksTrimmed convertToEncoding: SuperSwikiServer defaultEncodingName) isEmpty ifFalse: [criteria add: k,': *',clean,'*']]. aProjectServer queryProjectsAndShow: criteria]; ****" initialize; - becomeModal; openCenteredInWorld! Item was changed: ----- Method: FileList2 class>>buildMorphicWindow:title: (in category '*Etoys-Squeakland-blue ui') ----- buildMorphicWindow: aFileList title: aString | window | window := ScriptingSystem buildPanelTitled: aString. window setProperty: #FileList toValue: aFileList. aFileList modalView: window. - window becomeModal. ^ window!

1 0

The Trunk: 60Deprecated-tfel.3.mcz
by commits＠source.squeak.org 23 Sep '16

23 Sep '16

Tim Felgentreff uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-tfel.3.mcz ==================== Summary ==================== Name: 60Deprecated-tfel.3 Author: tfel Time: 23 September 2016, 4:54:25.289724 pm UUID: c54a411d-c089-7442-8413-739b29ca5fb4 Ancestors: 60Deprecated-mt.2 deprecate the old modalWindow property, was only used by eToys code =============== Diff against 60Deprecated-mt.2 =============== Item was added: + ----- Method: Morph>>becomeModal (in category '*60Deprecated-user-interface') ----- + becomeModal + + self deprecated: 'The global becomeModal is no longer supported, use e.g. a dialog window'. + "self currentWorld + ifNotNil: [self currentWorld modalWindow: self]"! Item was added: + ----- Method: PasteUpMorph>>modalWindow: (in category '*60Deprecated-accessing') ----- + modalWindow: aMorph + + self deprecated: 'The global becomeModal is no longer supported, use e.g. a dialog window'. + "(self valueOfProperty: #modalWindow) + ifNotNil: [:morph | morph doCancel]. + self setProperty: #modalWindow toValue: aMorph. + aMorph + ifNotNil: [self + when: #aboutToLeaveWorld + send: #removeModalWindow + to: self]"! Item was added: + ----- Method: PasteUpMorph>>removeModalWindow (in category '*60Deprecated-accessing') ----- + removeModalWindow + self deprecated: 'The global becomeModal is no longer supported, use e.g. a dialog window'. + "self modalWindow: nil"!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
18
Older →

Jump to page: