etoys-dev October 2011

etoys-dev@lists.squeakfoundation.org

18 participants
75 discussions

Etoys: MorphicExtras-kfr.54.mcz
by commits＠source.squeak.org 20 Oct '11

20 Oct '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.54.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.54 Author: kfr Time: 20 October 2011, 12:33:24 am UUID: 8f1140d4-c2ef-bb43-b567-845fc2ad3d4d Ancestors: MorphicExtras-kfr.53 Missed some extensions =============== Diff against MorphicExtras-kfr.53 =============== Item was added: + ----- Method: Player>>getGifPlaying (in category '*MorphicExtras-AdditionalMorphs') ----- + getGifPlaying + ^self getValueFromCostume: #isStepping! Item was added: + ----- Method: Player>>getOpaque (in category '*MorphicExtras-AdditionalMorphs') ----- + getOpaque + ^self getValueFromCostume: #isOpaque! Item was added: + ----- Method: Player>>isOpaque: (in category '*MorphicExtras-AdditionalMorphs') ----- + isOpaque: aBoolean + self costume isOpaque: aBoolean! Item was added: + ----- Method: Player>>isStepping (in category '*MorphicExtras-AdditionalMorphs') ----- + isStepping + ^self costume isStepping! Item was added: + ----- Method: Player>>setGifPlaying: (in category '*MorphicExtras-AdditionalMorphs') ----- + setGifPlaying: aBoolean + self setCostumeSlot: #setStepping: toValue: aBoolean + ! Item was added: + ----- Method: Player>>setOpaque: (in category '*MorphicExtras-AdditionalMorphs') ----- + setOpaque: aBoolean + self setCostumeSlot: #isOpaque: toValue: aBoolean! Item was added: + ----- Method: Player>>setStepping: (in category '*MorphicExtras-AdditionalMorphs') ----- + setStepping: aBoolean + self costume setStepping:aBoolean + + !

1 0

Etoys: MorphicExtras-kfr.53.mcz
by commits＠source.squeak.org 20 Oct '11

20 Oct '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.53.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.53 Author: kfr Time: 20 October 2011, 12:28:15 am UUID: a97c037e-846d-a94a-9ea9-fc2e4dc628df Ancestors: MorphicExtras-kfr.52 Some additions to AnimatedImagemorph. Its now possible to playn and stop animaton playback. Posibility to toggle the opaque setting from etoys as well. Currently the gif reader does not set opaque correctly so it's pure chanse if playback looks right. =============== Diff against MorphicExtras-kfr.52 =============== Item was changed: ImageMorph subclass: #AnimatedImageMorph + instanceVariableNames: 'images delays stepTime nextTime imageIndex stepper' - instanceVariableNames: 'images delays stepTime nextTime imageIndex' classVariableNames: '' poolDictionaries: '' category: 'MorphicExtras-AdditionalMorphs'! !AnimatedImageMorph commentStamp: '<historical>' prior: 0! I am an ImageMorph that can hold more than one image. Each image has its own delay time.! Item was added: + ----- Method: AnimatedImageMorph class>>additionsToViewerCategories (in category 'class initialization') ----- + additionsToViewerCategories + "Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories." + ^ #( + + (#'graphics' + ( + (slot isGifPlaying 'Whether the gif is playing' + Boolean readWrite Player getGifPlaying Player setGifPlaying:) + (slot opaque 'Whether the gif opaque' + Boolean readWrite Player getOpaque Player setOpaque:) + + )) + + ) + ! Item was added: + ----- Method: AnimatedImageMorph>>addCustomMenuItems:hand: (in category 'stepping and presenter') ----- + addCustomMenuItems: aMenu hand: aHand + super addCustomMenuItems: aMenu hand: aHand. + aMenu addUpdating: #steppingString action: #toggleStepping! Item was changed: ----- Method: AnimatedImageMorph>>initialize (in category 'private') ----- initialize nextTime := Time millisecondClockValue. imageIndex := 1. stepTime := 10. + stepper :=true. super initialize! Item was added: + ----- Method: AnimatedImageMorph>>setStepping: (in category 'stepping and presenter') ----- + setStepping: aBoolean + self wantsSteps ifFalse:[^false]. + stepper := aBoolean. + stepper ifTrue:[self startStepping] + ifFalse:[self stopStepping]. + + ! Item was changed: ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') ----- step | form delay | + stepper ifFalse:[ self stopStepping]. images isEmpty ifTrue: [^ self]. nextTime > Time millisecondClockValue ifTrue: [^self]. imageIndex > 0 ifTrue: [ form := images at: imageIndex. form displayOn: self image at: 0@0 rule: ((self isOpaque) ifTrue:[Form paint] ifFalse:[Form erase]). ]. imageIndex _ imageIndex \\ images size + 1. form := images at: imageIndex. form displayOn: self image at: 0@0 rule: Form paint. self changed. delay := (delays at: imageIndex) ifNil: [0]. nextTime := Time millisecondClockValue +delay! Item was added: + ----- Method: AnimatedImageMorph>>steppingString (in category 'stepping and presenter') ----- + steppingString + ^ (stepper + ifTrue: ['<on>'] + ifFalse: ['<off>']), 'Stepping' translated! Item was added: + ----- Method: AnimatedImageMorph>>toggleStepping (in category 'stepping and presenter') ----- + toggleStepping + self wantsSteps + ifTrue: [stepper := stepper not]. + stepper ifTrue:[self startStepping] + ifFalse:[self stopStepping]. + + !

1 0

Etoys: MorphicExtras-kfr.52.mcz
by commits＠source.squeak.org 19 Oct '11

19 Oct '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.52.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.52 Author: kfr Time: 19 October 2011, 11:40:52 am UUID: f3c3172d-2890-cb40-a3ef-8f18f8c86c17 Ancestors: MorphicExtras-kfr.51 fixing =============== Diff against MorphicExtras-kfr.51 =============== Item was changed: ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') ----- step + | form delay | + images isEmpty + ifTrue: [^ self]. + nextTime > Time millisecondClockValue + ifTrue: [^self]. + imageIndex > 0 ifTrue: [ + form := images at: imageIndex. + form displayOn: self image at: 0@0 rule: + ((self isOpaque) ifTrue:[Form paint] ifFalse:[Form erase]). + ]. + imageIndex _ imageIndex \\ images size + 1. + form := images at: imageIndex. + form displayOn: self image at: 0@0 rule: Form paint. + self changed. + delay := (delays at: imageIndex) ifNil: [0]. + nextTime := Time millisecondClockValue +delay! - | f d | - images isEmpty - ifTrue: [^ self]. - nextTime > Time millisecondClockValue - ifTrue: [^ self]. - imageIndex > 0 - ifTrue: [f := images at: imageIndex. - f - displayOn: self image - at: 0 @ 0 - rule: (self isOpaque - ifTrue: [Form paint] - ifFalse: [Form erase])]. - imageIndex := imageIndex \\ images size + 1. - f := images at: imageIndex. - f - displayOn: self image - at: 0 @ 0 - rule: Form paint. - self - invalidRect: (self position extent: self extent). - d := (delays at: imageIndex) - ifNil: [0]. - nextTime := Time millisecondClockValue + d!

1 0

Etoys: MorphicExtras-kfr.51.mcz
by commits＠source.squeak.org 19 Oct '11

19 Oct '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.51.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.51 Author: kfr Time: 19 October 2011, 3:13:58 am UUID: e4389196-4418-4b4c-b430-9d7c7168f48a Ancestors: MorphicExtras-kfr.50 Better formating and use := =============== Diff against MorphicExtras-kfr.50 =============== Item was changed: ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') ----- step + | f d | + images isEmpty + ifTrue: [^ self]. + nextTime > Time millisecondClockValue + ifTrue: [^ self]. + imageIndex > 0 + ifTrue: [f := images at: imageIndex. + f + displayOn: self image + at: 0 @ 0 + rule: (self isOpaque + ifTrue: [Form paint] + ifFalse: [Form erase])]. + imageIndex := imageIndex \\ images size + 1. + f := images at: imageIndex. + f + displayOn: self image + at: 0 @ 0 + rule: Form paint. + self + invalidRect: (self position extent: self extent). + d := (delays at: imageIndex) + ifNil: [0]. + nextTime := Time millisecondClockValue + d! - | f d | - images isEmpty - ifTrue: [^ self]. - nextTime > Time millisecondClockValue - ifTrue: [^self]. - imageIndex > 0 ifTrue: [ - - f _ images at: imageIndex. - f displayOn: self image at: 0@0 rule: - ((self isOpaque) ifTrue:[Form paint] ifFalse:[Form erase]). - ]. - imageIndex _ imageIndex \\ images size + 1. - f _ images at: imageIndex. - f displayOn: self image at: 0@0 rule: Form paint. - self invalidRect: (self position extent: self extent) . - d _ (delays at: imageIndex) ifNil: [0]. - nextTime := Time millisecondClockValue + d!

1 0

Etoys: MorphicExtras-kfr.50.mcz
by commits＠source.squeak.org 19 Oct '11

19 Oct '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.50.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.50 Author: kfr Time: 19 October 2011, 2:38:40 am UUID: 76786be2-4ee6-d543-a84b-6b21898163b8 Ancestors: MorphicExtras-kfr.49 Display animated gifs better. =============== Diff against MorphicExtras-kfr.49 =============== Item was changed: ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') ----- step + | f d | + images isEmpty + ifTrue: [^ self]. + nextTime > Time millisecondClockValue + ifTrue: [^self]. + imageIndex > 0 ifTrue: [ - | d | - images isEmpty ifTrue: [^ self]. + f _ images at: imageIndex. + f displayOn: self image at: 0@0 rule: + ((self isOpaque) ifTrue:[Form paint] ifFalse:[Form erase]). + ]. + imageIndex _ imageIndex \\ images size + 1. + f _ images at: imageIndex. + f displayOn: self image at: 0@0 rule: Form paint. + self invalidRect: (self position extent: self extent) . + d _ (delays at: imageIndex) ifNil: [0]. + nextTime := Time millisecondClockValue + d! - nextTime > Time millisecondClockValue - ifTrue: [^self]. - self changed . - self image: (images at: - (imageIndex _ imageIndex \\ images size + 1)). - self changed . - d _ (delays at: imageIndex) ifNil: [0]. - nextTime := Time millisecondClockValue + d - !

1 0

Etoys Inbox: Skeleton-Richo.8.mcz
by commits＠source.squeak.org 18 Oct '11

18 Oct '11

Ricardo Moran uploaded a new version of Skeleton to project Etoys Inbox: http://source.squeak.org/etoysinbox/Skeleton-Richo.8.mcz ==================== Summary ==================== Name: Skeleton-Richo.8 Author: Richo Time: 18 October 2011, 4:27:35 pm UUID: efe0ef54-8a52-bb49-b304-ebfb81263f1f Ancestors: Skeleton-Richo.7 Fixed a bug when changing the sheet color without being properly initialized. =============== Diff against Skeleton-Richo.7 =============== Item was changed: ----- Method: SkSheetMorph>>color: (in category 'accessing') ----- color: aColor super color: aColor. + sheet ifNotNil: [sheet fillStyle: aColor. + self title color: aColor makeForegroundColor]! - sheet fillStyle: aColor. - self title color: aColor makeForegroundColor!

1 0

Etoys Inbox: Skeleton-Richo.7.mcz
by commits＠source.squeak.org 18 Oct '11

18 Oct '11

Ricardo Moran uploaded a new version of Skeleton to project Etoys Inbox: http://source.squeak.org/etoysinbox/Skeleton-Richo.7.mcz ==================== Summary ==================== Name: Skeleton-Richo.7 Author: Richo Time: 18 October 2011, 4:08:37 pm UUID: 8c669cd9-b51d-9241-b237-7b74cda89f4f Ancestors: Skeleton-Richo.6 Added importing/exporting of formulas if the #showFormula preference is on. =============== Diff against Skeleton-Richo.6 =============== Item was changed: ----- Method: Player>>exportDataToFile (in category '*skeleton-data i/o') ----- exportDataToFile [self saveCSVFile: self csvFileName separator: self csvSeparator] on: Error do: [:err| ^ self inform: err description]! Item was changed: ----- Method: Player>>openCSVFile:separator: (in category '*skeleton-data i/o') ----- openCSVFile: filePath separator: separator FileStream readOnlyFileNamed: filePath do: [:file || values rows columns | values := (CSVParser on: file) useDelimiter: separator; rows. rows := values size. columns := values first size. self setTotalRows: rows + 1; setTotalColumns: columns + 1. 1 to: rows do: [:r| 1 to: columns do: [:c | ((values at: r) at: c ifAbsent: nil) + ifNotNil: [:aString || cell | + cell := self sheet assuredCellAt: c @ r. + (aString beginsWith: '=') + ifTrue: [cell formula: aString] + ifFalse: [cell contents: aString] + ]]]].! - ifNotNil: [:aString | - (self sheet assuredCellAt: c @ r) contents: aString]]]].! Item was changed: ----- Method: Player>>rows (in category '*skeleton-base') ----- rows ^ (1 to: self getTotalRows - 1) collect: [:r | + (1 to: self getTotalColumns - 1) collect: [:c || cell | + cell := self sheet cellAt: c @ r. + (cell hasFormula and: [self sheetMorph showFormula]) + ifTrue: [cell formula asString] + ifFalse: [cell contents asString]]]! - (1 to: self getTotalColumns - 1) collect: [:c | - (self sheet cellAt: c @ r) contents]]! Item was added: + ----- Method: SkSheetMorph>>color: (in category 'accessing') ----- + color: aColor + super color: aColor. + sheet fillStyle: aColor. + self title color: aColor makeForegroundColor! Item was added: + ----- Method: SkSheetMorph>>fillStyle: (in category 'accessing') ----- + fillStyle: aFillStyle + self color: aFillStyle! Item was added: + ----- Method: SkSheetMorph>>showFormula (in category 'autogenerated') ----- + showFormula + ^ sheet showFormula + ! Item was added: + ----- Method: SkSheetMorph>>title (in category 'accessing') ----- + title + ^ self pageControls findA: UpdatingStringMorph!

1 0

Etoys: MorphicExtras-kfr.49.mcz
by commits＠source.squeak.org 18 Oct '11

18 Oct '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.49.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.49 Author: kfr Time: 18 October 2011, 8:07:44 pm UUID: 6c41a019-2e4e-d54e-99c7-49babcafdb2c Ancestors: MorphicExtras-kfr.48 Chenge WebCamMorph delete to not turn off camera if there are more instances. Translate 'camera is off'. Stop stepping if instanceVariable comIsOn is false =============== Diff against MorphicExtras-kfr.48 =============== Item was changed: ----- Method: WebCamMorph>>delete (in category 'submorphs-add/remove') ----- delete + (self class instanceCount > 1) + ifFalse:[self off] + ifTrue:[self stopStepping. camIsOn := false]. - self off. super delete.! Item was changed: ----- Method: WebCamMorph>>step (in category 'stepping and presenter') ----- step + camIsOn ifFalse:[self stopStepping]. - | | self updateDisplay. ! Item was changed: ----- Method: WebCamMorph>>updateDisplay (in category 'stepping and presenter') ----- updateDisplay camIsOn ifFalse: [displayForm getCanvas + drawString: 'Camera is off' translated - drawString: 'Camera is off' at: 5 @ 2 font: Preferences windowTitleFont color: Color white. ] ifTrue:[self nextFrame]. self changed.!

1 0

Re: [etoys-dev] Etoys Inbox: Skeleton-Richo.5.mcz
by Ricardo Moran 18 Oct '11

18 Oct '11

Hi, it seems my commit notifications are being marked as spam :S But anyway, I'm glad to know you took the time to clean the Skeleton project. It's one step closer to inclusion :) I tried to fix the layout problem that Karl mentioned before and this is my first shot. I think the result is nice, although I had to create a new morph subclass (which I don't really like much). Cheers, Richo On Tue, Oct 18, 2011 at 12:50 PM, <commits(a)source.squeak.org> wrote: > Spam detection software, running on the system "europa.mgmt.inetu.net", > has > identified this incoming email as possible spam. The original message > has been attached to this so you can view it (if it isn't spam) or label > similar future email. If you have any questions, see > the administrator of that system for details. > > Content preview: Ricardo Moran uploaded a new version of Skeleton to > project > Etoys Inbox: http://source.squeak.org/etoysinbox/Skeleton-Richo.5.mcz==================== > Summary ==================== Name: Skeleton-Richo.5 Author: Richo Time: > 18 > October 2011, 12:50:19 pm UUID: 2d68a228-e98a-b64c-af4f-48ae0cb56a9c > Ancestors: > Skeleton-kfr.4 [...] > > Content analysis details: (6.5 points, 5.0 required) > > pts rule name description > ---- ---------------------- > -------------------------------------------------- > 3.5 BAYES_99 BODY: Bayesian spam probability is 99 to 100% > [score: 1.0000] > 0.0 MISSING_MID Missing Message-Id: header > 1.2 INVALID_DATE Invalid Date: header (not RFC 2822) > 1.0 DATE_IN_PAST_12_24 Date: is 12 to 24 hours before Received: date > 1.7 TVD_FUZZY_SYMBOL BODY: TVD_FUZZY_SYMBOL > 3.8 TVD_STOCK1 BODY: TVD_STOCK1 > 0.1 RDNS_NONE Delivered to trusted network by a host with no > rDNS > -4.8 AWL AWL: From: address is in the auto white-list > > > > > ---------- Forwarded message ---------- > From: commits(a)source.squeak.org > To: etoys-dev(a)squeakland.org > Date: Tue, 18 Oct 2011 15:50:20.809 0000 > Subject: Etoys Inbox: Skeleton-Richo.5.mcz > Ricardo Moran uploaded a new version of Skeleton to project Etoys Inbox: > http://source.squeak.org/etoysinbox/Skeleton-Richo.5.mcz > > ==================== Summary ==================== > > Name: Skeleton-Richo.5 > Author: Richo > Time: 18 October 2011, 12:50:19 pm > UUID: 2d68a228-e98a-b64c-af4f-48ae0cb56a9c > Ancestors: Skeleton-kfr.4 > > Trying to fix the layout problem with the tick morph and the sheet's name. > I renamed SkSheetMorph to SkBasicSheetMorph and I removed all the code that > adds page controls and draws its name. So now it is a simple spreadsheet. > I then created a new SkSheetMorph that decorates a SkBasicSheetMorph with > the page controls and a title. > > I also removed the reference to Connectors in > Morph>>#showPointArrowFrom:to:label: because it gave a DNU that I didn't > knew how to fix it, and because it doesn't seem to be really important > behavior. > > =============== Diff against Skeleton-kfr.4 =============== > > Item was changed: > ----- Method: Morph>>showPointArrowFrom:to:label: (in category > '*skeleton-base-arrow') ----- > showPointArrowFrom: morph1 to: morph2 label: aString > "Morph new showPointArrowFrom: (Morph new position: 0@0) to: (Morph > new position: 200@200) label: 'test'" > | p1 p2 arrow label connector | > p1 := morph1 center. > p2 := morph2 center. > arrow := PolygonMorph arrowPrototype. > arrow > borderColor: (TranslucentColor > r: 1.0 > g: 0.3 > b: 0.0 > alpha: 0.6). > arrow > setVertices: (Array with: p1 with: p2). > arrow dashedBorder: {30. 30. Color transparent. 0. -10}; > startStepping. > - (Smalltalk > - at: #NCAAConnectorMorph > - ifAbsent: []) > - ifNotNil: [connector := NCAAConnectorMorph fromMorph: > morph1 toMorph: morph2. > - connector line: arrow. > - connector lock. > - label := NCLabelMorph new string: aString. > - label input: morph1. > - label color: Color red. > - label openInWorld. > - arrow := connector]. > arrow openInWorld. > + arrow addAlarm: #delete after: 500! > - arrow addAlarm: #delete after: 500. > - label ifNotNil: [label addAlarm: #delete after: 500] > - ! > > Item was changed: > ----- Method: Player>>setTotalColumns: (in category > '*skeleton-spreadsheet') ----- > setTotalColumns: aNumber > + ^ self sheetMorph area: (0@0 corner: (aNumber max: 2) @ self > getTotalRows)! > - ^ self sheetMorph area: (0@0 corner: aNumber @ self getTotalRows)! > > Item was changed: > ----- Method: Player>>setTotalRows: (in category '*skeleton-spreadsheet') > ----- > setTotalRows: aNumber > + ^ self sheetMorph area: (0@0 corner: self getTotalColumns @ > (aNumber max: 2))! > - ^ self sheetMorph area: (0@0 corner: self getTotalColumns @ > aNumber)! > > Item was added: > + SkGridMorph subclass: #SkBasicSheetMorph > + instanceVariableNames: 'history model selectionMorph dropZone > showFormula' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Skeleton-Base'! > + > + !SkBasicSheetMorph commentStamp: 'tak 12/11/2003 19:10' prior: 0! > + I am a presentation compornent for showing as 2-D grid. > + The contents what I show is depended on a model. > + I never access to a cell directly except through model because > + a cell doesn't know where he locates. Basically, Position information is > + only in model. > + > + cellArea Rectangle -- the area of cells for drawing. Actual > size of table is cellArea extent. > + model SkSheet -- > + ! > > Item was added: > + ----- Method: SkBasicSheetMorph class>>additionsToViewerCategories (in > category 'viewer categories') ----- > + additionsToViewerCategories > + ^ #( > + (#spreadsheet ( > + #(command clearTable 'Deletes the contents of all cells') > + #(command clearRow 'Deletes the contents of the current row cells' ) > + #(command clearColumn 'Deletes the contents of the current columns cells' > ) > + #(slot totalRows 'Lets you change the amount of rows in the spreadsheet' > Number readWrite Player getTotalRows Player setTotalRows: ) > + #(slot totalColumns 'Lets you change the amount of columns in the > spreadsheet' Number readWrite Player getTotalColumns Player setTotalColumns: > ) > + #(slot rowIndex 'Sets the current row' Number readWrite Player > getRowIndex Player setRowIndex: ) > + #(slot columnIndex 'Sets the current column' Number readWrite Player > getColumnIndex Player setColumnIndex: ) > + #(slot currentCharacters 'Lets you read and modify the characters of the > current cell' String readWrite Player getCurrentCharacters Player > setCurrentCharacters: ) > + #(slot currentNumericValue 'Lets you read and modify the numeric value of > the current cell' Number readWrite Player getCurrentNumericValue Player > setCurrentNumericValue: ) > + )) > + > + (#'data i/o' ( > + #(slot writeMode 'Lets you choose a write mode (overwrite or append)' > WriteMode readWrite Player getWriteMode Player setWriteMode: ) > + #(slot csvSeparator 'Lets you choose a character to act as a separator > between cells' String readWrite Player getCsvSeparator Player > setCsvSeparator: ) > + #(slot csvFileName 'Sets the name of the file to import/export data' > String readWrite Player getCsvFileName Player setCsvFileName: ) > + #(command importDataFromFile 'Reads the data from the file and loads it > in the spreadsheet') > + #(command exportDataToFile 'Writes the data from the spreadsheet into the > file') > + )) > + > + )! > > Item was added: > + ----- Method: SkBasicSheetMorph class>>initialize (in category 'class > initialization') ----- > + initialize > + " > + self initialize. > + " > + Vocabulary addStandardVocabulary: (SymbolListType new > vocabularyName: #WriteMode; > + symbols: #(#overwrite #append)).! > > Item was added: > + ----- Method: SkBasicSheetMorph class>>model: (in category 'instance > creation') ----- > + model: aSkObject > + ^ super new model: aSkObject! > > Item was added: > + ----- Method: SkBasicSheetMorph>>acceptDroppingMorph:event: (in category > 'drag and drop') ----- > + acceptDroppingMorph: aMorph event: evt > + | cellPos successed | > + cellPos _ self screenToCell: aMorph topLeft. > + (cellPos x < 1 > + or: [cellPos y < 1]) > + ifTrue: [self beep: 'arrow'. > + ^ aMorph rejectDropMorphEvent: evt]. > + successed _ false. > + successed _ (aMorph isKindOf: SkGridPartsMorph) > + ifTrue: [self acceptRuleMorph: aMorph > event: evt] > + ifFalse: [aMorph class = PhraseTileMorph > + ifTrue: [self > acceptPhraseTileMorph: aMorph event: evt] > + ifFalse: [aMorph class = > TileMorph > + ifTrue: > [self acceptTileMorph: aMorph event: evt]]]. > + successed > + ifTrue: [self beep: 'cassete'] > + ifFalse: [self beep: 'arrow'. > + aMorph rejectDropMorphEvent: evt]! > > Item was added: > + ----- Method: SkBasicSheetMorph>>acceptPhraseTileMorph:event: (in > category 'drag and drop') ----- > + acceptPhraseTileMorph: aMorph event: evt > + | setter getter | > + getter _ aMorph operatorTile operatorOrExpression. > + setter _ ('set' > + , (getter allButFirst: 3) , ':') asSymbol. > + self model > + modelAt: (self screenToCell: aMorph topLeft) > + for: aMorph actualObject > + getter: getter > + setter: setter. > + ^ true! > > Item was added: > + ----- Method: SkBasicSheetMorph>>acceptRuleMorph:event: (in category > 'drag and drop') ----- > + acceptRuleMorph: aMorph event: evt > + | cellPos card | > + model parent adopt: aMorph model rule. > + cellPos _ (self screenToCell: aMorph topLeft) > + + (aMorph cellOrigin - aMorph area > topLeft). > + self model textAt: cellPos put: '=' , aMorph model codeString. > + card _ self > + cardMorphAt: cellPos > + ifAbsent: [^ false]. > + card model rule = aMorph model rule > + ifFalse: ["maybe successed" > + ^ false]. > + aMorph halo > + ifNotNilDo: [:halo | halo setTarget: card]. > + ^ true! > > Item was added: > + ----- Method: SkBasicSheetMorph>>acceptTileMorph:event: (in category > 'drag and drop') ----- > + acceptTileMorph: aMorph event: evt > + | object | > + object _ aMorph actualObject. > + self model > + at: (self screenToCell: aMorph topLeft) > + put: object. > + ^ true! > > Item was added: > + ----- Method: SkBasicSheetMorph>>areaChanged (in category 'layout') ----- > + areaChanged > + super areaChanged. > + self > + submorphsDo: [:m | (m isKindOf: SkGridMorph) > + ifTrue: [m areaChanged]]! > > Item was added: > + ----- Method: SkBasicSheetMorph>>cardMorphAt:ifAbsent: (in category > 'accessing') ----- > + cardMorphAt: aPoint ifAbsent: aBlock > + ^ self submorphs > + detect: [:m | m class = SkCardMorph > + and: [m cellOrigin = aPoint]] > + ifNone: aBlock! > > Item was added: > + ----- Method: SkBasicSheetMorph>>cellExtentAt: (in category 'layout') > ----- > + cellExtentAt: aPoint > + | cellExtent x y | > + ^ (model notNil > + and: [(cellExtent _ model findName: self > cellExtentName) class == SkSheet ]) > + ifTrue: [x _ (cellExtent > + at: aPoint x @ 1 > + ifAbsent: [SkGridMorph > standardCellExtent]) x. > + y _ (cellExtent > + at: 1 @ aPoint y > + ifAbsent: [SkGridMorph > standardCellExtent]) y. > + x @ y] > + ifFalse: [SkGridMorph standardCellExtent]! > > Item was added: > + ----- Method: SkBasicSheetMorph>>cellExtentName (in category 'layout') > ----- > + cellExtentName > + ^ 'CellExtent'! > > Item was added: > + ----- Method: SkBasicSheetMorph>>copySelection (in category 'action') > ----- > + copySelection > + | text | > + text _ Text > + streamContents: [:aStream | self selection > top > + to: self selection bottom - > 1 > + do: [:y | > + (self selection > left to: self selection right - 1) > + do: [:x | > aStream > + > nextPutAll: (model textAt: x @ y)] > + > separatedBy: [aStream nextPut: Character tab]. > + aStream nextPut: > Character cr]]. > + Clipboard clipboardText: text! > > Item was added: > + ----- Method: SkBasicSheetMorph>>cut (in category 'action') ----- > + cut > + self copySelection. > + self selection top > + to: self selection bottom - 1 > + do: [:y | self selection left > + to: self selection right - 1 > + do: [:x | model textAt: x @ y put: '']]! > > Item was added: > + ----- Method: SkBasicSheetMorph>>drawCell:at: (in category 'drawing') > ----- > + drawCell: aCanvas at: aPoint > + (aPoint x isZero > + or: [aPoint y isZero]) > + ifTrue: [^ self > + drawLabel: aCanvas > + string: (self labelAt: aPoint) > + at: aPoint]. > + self flag: #TODO. > + self > + drawContents: ((showFormula notNil > + and: [showFormula]) > + ifTrue: [model textAt: aPoint] > + ifFalse: [ showFormula _ false.model at: > aPoint.]) > + on: aCanvas > + at: aPoint! > > Item was added: > + ----- Method: SkBasicSheetMorph>>drawOn: (in category 'drawing') ----- > + drawOn: aCanvas > + super drawOn: aCanvas. > + dropZone > + ifNotNil: [aCanvas > + fillRectangle: (self > + cellAreaToScreen: (dropZone > intersect: area)) > + fillStyle: (SkColorSet labelFor: model) > + borderStyle: self borderStyle]. > + self drawDependMap: aCanvas. > + self drawBorder: aCanvas. > + self drawContents: aCanvas! > > Item was added: > + ----- Method: SkBasicSheetMorph>>editContents (in category 'accessing') > ----- > + editContents > + self selection ifNil: [^'']. > + ^ model > + ifNil: [''] > + ifNotNil: [model textAt: self selection origin]! > > Item was added: > + ----- Method: SkBasicSheetMorph>>editContents: (in category 'accessing') > ----- > + editContents: aText > + "Accept text" > + self selection ifNil: [^self]. > + model > + ifNotNil: [model textAt: self selection origin put: aText]. > + selectionMorph deleteEditor! > > Item was added: > + ----- Method: SkBasicSheetMorph>>fillStyle (in category 'visual > properties') ----- > + fillStyle > + ^ SkColorSet baseFor: model rule! > > Item was added: > + ----- Method: SkBasicSheetMorph>>goto: (in category 'navigation') ----- > + goto: aSkObject > + | grid | > + self beep: 'rice'. > + grid _ aSkObject grid. > + self replace: grid. > + grid history: self. > + ^ grid! > > Item was added: > + ----- Method: SkBasicSheetMorph>>handlesKeyboard: (in category 'event > handling') ----- > + handlesKeyboard: evt > + ^ true! > > Item was added: > + ----- Method: SkBasicSheetMorph>>handlesMouseDown: (in category 'event > handling') ----- > + handlesMouseDown: evt > + ^ true! > > Item was added: > + ----- Method: SkBasicSheetMorph>>handlesMouseOver: (in category 'event > handling') ----- > + handlesMouseOver: evt > + ^ true > + ! > > Item was added: > + ----- Method: SkBasicSheetMorph>>handlesMouseOverDragging: (in category > 'event handling') ----- > + handlesMouseOverDragging: evt > + > + ^ true > + ! > > Item was added: > + ----- Method: SkBasicSheetMorph>>height: (in category 'accessing') ----- > + height: aNumber > + ^ self setExtentFromHalo: self width @ aNumber! > > Item was added: > + ----- Method: SkBasicSheetMorph>>history: (in category 'navigation') > ----- > + history: aSkSheetMorph > + history > + ifNil: [history _ aSkSheetMorph]! > > Item was added: > + ----- Method: SkBasicSheetMorph>>initialize (in category > 'initialization') ----- > + initialize > + super initialize. > + selectionMorph _ SkGridSelectionMorph new holder: self. > + self > + area: (1 @ 1 extent: 4 @ 4). > + self > + borderStyle: (RaisedBorder color: Color black width: 1). > + self > + fillStyle: (SolidFillStyle > + color: (Color > + r: 1.0 > + g: 0.935 > + b: 0.839)). > + self cornerStyle: #rounded. > + self selection: nil. > + showFormula _ false! > > Item was added: > + ----- Method: SkBasicSheetMorph>>initializeToStandAlone (in category > 'parts bin') ----- > + initializeToStandAlone > + super initializeToStandAlone. > + self model: SkSheet new attachProject. > + self > + area: (0 @ 0 extent: 3 @ 3)! > > Item was added: > + ----- Method: SkBasicSheetMorph>>isModelStepping (in category 'stepping > and presenter') ----- > + isModelStepping > + ^ model isStepping! > > Item was added: > + ----- Method: SkBasicSheetMorph>>isMorphicModel (in category > 'classification') ----- > + isMorphicModel > + ^true! > > Item was added: > + ----- Method: SkBasicSheetMorph>>keyStroke: (in category 'event > handling') ----- > + keyStroke: evt > + selectionMorph keyStroke: evt! > > Item was added: > + ----- Method: SkBasicSheetMorph>>model (in category 'accessing') ----- > + model > + ^ model! > > Item was added: > + ----- Method: SkBasicSheetMorph>>model: (in category 'accessing') ----- > + model: anObject > + model > + ifNotNil: [model removeDependent: self]. > + anObject > + ifNotNil: [anObject addDependent: self]. > + model _ anObject. > + self update: #all. > + ! > > Item was added: > + ----- Method: SkBasicSheetMorph>>mouseDown: (in category 'event > handling') ----- > + mouseDown: event > + self > + selectSelection: (self screenToCell: event position). > + event yellowButtonPressed > + ifTrue: [^ selectionMorph invokeMenu: event]. > + "For easy doublecilck to selection" > + event hand waitForClicksOrDrag: selectionMorph event: event. > + event hand mouseFocus: selectionMorph! > > Item was added: > + ----- Method: SkBasicSheetMorph>>mouseEnter: (in category 'event > handling') ----- > + mouseEnter: evt > + | hand tile | > + hand _ evt hand. > + hand submorphs size = 1 > + ifFalse: [^ self]. > + tile _ hand firstSubmorph renderedMorph. > + (self wantsDroppedMorph: tile event: evt) > + ifFalse: [^ self]. > + self > + startStepping: #trackDropZones > + at: Time millisecondClockValue > + arguments: nil > + stepTime: 20! > > Item was added: > + ----- Method: SkBasicSheetMorph>>mouseEnterDragging: (in category 'event > handling') ----- > + mouseEnterDragging: evt > + "Test button state elsewhere if at all" > + ^ self mouseEnter: evt! > > Item was added: > + ----- Method: SkBasicSheetMorph>>mouseLeave: (in category 'event > handling') ----- > + mouseLeave: evt > + dropZone _ nil. > + self stopSteppingSelector: #trackDropZones! > > Item was added: > + ----- Method: SkBasicSheetMorph>>mouseLeaveDragging: (in category 'event > handling') ----- > + mouseLeaveDragging: evt > + ^ self mouseLeave: evt! > > Item was added: > + ----- Method: SkBasicSheetMorph>>mouseUpTick:onItem: (in category 'event > handling') ----- > + mouseUpTick: evt onItem: aMorph > + aMorph isTicking > + ifTrue: [model stopStepping. > + aMorph isTicking: false] > + ifFalse: [model startStepping. > + aMorph isTicking: true]! > > Item was added: > + ----- Method: SkBasicSheetMorph>>openLibrary (in category 'action') ----- > + openLibrary > + (SkObject root at: 'Library') grid openInHand! > > Item was added: > + ----- Method: SkBasicSheetMorph>>paste (in category 'action') ----- > + paste > + | pos selection isJustACell | > + selection _ self selection. > + isJustACell _ selection extent = (1 @ 1). > + pos _ selection origin. > + Clipboard clipboardText > + split: Character cr > + do: [:line | > + line > + split: Character tab > + do: [:field | > + (isJustACell > + or: [selection > containsPoint: pos]) > + ifTrue: [model textAt: pos > put: field]. > + pos _ pos + (1 @ 0)]. > + pos _ selection left @ (pos y + 1)]! > > Item was added: > + ----- Method: SkBasicSheetMorph>>previousPage (in category 'navigation') > ----- > + previousPage > + self beep: 'rice'. > + ^ history > + ifNotNil: [self replace: history]! > > Item was added: > + ----- Method: SkBasicSheetMorph>>privateRemoveMorph: (in category > 'private') ----- > + privateRemoveMorph: aMorph > + aMorph class = SkCardMorph > + ifTrue: [self beep: 'cork'. > + self model textAt: aMorph cellOrigin put: '']. > + super privateRemoveMorph: aMorph! > > Item was added: > + ----- Method: SkBasicSheetMorph>>replace: (in category 'navigation') > ----- > + replace: aSkSheetMorph > + aSkSheetMorph area: self area. > + aSkSheetMorph position: self position. > + self owner replaceSubmorph: self by: aSkSheetMorph. > + ^ aSkSheetMorph! > > Item was added: > + ----- Method: SkBasicSheetMorph>>selectSelection: (in category 'action') > ----- > + selectSelection: aPoint > + "Select at event position" > + aPoint > + ifNil: [^ self]. > + self > + selection: (aPoint extent: 1 @ 1). > + self changed! > > Item was added: > + ----- Method: SkBasicSheetMorph>>selection (in category 'accessing') > ----- > + selection > + ^ selectionMorph area! > > Item was added: > + ----- Method: SkBasicSheetMorph>>selection: (in category 'accessing') > ----- > + selection: aRectangle > + (submorphs indexOf: selectionMorph) = 1 > + ifFalse: [self addMorphFront: selectionMorph]. > + selectionMorph area: aRectangle! > > Item was added: > + ----- Method: SkBasicSheetMorph>>selectionMorph (in category 'accessing') > ----- > + selectionMorph > + ^ selectionMorph! > > Item was added: > + ----- Method: SkBasicSheetMorph>>setCellExtentFromHalo: (in category > 'layout') ----- > + setCellExtentFromHalo: newExtent > + | eachExtent cellExtent | > + model > + ifNil: [^ self]. > + cellExtent _ model > + at: self cellExtentName > + ifAbsent: [model > + at: self cellExtentName > + put: (SkSheet new parent: > model)]. > + eachExtent _ newExtent // self selection extent max: 10 @ 10. > + self selection left > + to: self selection right - 1 > + do: [:x | cellExtent at: x @ 1 put: eachExtent]. > + self selection top > + to: self selection bottom - 1 > + do: [:y | cellExtent at: 1 @ y put: eachExtent]. > + self areaChanged. > + self changed! > > Item was added: > + ----- Method: SkBasicSheetMorph>>setExtentFromHalo: (in category > 'layout') ----- > + setExtentFromHalo: newExtent > + | card cardMorph direction size | > + super setExtentFromHalo: newExtent. > + direction := nil. > + area height = 1 > + ifTrue: > + [direction := #right. > + size := area width - 1] > + ifFalse: > + [area width = 1 > + ifTrue: > + [direction := #down. > + size := area height - 1]]. > + direction ifNotNil: > + [card := model new. > + card direction: direction. > + card size: size. > + cardMorph := SkCardMorph model: card. > + cardMorph position: self position. > + self owner addMorph: cardMorph. > + self halo ifNotNilDo: [:helo | helo setTarget: > cardMorph]. > + self delete]! > > Item was added: > + ----- Method: SkBasicSheetMorph>>showFormula (in category 'accessing') > ----- > + showFormula > + ^ showFormula! > > Item was added: > + ----- Method: SkBasicSheetMorph>>spawn (in category 'action') ----- > + spawn > + model inspectAt: self selection topLeft! > > Item was added: > + ----- Method: SkBasicSheetMorph>>spawn: (in category 'action') ----- > + spawn: anObject > + self spawn! > > Item was added: > + ----- Method: SkBasicSheetMorph>>startStepping (in category 'stepping and > presenter') ----- > + startStepping > + model > + ifNotNil: [model startStepping]. > + super startStepping. > + ! > > Item was added: > + ----- Method: SkBasicSheetMorph>>step (in category 'stepping and > presenter') ----- > + step > + self changed! > > Item was added: > + ----- Method: SkBasicSheetMorph>>toggleFormula (in category 'accessing') > ----- > + toggleFormula > + showFormula _ showFormula not! > > Item was added: > + ----- Method: SkBasicSheetMorph>>trackDropZones (in category 'event > handling') ----- > + trackDropZones > + | hand target | > + hand _ self primaryHand. > + ((self hasOwner: hand) not > + and: [hand submorphCount > 0]) > + ifTrue: [target _ hand submorphs first. > + dropZone _ (self screenToCell: target topLeft) > + extent: ((target > respondsTo: #area) > + ifTrue: > [target area extent] > + ifFalse: [1 > @ 1]). > + (dropZone topLeft x < 1 > + or: [dropZone topLeft y < 1]) > + ifTrue: [dropZone _ nil]. > + self changed] > + ifFalse: [dropZone _ nil. > + self stopSteppingSelector: #trackDropZones]! > > Item was added: > + ----- Method: SkBasicSheetMorph>>tryToRenameTo: (in category 'accessing') > ----- > + tryToRenameTo: aName > + ^ model > + ifNotNilDo: [:m | m name: aName]! > > Item was added: > + ----- Method: SkBasicSheetMorph>>upPage (in category 'navigation') ----- > + upPage > + self beep: 'rice'. > + ^ self goto: model up! > > Item was added: > + ----- Method: SkBasicSheetMorph>>update: (in category 'updating') ----- > + update: anObject > + anObject = #cardList > + ifTrue: [self updateCardList]. > + anObject = #all > + ifTrue: [self updateCardList]. > + self changed! > > Item was added: > + ----- Method: SkBasicSheetMorph>>updateCardList (in category 'updating') > ----- > + updateCardList > + | cardList morph | > + cardList _ model cardList: self visibleArea. > + self > + removeAllMorphsIn: (self submorphs > + select: [:m | m class == SkCardMorph]). > + cardList > + do: [:cardInfo | > + morph _ SkCardMorph model: cardInfo value. > + morph holder: self. > + self addMorph: morph. > + morph cellOrigin: cardInfo key]. > + selectionMorph hide! > > Item was added: > + ----- Method: SkBasicSheetMorph>>veryDeepInner: (in category 'copying') > ----- > + veryDeepInner: deepCopier > + "history is not copied" > + model _ model veryDeepCopyWith: deepCopier. > + selectionMorph _ (selectionMorph veryDeepCopyWith: deepCopier) > holder: self. > + dropZone _ dropZone veryDeepCopyWith: deepCopier. > + showFormula _ showFormula veryDeepCopyWith: deepCopier. > + super veryDeepInner: deepCopier! > > Item was added: > + ----- Method: SkBasicSheetMorph>>wantsDroppedMorph:event: (in category > 'drag and drop') ----- > + wantsDroppedMorph: aMorph event: anEvent > + ^ aMorph class = PhraseTileMorph > + or: [aMorph class = TileMorph > + or: [aMorph isKindOf: SkGridPartsMorph]]! > > Item was added: > + ----- Method: SkBasicSheetMorph>>width: (in category 'accessing') ----- > + width: aNumber > + ^ self setExtentFromHalo: aNumber @ self height! > > Item was changed: > ----- Method: SkCardMorph>>doubleClick: (in category 'event handling') > ----- > doubleClick: evt > | sheet | > (holder notNil > and: [owner = holder]) > ifTrue: [^ holder goto: model]. > self owner = World > ifTrue: [self delete]. > + sheet _ SkBasicSheetMorph allInstances > - sheet _ SkSheetMorph allInstances > detect: [:each | each world = World > and: [each model = model]] > ifNone: [model grid]. > sheet position: self position; > openInWorld! > > Item was changed: > ----- Method: SkCardMorph>>replaceToSheet: (in category 'layout') ----- > replaceToSheet: newCellExtent > "Create new spreadsheet for the model. And I will be deleted" > | sheetMorph | > (newCellExtent y > 1 > and: [newCellExtent x > 1]) > + ifTrue: [sheetMorph _ SkBasicSheetMorph new model: model. > - ifTrue: [sheetMorph _ SkSheetMorph new model: model. > sheetMorph > area: (0 @ 0 extent: newCellExtent). > sheetMorph position: self position. > self owner addMorph: sheetMorph. > self halo > ifNotNilDo: [:helo | helo setTarget: > sheetMorph]. > ^ self delete]! > > Item was changed: > ----- Method: SkObject class>>grid (in category 'instance creation') ----- > grid > | case grid | > + grid _ SkBasicSheetMorph new model: (case _ self new). > - grid _ SkSheetMorph new model: (case _ self new). > grid area: case defaultArea. > ^ grid! > > Item was changed: > ----- Method: SkObject>>grid (in category 'initialization') ----- > grid > | grid | > + grid _ SkBasicSheetMorph new model: self. > - grid _ SkSheetMorph new model: self. > grid area: self defaultArea. > ^ grid! > > Item was changed: > + Morph subclass: #SkSheetMorph > + instanceVariableNames: 'sheet' > - SkGridMorph subclass: #SkSheetMorph > - instanceVariableNames: 'history model selectionMorph dropZone > showFormula' > classVariableNames: '' > poolDictionaries: '' > category: 'Skeleton-Base'! > - > - !SkSheetMorph commentStamp: 'tak 12/11/2003 19:10' prior: 0! > - I am a presentation compornent for showing as 2-D grid. > - The contents what I show is depended on a model. > - I never access to a cell directly except through model because > - a cell doesn't know where he locates. Basically, Position information is > - only in model. > - > - cellArea Rectangle -- the area of cells for drawing. Actual > size of table is cellArea extent. > - model SkSheet -- > - ! > > Item was changed: > + ----- Method: SkSheetMorph class>>additionsToViewerCategories (in > category 'as yet unclassified') ----- > - ----- Method: SkSheetMorph class>>additionsToViewerCategories (in > category 'viewer categories') ----- > additionsToViewerCategories > + ^(Smalltalk at: #SkRawSheetMorph ifAbsent: [^ #()]) > + additionsToViewerCategories! > - ^ #( > - (#spreadsheet ( > - #(command clearTable 'Deletes the contents of all cells') > - #(command clearRow 'Deletes the contents of the current row cells' ) > - #(command clearColumn 'Deletes the contents of the current columns cells' > ) > - #(slot totalRows 'Lets you change the amount of rows in the spreadsheet' > Number readWrite Player getTotalRows Player setTotalRows: ) > - #(slot totalColumns 'Lets you change the amount of columns in the > spreadsheet' Number readWrite Player getTotalColumns Player setTotalColumns: > ) > - #(slot rowIndex 'Sets the current row' Number readWrite Player > getRowIndex Player setRowIndex: ) > - #(slot columnIndex 'Sets the current column' Number readWrite Player > getColumnIndex Player setColumnIndex: ) > - #(slot currentCharacters 'Lets you read and modify the characters of the > current cell' String readWrite Player getCurrentCharacters Player > setCurrentCharacters: ) > - #(slot currentNumericValue 'Lets you read and modify the numeric value of > the current cell' Number readWrite Player getCurrentNumericValue Player > setCurrentNumericValue: ) > - )) > - > - (#'data i/o' ( > - #(slot writeMode 'Lets you choose a write mode (overwrite or append)' > WriteMode readWrite Player getWriteMode Player setWriteMode: ) > - #(slot csvSeparator 'Lets you choose a character to act as a separator > between cells' String readWrite Player getCsvSeparator Player > setCsvSeparator: ) > - #(slot csvFileName 'Sets the name of the file to import/export data' > String readWrite Player getCsvFileName Player setCsvFileName: ) > - #(command importDataFromFile 'Reads the data from the file and loads it > in the spreadsheet') > - #(command exportDataToFile 'Writes the data from the spreadsheet into the > file') > - )) > - > - )! > > Item was changed: > + ----- Method: SkSheetMorph class>>descriptionForPartsBin (in category 'as > yet unclassified') ----- > - ----- Method: SkSheetMorph class>>descriptionForPartsBin (in category > 'parts bin') ----- > descriptionForPartsBin > + ^ self partName: 'Spreadsheet' translated > + categories: {'Skeleton' translated} > + documentation: 'A spreadsheet' translated! > - ^ self partName: 'Spread Sheet' > - categories: #('Skeleton') > - documentation: 'A spread sheet'! > > Item was removed: > - ----- Method: SkSheetMorph class>>formPreviousPage (in category > 'constants') ----- > - formPreviousPage > - ^((ColorForm > - extent: 5@9 > - depth: 1 > - fromArray: #( 4026531840 3758096384 3489660928 2952790016 > 1879048192 2952790016 3489660928 3758096384 4026531840) > - offset: 0@0) > - colorsFromArray: #(#(0.0 0.0 0.0) #( ) )) > - " form storeString "! > > Item was removed: > - ----- Method: SkSheetMorph class>>formUpPage (in category 'constants') > ----- > - formUpPage > - ^((ColorForm > - extent: 9@5 > - depth: 2 > - fromArray: #( 2859106304 2845474816 2795929600 2326298624 > 1431650304) > - offset: 0@0) > - colorsFromArray: #(#(0.004 0.004 0.008) #(0.0 0.0 0.004) #( ) #(0.0 > 0.0 0.0) )) > - " form storeString "! > > Item was removed: > - ----- Method: SkSheetMorph class>>initialize (in category 'class > initialization') ----- > - initialize > - " > - self initialize. > - " > - Vocabulary addStandardVocabulary: (SymbolListType new > vocabularyName: #WriteMode; > - symbols: #(#overwrite #append)).! > > Item was removed: > - ----- Method: SkSheetMorph class>>model: (in category 'instance > creation') ----- > - model: aSkObject > - ^ super new model: aSkObject! > > Item was removed: > - ----- Method: SkSheetMorph>>acceptDroppingMorph:event: (in category 'drag > and drop') ----- > - acceptDroppingMorph: aMorph event: evt > - | cellPos successed | > - cellPos _ self screenToCell: aMorph topLeft. > - (cellPos x < 1 > - or: [cellPos y < 1]) > - ifTrue: [self beep: 'arrow'. > - ^ aMorph rejectDropMorphEvent: evt]. > - successed _ false. > - successed _ (aMorph isKindOf: SkGridPartsMorph) > - ifTrue: [self acceptRuleMorph: aMorph > event: evt] > - ifFalse: [aMorph class = PhraseTileMorph > - ifTrue: [self > acceptPhraseTileMorph: aMorph event: evt] > - ifFalse: [aMorph class = > TileMorph > - ifTrue: > [self acceptTileMorph: aMorph event: evt]]]. > - successed > - ifTrue: [self beep: 'cassete'] > - ifFalse: [self beep: 'arrow'. > - aMorph rejectDropMorphEvent: evt]! > > Item was removed: > - ----- Method: SkSheetMorph>>acceptPhraseTileMorph:event: (in category > 'drag and drop') ----- > - acceptPhraseTileMorph: aMorph event: evt > - | setter getter | > - getter _ aMorph operatorTile operatorOrExpression. > - setter _ ('set' > - , (getter allButFirst: 3) , ':') asSymbol. > - self model > - modelAt: (self screenToCell: aMorph topLeft) > - for: aMorph actualObject > - getter: getter > - setter: setter. > - ^ true! > > Item was removed: > - ----- Method: SkSheetMorph>>acceptRuleMorph:event: (in category 'drag and > drop') ----- > - acceptRuleMorph: aMorph event: evt > - | cellPos card | > - model parent adopt: aMorph model rule. > - cellPos _ (self screenToCell: aMorph topLeft) > - + (aMorph cellOrigin - aMorph area > topLeft). > - self model textAt: cellPos put: '=' , aMorph model codeString. > - card _ self > - cardMorphAt: cellPos > - ifAbsent: [^ false]. > - card model rule = aMorph model rule > - ifFalse: ["maybe successed" > - ^ false]. > - aMorph halo > - ifNotNilDo: [:halo | halo setTarget: card]. > - ^ true! > > Item was removed: > - ----- Method: SkSheetMorph>>acceptTileMorph:event: (in category 'drag and > drop') ----- > - acceptTileMorph: aMorph event: evt > - | object | > - object _ aMorph actualObject. > - self model > - at: (self screenToCell: aMorph topLeft) > - put: object. > - ^ true! > > Item was added: > + ----- Method: SkSheetMorph>>addPageControls (in category > 'initialization') ----- > + addPageControls > + | panel prev up title | > + > + panel := AlignmentMorph newRow > + color: Color transparent; > + cellInset: 3; > + hResizing: #shrinkWrap; > + vResizing: #shrinkWrap. > + panel addMorphBack: self tickMorph. > + prev := SketchMorph withForm: self prevButtonForm. > + prev > + on: #mouseDown > + send: #previousPage > + to: sheet. > + prev position: 32 @ 3. > + prev setBalloonText: 'View the previous sheet.' translated. > + panel addMorphBack: prev. > + up := SketchMorph withForm: self upButtonForm. > + up > + on: #mouseDown > + send: #upPage > + to: sheet. > + up position: 44 @ 4. > + up setBalloonText: 'View the definision or the parent rule.' > translated. > + panel addMorphBack: up. > + title := UpdatingStringMorph new useStringFormat > + target: self; > + putSelector: #setNameTo:; > + getSelector: #externalName. > + panel addMorphBack: title. > + self addMorph: panel! > > Item was added: > + ----- Method: SkSheetMorph>>addSheet: (in category 'initialization') > ----- > + addSheet: aSheet > + self addMorph: (sheet := aSheet). > + self renameTo: sheet externalName! > > Item was added: > + ----- Method: SkSheetMorph>>area: (in category 'sheet delegation') ----- > + area: aRectangle > + ^ sheet area: aRectangle > + ! > > Item was removed: > - ----- Method: SkSheetMorph>>areaChanged (in category 'layout') ----- > - areaChanged > - super areaChanged. > - self > - submorphsDo: [:m | (m isKindOf: SkGridMorph) > - ifTrue: [m areaChanged]]! > > Item was removed: > - ----- Method: SkSheetMorph>>cardMorphAt:ifAbsent: (in category > 'accessing') ----- > - cardMorphAt: aPoint ifAbsent: aBlock > - ^ self submorphs > - detect: [:m | m class = SkCardMorph > - and: [m cellOrigin = aPoint]] > - ifNone: aBlock! > > Item was removed: > - ----- Method: SkSheetMorph>>cellExtentAt: (in category 'layout') ----- > - cellExtentAt: aPoint > - | cellExtent x y | > - ^ (model notNil > - and: [(cellExtent _ model findName: self > cellExtentName) class == SkSheet ]) > - ifTrue: [x _ (cellExtent > - at: aPoint x @ 1 > - ifAbsent: [SkGridMorph > standardCellExtent]) x. > - y _ (cellExtent > - at: 1 @ aPoint y > - ifAbsent: [SkGridMorph > standardCellExtent]) y. > - x @ y] > - ifFalse: [SkGridMorph standardCellExtent]! > > Item was removed: > - ----- Method: SkSheetMorph>>cellExtentName (in category 'layout') ----- > - cellExtentName > - ^ 'CellExtent'! > > Item was removed: > - ----- Method: SkSheetMorph>>copySelection (in category 'action') ----- > - copySelection > - | text | > - text _ Text > - streamContents: [:aStream | self selection > top > - to: self selection bottom - > 1 > - do: [:y | > - (self selection > left to: self selection right - 1) > - do: [:x | > aStream > - > nextPutAll: (model textAt: x @ y)] > - > separatedBy: [aStream nextPut: Character tab]. > - aStream nextPut: > Character cr]]. > - Clipboard clipboardText: text! > > Item was removed: > - ----- Method: SkSheetMorph>>cut (in category 'action') ----- > - cut > - self copySelection. > - self selection top > - to: self selection bottom - 1 > - do: [:y | self selection left > - to: self selection right - 1 > - do: [:x | model textAt: x @ y put: '']]! > > Item was added: > + ----- Method: SkSheetMorph>>doesNotUnderstand: (in category 'dnu') ----- > + doesNotUnderstand: aMessage > + "Quick hack to automagically generate missing methods" > + self flag: #Richo. > + (sheet respondsTo: aMessage selector) > + ifTrue: [ | str | > + str := aMessage createStubMethod allButLast: 24. > + self class compile: str, '^ sheet ', str > classified: #'autogenerated'. > + ^aMessage sentTo: self. > + ] > + ifFalse: [^super doesNotUnderstand: aMessage]! > > Item was removed: > - ----- Method: SkSheetMorph>>drawCell:at: (in category 'drawing') ----- > - drawCell: aCanvas at: aPoint > - (aPoint x isZero > - or: [aPoint y isZero]) > - ifTrue: [^ self > - drawLabel: aCanvas > - string: (self labelAt: aPoint) > - at: aPoint]. > - self flag: #TODO. > - self > - drawContents: ((showFormula notNil > - and: [showFormula]) > - ifTrue: [model textAt: aPoint] > - ifFalse: [ showFormula _ false.model at: > aPoint.]) > - on: aCanvas > - at: aPoint! > > Item was removed: > - ----- Method: SkSheetMorph>>drawName: (in category 'drawing') ----- > - drawName: aCanvas > - | name | > - name := model ruleName asString. > - model isInstance > - ifTrue: [name := name , '*']. > - aCanvas > - clipBy: self bounds > - during: [:canvas | canvas > - drawString: name > - at: self topLeft + (28 @ 6) > - font: self class titleStyle > - color: Color gray]! > > Item was removed: > - ----- Method: SkSheetMorph>>drawOn: (in category 'drawing') ----- > - drawOn: aCanvas > - super drawOn: aCanvas. > - self drawGrabAreaOn: aCanvas. > - dropZone > - ifNotNil: [aCanvas > - fillRectangle: (self > - cellAreaToScreen: (dropZone > intersect: area)) > - fillStyle: (SkColorSet labelFor: model) > - borderStyle: self borderStyle]. > - self drawDependMap: aCanvas. > - self drawName: aCanvas. > - self drawBorder: aCanvas. > - self drawContents: aCanvas! > > Item was removed: > - ----- Method: SkSheetMorph>>editContents (in category 'accessing') ----- > - editContents > - self selection ifNil: [^'']. > - ^ model > - ifNil: [''] > - ifNotNil: [model textAt: self selection origin]! > > Item was removed: > - ----- Method: SkSheetMorph>>editContents: (in category 'accessing') ----- > - editContents: aText > - "Accept text" > - self selection ifNil: [^self]. > - model > - ifNotNil: [model textAt: self selection origin put: aText]. > - selectionMorph deleteEditor! > > Item was added: > + ----- Method: SkSheetMorph>>extent: (in category 'accessing') ----- > + extent: newExtent > + > + sheet setExtentFromHalo: (newExtent max: (165@77)) - > + (self > layoutInset + self cellInset + (0 @ self pageControls height))! > > Item was removed: > - ----- Method: SkSheetMorph>>fillStyle (in category 'visual properties') > ----- > - fillStyle > - ^ SkColorSet baseFor: model rule! > > Item was removed: > - ----- Method: SkSheetMorph>>goto: (in category 'navigation') ----- > - goto: aSkObject > - | grid | > - self beep: 'rice'. > - grid _ aSkObject grid. > - self replace: grid. > - grid history: self. > - ^ grid! > > Item was removed: > - ----- Method: SkSheetMorph>>handlesKeyboard: (in category 'event > handling') ----- > - handlesKeyboard: evt > - ^ true! > > Item was removed: > - ----- Method: SkSheetMorph>>handlesMouseDown: (in category 'event > handling') ----- > - handlesMouseDown: evt > - ^ (self grabArea containsPoint: evt position) not! > > Item was removed: > - ----- Method: SkSheetMorph>>handlesMouseOver: (in category 'event > handling') ----- > - handlesMouseOver: evt > - ^ true > - ! > > Item was removed: > - ----- Method: SkSheetMorph>>handlesMouseOverDragging: (in category 'event > handling') ----- > - handlesMouseOverDragging: evt > - > - ^ true > - ! > > Item was removed: > - ----- Method: SkSheetMorph>>height: (in category 'accessing') ----- > - height: aNumber > - ^ self setExtentFromHalo: self width @ aNumber! > > Item was removed: > - ----- Method: SkSheetMorph>>history: (in category 'navigation') ----- > - history: aSkSheetMorph > - history > - ifNil: [history _ aSkSheetMorph]! > > Item was changed: > ----- Method: SkSheetMorph>>initialize (in category 'initialization') > ----- > initialize > super initialize. > + self layoutPolicy: TableLayout new; > + cellPositioning: #leftCenter; > + cornerStyle: #rounded; > + color: (Color r: 0.645 g: 0.645 b: 1.0); > + borderWidth: 1; > + borderColor: (Color r: 0.516 g: 0.516 b: 1.0); > + listDirection: #topToBottom; > + hResizing: #shrinkWrap; > + vResizing: #shrinkWrap. > + self addSheet: SkBasicSheetMorph newStandAlone; > + addPageControls! > - self showPageControls. > - selectionMorph _ SkGridSelectionMorph new holder: self. > - self > - area: (1 @ 1 extent: 4 @ 4). > - self > - borderStyle: (RaisedBorder color: Color black width: 1). > - self > - fillStyle: (SolidFillStyle > - color: (Color > - r: 1.0 > - g: 0.935 > - b: 0.839)). > - self cornerStyle: #rounded. > - self selection: nil. > - showFormula _ false! > > Item was removed: > - ----- Method: SkSheetMorph>>initializeToStandAlone (in category 'parts > bin') ----- > - initializeToStandAlone > - super initializeToStandAlone. > - self model: SkSheet new attachProject. > - self > - area: (0 @ 0 extent: 3 @ 3)! > > Item was removed: > - ----- Method: SkSheetMorph>>isModelStepping (in category 'stepping and > presenter') ----- > - isModelStepping > - ^ model isStepping! > > Item was removed: > - ----- Method: SkSheetMorph>>isMorphicModel (in category 'classification') > ----- > - isMorphicModel > - ^true! > > Item was removed: > - ----- Method: SkSheetMorph>>keyStroke: (in category 'event handling') > ----- > - keyStroke: evt > - selectionMorph keyStroke: evt! > > Item was changed: > + ----- Method: SkSheetMorph>>model (in category 'sheet delegation') ----- > - ----- Method: SkSheetMorph>>model (in category 'accessing') ----- > model > + ^ sheet model! > - ^ model! > > Item was removed: > - ----- Method: SkSheetMorph>>model: (in category 'accessing') ----- > - model: anObject > - model > - ifNotNil: [model removeDependent: self]. > - anObject > - ifNotNil: [anObject addDependent: self]. > - model _ anObject. > - self update: #all. > - ! > > Item was removed: > - ----- Method: SkSheetMorph>>mouseDown: (in category 'event handling') > ----- > - mouseDown: event > - self > - selectSelection: (self screenToCell: event position). > - event yellowButtonPressed > - ifTrue: [^ selectionMorph invokeMenu: event]. > - "For easy doublecilck to selection" > - event hand waitForClicksOrDrag: selectionMorph event: event. > - event hand mouseFocus: selectionMorph! > > Item was removed: > - ----- Method: SkSheetMorph>>mouseEnter: (in category 'event handling') > ----- > - mouseEnter: evt > - | hand tile | > - hand _ evt hand. > - hand submorphs size = 1 > - ifFalse: [^ self]. > - tile _ hand firstSubmorph renderedMorph. > - (self wantsDroppedMorph: tile event: evt) > - ifFalse: [^ self]. > - self > - startStepping: #trackDropZones > - at: Time millisecondClockValue > - arguments: nil > - stepTime: 20! > > Item was removed: > - ----- Method: SkSheetMorph>>mouseEnterDragging: (in category 'event > handling') ----- > - mouseEnterDragging: evt > - "Test button state elsewhere if at all" > - ^ self mouseEnter: evt! > > Item was removed: > - ----- Method: SkSheetMorph>>mouseLeave: (in category 'event handling') > ----- > - mouseLeave: evt > - dropZone _ nil. > - self stopSteppingSelector: #trackDropZones! > > Item was removed: > - ----- Method: SkSheetMorph>>mouseLeaveDragging: (in category 'event > handling') ----- > - mouseLeaveDragging: evt > - ^ self mouseLeave: evt! > > Item was removed: > - ----- Method: SkSheetMorph>>mouseUpTick:onItem: (in category 'event > handling') ----- > - mouseUpTick: evt onItem: aMorph > - aMorph isTicking > - ifTrue: [model stopStepping. > - aMorph isTicking: false] > - ifFalse: [model startStepping. > - aMorph isTicking: true]! > > Item was removed: > - ----- Method: SkSheetMorph>>openLibrary (in category 'action') ----- > - openLibrary > - (SkObject root at: 'Library') grid openInHand! > > Item was added: > + ----- Method: SkSheetMorph>>pageControls (in category 'accessing') ----- > + pageControls > + ^ self submorphs detect: [:each | each ~~ sheet]! > > Item was removed: > - ----- Method: SkSheetMorph>>paste (in category 'action') ----- > - paste > - | pos selection isJustACell | > - selection _ self selection. > - isJustACell _ selection extent = (1 @ 1). > - pos _ selection origin. > - Clipboard clipboardText > - split: Character cr > - do: [:line | > - line > - split: Character tab > - do: [:field | > - (isJustACell > - or: [selection > containsPoint: pos]) > - ifTrue: [model textAt: pos > put: field]. > - pos _ pos + (1 @ 0)]. > - pos _ selection left @ (pos y + 1)]! > > Item was added: > + ----- Method: SkSheetMorph>>prevButtonForm (in category 'accessing') > ----- > + prevButtonForm > + ^(Form > + extent: 9@16 > + depth: 16 > + fromArray: #( 0 0 0 0 0 0 0 0 0 831258624 0 0 0 12684 831258624 0 0 > 0 831279775 831258624 0 0 12684 1386173087 831258624 0 0 831279775 > 1386173087 831258624 0 12684 1386173087 1386173087 831258624 0 831279775 > 1386173087 1386173087 831258624 12684 1386173087 1386173087 1386173087 > 831258624 0 831279775 1386173087 1386173087 831258624 0 12684 1386173087 > 1386173087 831258624 0 0 831279775 1386173087 831258624 0 0 12684 1386173087 > 831258624 0 0 0 831279775 831258624 0 0 0 12684 831258624 0 0 0 0 831258624) > + offset: 522@183)! > > Item was removed: > - ----- Method: SkSheetMorph>>previousPage (in category 'navigation') ----- > - previousPage > - self beep: 'rice'. > - ^ history > - ifNotNil: [self replace: history]! > > Item was removed: > - ----- Method: SkSheetMorph>>privateRemoveMorph: (in category 'private') > ----- > - privateRemoveMorph: aMorph > - aMorph class = SkCardMorph > - ifTrue: [self beep: 'cork'. > - self model textAt: aMorph cellOrigin put: '']. > - super privateRemoveMorph: aMorph! > > Item was removed: > - ----- Method: SkSheetMorph>>replace: (in category 'navigation') ----- > - replace: aSkSheetMorph > - aSkSheetMorph area: self area. > - aSkSheetMorph position: self position. > - self delete. > - aSkSheetMorph openInWorld. > - ^ aSkSheetMorph! > > Item was added: > + ----- Method: SkSheetMorph>>replaceSubmorph:by: (in category > 'submorphs-add/remove') ----- > + replaceSubmorph: oldMorph by: newMorph > + "Update page controls if the sheet gets replaced." > + ^ oldMorph == sheet > + ifTrue: [self submorphsDo: [:each | each delete]; > + addSheet: newMorph; > + addPageControls] > + ifFalse: [super replaceSubmorph: oldMorph by: newMorph]! > > Item was changed: > + ----- Method: SkSheetMorph>>selectSelection: (in category 'sheet > delegation') ----- > - ----- Method: SkSheetMorph>>selectSelection: (in category 'action') ----- > selectSelection: aPoint > + ^ sheet selectSelection: aPoint > + ! > - "Select at event position" > - aPoint > - ifNil: [^ self]. > - self > - selection: (aPoint extent: 1 @ 1). > - self changed! > > Item was changed: > + ----- Method: SkSheetMorph>>selection (in category 'sheet delegation') > ----- > - ----- Method: SkSheetMorph>>selection (in category 'accessing') ----- > selection > + ^ sheet selection > + ! > - ^ selectionMorph area! > > Item was removed: > - ----- Method: SkSheetMorph>>selection: (in category 'accessing') ----- > - selection: aRectangle > - submorphs first == selectionMorph > - ifFalse: [self addMorphFront: selectionMorph]. > - selectionMorph area: aRectangle! > > Item was removed: > - ----- Method: SkSheetMorph>>selectionMorph (in category 'accessing') > ----- > - selectionMorph > - ^ selectionMorph! > > Item was removed: > - ----- Method: SkSheetMorph>>setCellExtentFromHalo: (in category 'layout') > ----- > - setCellExtentFromHalo: newExtent > - | eachExtent cellExtent | > - model > - ifNil: [^ self]. > - cellExtent _ model > - at: self cellExtentName > - ifAbsent: [model > - at: self cellExtentName > - put: (SkSheet new parent: > model)]. > - eachExtent _ newExtent // self selection extent max: 10 @ 10. > - self selection left > - to: self selection right - 1 > - do: [:x | cellExtent at: x @ 1 put: eachExtent]. > - self selection top > - to: self selection bottom - 1 > - do: [:y | cellExtent at: 1 @ y put: eachExtent]. > - self areaChanged. > - self changed! > > Item was removed: > - ----- Method: SkSheetMorph>>setExtentFromHalo: (in category 'layout') > ----- > - setExtentFromHalo: newExtent > - | card cardMorph direction size | > - super setExtentFromHalo: newExtent. > - direction := nil. > - area height = 1 > - ifTrue: > - [direction := #right. > - size := area width - 1] > - ifFalse: > - [area width = 1 > - ifTrue: > - [direction := #down. > - size := area height - 1]]. > - direction ifNotNil: > - [card := model new. > - card direction: direction. > - card size: size. > - cardMorph := SkCardMorph model: card. > - cardMorph position: self position. > - self owner addMorph: cardMorph. > - self halo ifNotNilDo: [:helo | helo setTarget: > cardMorph]. > - self delete]! > > Item was added: > + ----- Method: SkSheetMorph>>setNameTo: (in category 'renaming') ----- > + setNameTo: aName > + sheet tryToRenameTo: aName. > + super setNameTo: aName! > > Item was removed: > - ----- Method: SkSheetMorph>>showFormula (in category 'accessing') ----- > - showFormula > - ^ showFormula! > > Item was removed: > - ----- Method: SkSheetMorph>>showPageControls (in category > 'initialization') ----- > - showPageControls > - | panel prev up | > - panel _ Morph new extent: 80@20; color: Color transparent. > - panel > - on: #mouseDown > - send: #yourself > - to: self. > - panel addMorph: self tickMorph. > - prev _ (PolygonMorph new setVertices: {0 @ 7. 7 @ 0. 7 @ 14}) > borderWidth: 1; > - borderColor: Color darkGray; > - color: Color transparent. > - prev > - on: #mouseDown > - send: #previousPage > - to: self. > - prev position: 24 @ 3. > - prev setBalloonText: 'View the previous sheet.' translated. > - panel addMorph: prev. > - up _ prev copy heading: 90. > - up > - on: #mouseDown > - send: #upPage > - to: self. > - up position: 36 @ 4. > - up setBalloonText: 'View the definision or the parent rule.' > translated. > - > - panel addMorph: up. > - self addMorph: panel! > > Item was removed: > - ----- Method: SkSheetMorph>>spawn (in category 'action') ----- > - spawn > - model inspectAt: self selection topLeft! > > Item was removed: > - ----- Method: SkSheetMorph>>spawn: (in category 'action') ----- > - spawn: anObject > - self spawn! > > Item was removed: > - ----- Method: SkSheetMorph>>startStepping (in category 'stepping and > presenter') ----- > - startStepping > - model > - ifNotNil: [model startStepping]. > - super startStepping. > - ! > > Item was changed: > + ----- Method: SkSheetMorph>>step (in category 'stepping') ----- > - ----- Method: SkSheetMorph>>step (in category 'stepping and presenter') > ----- > step > + sheet step! > - self changed! > > Item was changed: > + ----- Method: SkSheetMorph>>tickMorph (in category 'accessing') ----- > - ----- Method: SkSheetMorph>>tickMorph (in category 'initialization') > ----- > tickMorph > | tick | > tick _ SkPluggableTickMorph new. > + tick on: sheet isTickingSel: #isModelStepping. > - tick position: self position + 1. > - tick on: self isTickingSel: #isModelStepping. > tick > on: #mouseUp > send: #mouseUpTick:onItem: > + to: sheet. > - to: self. > tick stepTime: 500. > tick startStepping. > tick setBalloonText: 'Press to toggle ticking state.' translated. > ^ tick! > > Item was removed: > - ----- Method: SkSheetMorph>>toggleFormula (in category 'accessing') ----- > - toggleFormula > - showFormula _ showFormula not! > > Item was removed: > - ----- Method: SkSheetMorph>>trackDropZones (in category 'event handling') > ----- > - trackDropZones > - | hand target | > - hand _ self primaryHand. > - ((self hasOwner: hand) not > - and: [hand submorphCount > 0]) > - ifTrue: [target _ hand submorphs first. > - dropZone _ (self screenToCell: target topLeft) > - extent: ((target > respondsTo: #area) > - ifTrue: > [target area extent] > - ifFalse: [1 > @ 1]). > - (dropZone topLeft x < 1 > - or: [dropZone topLeft y < 1]) > - ifTrue: [dropZone _ nil]. > - self changed] > - ifFalse: [dropZone _ nil. > - self stopSteppingSelector: #trackDropZones]! > > Item was removed: > - ----- Method: SkSheetMorph>>tryToRenameTo: (in category 'accessing') > ----- > - tryToRenameTo: aName > - ^ model > - ifNotNilDo: [:m | m name: aName]! > > Item was added: > + ----- Method: SkSheetMorph>>upButtonForm (in category 'accessing') ----- > + upButtonForm > + ^ self prevButtonForm copy rotateBy: 90! > > Item was removed: > - ----- Method: SkSheetMorph>>upPage (in category 'navigation') ----- > - upPage > - self beep: 'rice'. > - ^ self goto: model up! > > Item was removed: > - ----- Method: SkSheetMorph>>update: (in category 'updating') ----- > - update: anObject > - anObject = #cardList > - ifTrue: [self updateCardList]. > - anObject = #all > - ifTrue: [self updateCardList]. > - self changed! > > Item was removed: > - ----- Method: SkSheetMorph>>updateCardList (in category 'updating') ----- > - updateCardList > - | cardList morph | > - cardList _ model cardList: self visibleArea. > - self > - removeAllMorphsIn: (self submorphs > - select: [:m | m class == SkCardMorph]). > - cardList > - do: [:cardInfo | > - morph _ SkCardMorph model: cardInfo value. > - morph holder: self. > - self addMorph: morph. > - morph cellOrigin: cardInfo key]. > - selectionMorph hide! > > Item was removed: > - ----- Method: SkSheetMorph>>veryDeepInner: (in category 'copying') ----- > - veryDeepInner: deepCopier > - "history is not copied" > - model _ model veryDeepCopyWith: deepCopier. > - selectionMorph _ (selectionMorph veryDeepCopyWith: deepCopier) > holder: self. > - dropZone _ dropZone veryDeepCopyWith: deepCopier. > - showFormula _ showFormula veryDeepCopyWith: deepCopier. > - super veryDeepInner: deepCopier! > > Item was added: > + ----- Method: SkSheetMorph>>visibleArea (in category 'sheet delegation') > ----- > + visibleArea > + ^ sheet visibleArea > + ! > > Item was removed: > - ----- Method: SkSheetMorph>>wantsDroppedMorph:event: (in category 'drag > and drop') ----- > - wantsDroppedMorph: aMorph event: anEvent > - ^ aMorph class = PhraseTileMorph > - or: [aMorph class = TileMorph > - or: [aMorph isKindOf: SkGridPartsMorph]]! > > Item was removed: > - ----- Method: SkSheetMorph>>width: (in category 'accessing') ----- > - width: aNumber > - ^ self setExtentFromHalo: aNumber @ self height! > > Item was changed: > ----- Method: SkValueCell>>slotName (in category 'accessing') ----- > slotName > "See Player>>tearOffFancyWatcherFor:" > | info watcherWording anInterface | > info _ model slotInfoForGetter: getter. > info > ifNil: [anInterface _ Vocabulary eToyVocabulary > methodInterfaceAt: getter > ifAbsent: []. > + watcherWording _ anInterface wording] > - watcherWording _ anInterface elementWording] > ifNotNil: [watcherWording _ Utilities > inherentSelectorForGetter: getter]. > ^ model tileReferringToSelf bePossessive labelMorph contents , ' ' , > watcherWording! > > > _______________________________________________ > etoys-dev mailing list > etoys-dev(a)squeakland.org > http://lists.squeakland.org/mailman/listinfo/etoys-dev > >

2 1

Re: [etoys-dev] Etoys: MorphicExtras-kfr.41.mcz
by Bert Freudenberg 18 Oct '11

18 Oct '11

On 13.10.2011, at 20:47, commits(a)source.squeak.org wrote: > Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: > http://source.squeak.org/etoys/MorphicExtras-kfr.41.mcz > > ==================== Summary ==================== > > Name: MorphicExtras-kfr.41 > Author: kfr > Time: 13 October 2011, 10:47:37 pm > UUID: 999c47e0-2257-0249-8f43-87899271a4d4 > Ancestors: MorphicExtras-kfr.40 > > Some more fixing. > I'll say this is pretty much good to gow now. > Famous last words... I just committed the Mac CameraPlugin, and tried your code. Worked on first try, great! Things I noticed: The camera stays on when I leave the project. It should turn off - we're not spying on users ;) After loading a project with a "running" camera, it does not restart automatically. For both of these I think we should use the intoWorld/outOfWorld mechanism. See VideoMorph. When I duplicate the camera I get two cameras. When I delete the one camera, the other one stops, too. However, the tile still says it's "on". We should hide the old camera from the object catalog. Maybe just remove it from the "multimedia" page and still leave it in the alphabetical list. And rename the new one to Camera (we don't really have to rename the class, but it would be consistent to do so). Got errors in Player when I tried to rotate the camera. All the getters should use the "getValueFromCostume:" idiom. Similarly, the setters should use "setCostumeSlot:toValue:". The viewer category should simply be named "camera", not "camera settings". Not sure about the "last frame" tile. Do we need that? If so we should find a nicer name. In any case the help balloon should not mention "morph". In Etoys we generally do not distinguish between the player and its costume. (idea: maybe a copy of the camera should just return a sketch) And we should make a test release for others to try this, soonish. - Bert -

3 19

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev October 2011