Packages September 2016

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: Kernel-tfel.1040.mcz
by commits＠source.squeak.org 27 Sep '16

27 Sep '16

Tim Felgentreff uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-tfel.1040.mcz ==================== Summary ==================== Name: Kernel-tfel.1040 Author: tfel Time: 27 September 2016, 2:57:29.665629 pm UUID: e6781812-fc7b-a546-818b-0b16c5d62e88 Ancestors: Kernel-tfel.1039 refactor newSubclass to go through the more general newUniqueClassInstVars:classInstVars: method. =============== Diff against Kernel-tfel.1039 =============== Item was changed: ----- Method: Class>>newSubclass (in category 'subclass creation') ----- newSubclass - | i className | - i := 1. - [className := (self name , i printString) asSymbol. - self environment includesKey: className] - whileTrue: [i := i + 1]. + ^ self newUniqueClassInstVars: '' classInstVars: '' - ^ self subclass: className - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: Object categoryForUniclasses "Point newSubclass new"! Item was changed: ----- Method: Object class>>newUniqueClassInstVars:classInstVars: (in category 'instance creation') ----- newUniqueClassInstVars: instVarString classInstVars: classInstVarString "Create a unique class for the receiver" | aName aClass | self isSystemDefined ifFalse: [^ superclass newUniqueClassInstVars: instVarString classInstVars: classInstVarString]. aName := self chooseUniqueClassName. aClass := self subclass: aName instanceVariableNames: instVarString classVariableNames: '' poolDictionaries: '' category: self categoryForUniclasses. + classInstVarString size > 0 ifTrue: + [aClass class instanceVariableNames: classInstVarString]. self flag: #todo. self flag: #uniclasses. "Discuss if we really want to hide uniclasses again" aClass environment forgetClass: aClass logged: false. self removeSubclass: aClass. - classInstVarString size > 0 ifTrue: - [aClass class instanceVariableNames: classInstVarString]. ^ aClass!

1 0

The Trunk: MorphicExtras-tfel.199.mcz
by commits＠source.squeak.org 27 Sep '16

27 Sep '16

Tim Felgentreff uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-tfel.199.mcz ==================== Summary ==================== Name: MorphicExtras-tfel.199 Author: tfel Time: 27 September 2016, 2:55:01.185629 pm UUID: 654861ec-a93d-7b42-b2bc-f57bdbc9647f Ancestors: MorphicExtras-tfel.198 Force re-drawing of the main hand after the EventRecorder finishes =============== Diff against MorphicExtras-tfel.198 =============== Item was changed: ----- Method: EventRecorderMorph>>pauseIn: (in category 'pause/resume') ----- pauseIn: aWorld "Suspend playing or recording, either as part of a stop command, or as part of a project switch, after which it will be resumed." self setStatusLight: #ready. state = #play ifTrue: [state := #suspendedPlay. playHand halo ifNotNil: [playHand halo delete]. playHand delete. aWorld removeHand: playHand. + aWorld firstHand showHardwareCursor: true. playHand := nil]. state = #record ifTrue: [state := #suspendedRecord. recHand removeEventListener: self. recHand := nil]. voiceRecorder ifNotNil: [voiceRecorder pause. startSoundEvent ifNotNil: [startSoundEvent argument: voiceRecorder recordedSound. voiceRecorder clearRecordedSound. startSoundEvent := nil]]. !

1 0

The Trunk: System-tfel.917.mcz
by commits＠source.squeak.org 27 Sep '16

27 Sep '16

Tim Felgentreff uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tfel.917.mcz ==================== Summary ==================== Name: System-tfel.917 Author: tfel Time: 27 September 2016, 2:52:54.264629 pm UUID: 6436c2ff-4a02-d845-9b8e-45b8130a609c Ancestors: System-bf.916 when trying to load a project from my local server when that is not set, at least try to fall back to the default directory =============== Diff against System-bf.916 =============== Item was changed: ----- Method: Project>>fromMyServerLoad: (in category 'file in/out') ----- fromMyServerLoad: otherProjectName | pair pr dirToUse | "If a newer version of me is on the server, load it." (pr := Project named: otherProjectName) ifNotNil: ["it appeared" ^ pr enter ]. + dirToUse := self primaryServerIfNil: [ + lastDirectory + ifNil: [FileDirectory default] + ifNotNil: [lastDirectory]]. - lastDirectory ifNil: [ - self inform: 'Current project does not know a server either.'. - ^nil]. - lastDirectory]. pair := self class mostRecent: otherProjectName onServer: dirToUse. pair first ifNil: [^self decideAboutCreatingBlank: otherProjectName]. "nothing to load" ^ProjectLoading installRemoteNamed: pair first from: dirToUse named: otherProjectName in: self !

1 0

The Trunk: EToys-tfel.254.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.254.mcz ==================== Summary ==================== Name: EToys-tfel.254 Author: tfel Time: 26 September 2016, 3:08:19.655594 pm UUID: d6ca728e-ca89-5043-a50c-d8a505760da6 Ancestors: EToys-tfel.253 fix the mouse over highlights for tiles in the viewer =============== Diff against EToys-tfel.253 =============== Item was added: + ----- Method: PhraseTileMorph>>handlesMouseOver: (in category 'event handling') ----- + handlesMouseOver: evt + + ^ true + ! Item was added: + ----- Method: PhraseTileMorph>>mouseEnter: (in category 'event handling') ----- + mouseEnter: evt + + self removeHighlightFeedback. + self addCommandFeedback: evt. + ! Item was added: + ----- Method: PhraseTileMorph>>mouseLeave: (in category 'event handling') ----- + mouseLeave: evt + "Resume drop-tracking in enclosing editor" + | ed | + self removeHighlightFeedback. + (ed := self enclosingTestTile) ifNotNil: [ed mouseEnter: evt].! Item was changed: ----- Method: ViewerLine>>addGetterFeedback (in category 'slot') ----- addGetterFeedback "Add feedback during mouseover of a getter" + | aMorph | + aMorph := RectangleMorph new + bounds: (self firstTileMorph topLeft corner: + (self firstAlignmentMorph ifNil: [self submorphs last bottomRight] ifNotNil: [:m | m bottomLeft])). - | aMorph endMorph | - - endMorph _ - (#(touchesA: #seesColor: #overlaps: color:sees: overlapsAny: bearingTo: bearingFrom: distanceToPlayer:) includes: self elementSymbol) - ifTrue: - [submorphs seventh] - ifFalse: - [submorphs fifth]. - aMorph := RectangleMorph new bounds: ((submorphs third topLeft - (2@1)) corner: ((endMorph right @ submorphs third bottom) + (2@1))). aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem getterFeedback; lock. ActiveWorld addHighlightMorph: aMorph for: nil. " Color fromUser (Color r: 1.0 g: 0.355 b: 0.839) "! Item was changed: ----- Method: ViewerLine>>addSetterFeedback (in category 'slot') ----- addSetterFeedback "Add screen feedback showing what would be torn off to make a setter" | aMorph | + aMorph := RectangleMorph new bounds: (self firstTileMorph topLeft corner: self bounds bottomRight). - aMorph := RectangleMorph new bounds: ((submorphs third topLeft - (2@1)) corner: ((submorphs last right @ submorphs third bottom) + (2@1))). aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem setterFeedback; lock. ActiveWorld addHighlightMorph: aMorph for: nil! Item was added: + ----- Method: ViewerLine>>firstAlignmentMorph (in category 'slot') ----- + firstAlignmentMorph + + ^ self submorphs reverse detect: [:m | m isAlignmentMorph] ifNone: []! Item was added: + ----- Method: ViewerLine>>firstTileMorph (in category 'slot') ----- + firstTileMorph + + ^ self submorphs detect: [:m | m isTileMorph]!

1 0

The Trunk: EToys-tfel.253.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.253.mcz ==================== Summary ==================== Name: EToys-tfel.253 Author: tfel Time: 26 September 2016, 11:40:48.856552 am UUID: a00694aa-7017-b444-a8d0-6671ec171efd Ancestors: EToys-tfel.252 delete the project saving morph before saving =============== Diff against EToys-tfel.252 =============== Item was changed: ----- Method: EToyProjectDetailsMorph>>doOK (in category 'utilities') ----- doOK "User hit the ok button in the project-info dialog. Store the updated project-info back in the project. Call the message-send residing in the receiver's actionBlock to carry out any subsequent desired task. Note that this method sets the 'arguments' of the message-send in the actionBlock" | args actionSelector | self validateTheProjectName ifFalse: [^false]. projectDetails := self copyOutDetails. theProject acceptProjectDetails: projectDetails. "Make sure project & world feel the changes" + + self delete. - actionBlock isMessageSend "new way -- hopefully all cases" ifTrue: "please excuse this ugly, non-modular code..." [actionSelector := actionBlock selector. args := (actionSelector = #handUserSorterMorphForProjectNamed:) ifTrue: [{theProject name}] ifFalse: [actionSelector numArgs = 0 ifTrue: [nil] ifFalse: [Array with: projectDetails]]. actionBlock arguments: args. actionBlock value] ifFalse: "Old way, with actionBlock actually a block of one argument. This should no longer occur." + [actionBlock value: projectDetails].! - [actionBlock value: projectDetails]. - - self delete! Item was changed: ----- Method: EToyProjectQueryMorph>>doOK (in category 'ok button hit') ----- doOK "User hit the ok button in the project-query dialog." | details | details := self copyOutDetails. + self delete. actionBlock isMessageSend "new way -- hopefully all cases" ifTrue: [actionBlock arguments: {details. actionBlock arguments second}. actionBlock value] ifFalse: "Old way, with actionBlock actually a block of one argument. This should no longer occur." + [actionBlock value: details].! - [actionBlock value: details]. - - self delete!

1 0

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

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

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2016