Squeak-dev December 2013

squeak-dev@lists.squeakfoundation.org

45 participants
325 discussions

The Trunk: MonticelloConfigurations-fbs.123.mcz
by commits＠source.squeak.org 31 Dec '13

31 Dec '13

Frank Shearar uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-fbs.123.mcz ==================== Summary ==================== Name: MonticelloConfigurations-fbs.123 Author: fbs Time: 31 December 2013, 2:11:41.532 pm UUID: b9735d10-7cf4-a746-8a64-b50fa9cf273f Ancestors: MonticelloConfigurations-fbs.122 These preferences used to be in the "updates" category, and that sounds nicer than "Monticello". We should keep things specific to Monticello in "Monticello", and things to do with updating the image in "updates". =============== Diff against MonticelloConfigurations-fbs.122 =============== Item was changed: ----- Method: MCConfiguration class>>upgradeIsMerge (in category 'preferences') ----- upgradeIsMerge "Answer true if you wish to merge upstream changes whenever you upgrade." <preference: 'Upgrade is merge' + category: 'updates' - category: 'Monticello' description: 'When upgrading packages, use merge instead of load' type: #Boolean> ^UpgradeIsMerge ifNil: [true]! Item was changed: ----- Method: MCMcmUpdater class>>defaultUpdateURL (in category 'preferences') ----- defaultUpdateURL "The default update repository URL" <preference: 'Update URL' + category: 'updates' - category: 'Monticello' description: 'The repository URL for loading updates' type: #String> ^DefaultUpdateURL ifNil:['']! Item was changed: ----- Method: MCMcmUpdater class>>updateMissingPackages (in category 'preferences') ----- updateMissingPackages "Whether to update missing (unloaded) packages" <preference: 'Update missing package' + category: 'updates' - category: 'Monticello' description: 'If true, missing (unloaded) packages will be loaded during the update process.' type: #Boolean> ^UpdateMissingPackages ifNil:[true]!

1 0

Re: [squeak-dev] The Inbox: Monticello-fbs.582.mcz
by Frank Shearar 31 Dec '13

31 Dec '13

On 30 December 2013 18:27, <commits(a)source.squeak.org> wrote: > A new version of Monticello was added to project The Inbox: > http://source.squeak.org/inbox/Monticello-fbs.582.mcz > > ==================== Summary ==================== > > Name: Monticello-fbs.582 > Author: fbs > Time: 30 December 2013, 6:26:56.48 pm > UUID: 6845156d-643f-4247-b27f-863116008ff2 > Ancestors: Monticello-fbs.581 > > If you can't find a binding for the class, just return nil, instead of throwing a KeyNotFound error. This matches the old behaviour. > > =============== Diff against Monticello-fbs.581 =============== > > Item was changed: > ----- Method: MCClassDefinition>>actualClass (in category 'accessing') ----- > actualClass > | binding environment | > environment := EnvironmentRequest signal ifNil: [Smalltalk globals]. > + binding := environment bindingOf: name ifAbsent: [^ nil]. > - binding := environment bindingOf: name ifAbsent: [(KeyNotFound key: name) signal]. > ^ binding value.! > > Item was changed: > ----- Method: MCMethodDefinition>>actualClass (in category 'accessing') ----- > actualClass > | actualClass binding environment | > environment := EnvironmentRequest signal ifNil: [Smalltalk globals]. > + binding := environment bindingOf: className ifAbsent: [^ nil]. > - binding := environment bindingOf: className ifAbsent: [(KeyNotFound key: className) signal]. > actualClass := binding value. > ^ classIsMeta > ifTrue: [actualClass classSide] > ifFalse: [actualClass].! |foo| foo := Environment withName: 'Foo'. "Possibly 'Smalltalk globals exportSelf'." foo import: Smalltalk globals. Installer sm update. [Installer sm install: 'Control'] on: EnvironmentRequest do: [:e | e resume: foo]. {Smalltalk globals. foo} collect: [:env | env hasClassNamed: #DelimitedDynamicVariable]. "=> #(false true)" Try it, try it, you will see! frank

1 1

The Trunk: Morphic-fbs.713.mcz
by commits＠source.squeak.org 31 Dec '13

31 Dec '13

Frank Shearar uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-fbs.713.mcz ==================== Summary ==================== Name: Morphic-fbs.713 Author: fbs Time: 31 December 2013, 12:21:54.969 pm UUID: b46eb468-a54f-6548-8411-496814427b3d Ancestors: Morphic-dtl.712 Update #preserveTrash and #slideDismissalsToTrash senders to point to the new, pragma preference, location. Note that this _apparently_ strengthens the Morphic->MorphicExtras dependency. "Apparently", because the dependency was hidden by the fact that the dependency routed through Preferences. Now we're a bit more honest. =============== Diff against Morphic-dtl.712 =============== Item was changed: ----- Method: Morph>>balloonHelpTextForHandle: (in category 'halos and balloon help') ----- balloonHelpTextForHandle: aHandle "Answer a string providing balloon help for the given halo handle" | itsSelector | itsSelector := aHandle eventHandler firstMouseSelector. itsSelector == #doRecolor:with: ifTrue: [^ Preferences propertySheetFromHalo ifTrue: ['Open a property sheet.'] ifFalse: ['Change color']]. itsSelector == #mouseDownInDimissHandle:with: + ifTrue: [^ TrashCanMorph preserveTrash - ifTrue: [^ Preferences preserveTrash ifTrue: ['Move to trash'] ifFalse: ['Remove from screen']]. #(#(#addFullHandles 'More halo handles') #(#addSimpleHandles 'Fewer halo handles') #(#chooseEmphasisOrAlignment 'Emphasis & alignment') #(#chooseFont 'Change font') #(#chooseNewGraphicFromHalo 'Choose a new graphic') #(#chooseStyle 'Change style') #(#dismiss 'Remove') #(#doDebug:with: 'Debug') #(#doDirection:with: 'Choose forward direction') #(#doDup:with: 'Duplicate') #(#doMakeSibling:with: 'Make a sibling') #(#doMenu:with: 'Menu') #(#doGrab:with: 'Pick up') #(#editButtonsScript 'See the script for this button') #(#editDrawing 'Repaint') #(#doDupOrMakeSibling:with: 'Duplicate (press shift to make a sibling)') #(#doMakeSiblingOrDup:with: 'Make a sibling (press shift to make simple duplicate)') #(#makeNascentScript 'Make a scratch script') #(#makeNewDrawingWithin 'Paint new object') #(#mouseDownInCollapseHandle:with: 'Collapse') #(#mouseDownOnHelpHandle: 'Help') #(#openViewerForArgument 'Open a Viewer for me. Press shift for a snapshot.') #(#openViewerForTarget:with: 'Open a Viewer for me. Press shift for a snapshot.') #(#paintBackground 'Paint background') #(#prepareToTrackCenterOfRotation:with: 'Move object or set center of rotation') #(#presentViewMenu 'Present the Viewing menu') #(#startDrag:with: 'Move') #(#startGrow:with: 'Change size') #(#startRot:with: 'Rotate') #(#startScale:with: 'Change scale') #(#tearOffTile 'Make a tile representing this object') #(#tearOffTileForTarget:with: 'Make a tile representing this object') #(#trackCenterOfRotation:with: 'Set center of rotation') ) do: [:pair | itsSelector == pair first ifTrue: [^ pair last]]. ^ 'unknown halo handle'translated! Item was changed: ----- Method: Morph>>dismissViaHalo (in category 'submorphs-add/remove') ----- dismissViaHalo "The user has clicked in the delete halo-handle. This provides a hook in case some concomitant action should be taken, or if the particular morph is not one which should be put in the trash can, for example." | cmd | self setProperty: #lastPosition toValue: self positionInWorld. self dismissMorph. + TrashCanMorph preserveTrash ifTrue: [ + TrashCanMorph slideDismissalsToTrash - Preferences preserveTrash ifTrue: [ - Preferences slideDismissalsToTrash ifTrue:[self slideToTrash: nil] ifFalse:[TrashCanMorph moveToTrash: self]. ]. cmd := Command new cmdWording: 'dismiss ' translated, self externalName. cmd undoTarget: ActiveWorld selector: #reintroduceIntoWorld: argument: self. cmd redoTarget: ActiveWorld selector: #onceAgainDismiss: argument: self. ActiveWorld rememberCommand: cmd! Item was changed: ----- Method: Morph>>slideToTrash: (in category 'dropping/grabbing') ----- slideToTrash: evt "Perhaps slide the receiver across the screen to a trash can and make it disappear into it. In any case, remove the receiver from the screen." | aForm trash startPoint endPoint morphToSlide | ((self renderedMorph == ScrapBook default scrapBook) or: [self renderedMorph isKindOf: TrashCanMorph]) ifTrue: [self dismissMorph. ^ self]. + TrashCanMorph slideDismissalsToTrash ifTrue: - Preferences slideDismissalsToTrash ifTrue: [morphToSlide := self representativeNoTallerThan: 200 norWiderThan: 200 thumbnailHeight: 100. aForm := morphToSlide imageForm offset: (0@0). trash := ActiveWorld findDeepSubmorphThat: [:aMorph | (aMorph isKindOf: TrashCanMorph) and: [aMorph topRendererOrSelf owner == ActiveWorld]] ifAbsent: [trash := TrashCanMorph new. trash position: ActiveWorld bottomLeft - (0 @ (trash extent y + 26)). trash openInWorld. trash]. endPoint := trash fullBoundsInWorld center. startPoint := self topRendererOrSelf fullBoundsInWorld center - (aForm extent // 2)]. self dismissMorph. ActiveWorld displayWorld. + TrashCanMorph slideDismissalsToTrash ifTrue: - Preferences slideDismissalsToTrash ifTrue: [aForm slideFrom: startPoint to: endPoint nSteps: 12 delay: 15]. ScrapBook default addToTrash: self! Item was changed: ----- Method: PasteUpMorph>>onceAgainDismiss: (in category 'undo') ----- onceAgainDismiss: aMorph "Occasioned by a redo of a dismiss-via-halo" aMorph dismissMorph. + TrashCanMorph preserveTrash ifTrue: + [TrashCanMorph slideDismissalsToTrash - Preferences preserveTrash ifTrue: - [Preferences slideDismissalsToTrash ifTrue:[aMorph slideToTrash: nil] + ifFalse:[TrashCanMorph moveToTrash: aMorph]]! - ifFalse:[TrashCanMorph moveToTrash: aMorph]] - !

1 0

The Trunk: System-fbs.652.mcz
by commits＠source.squeak.org 31 Dec '13

31 Dec '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.652.mcz ==================== Summary ==================== Name: System-fbs.652 Author: fbs Time: 31 December 2013, 12:22:45.238 pm UUID: 1296628b-b4f2-9747-b20c-e08843804379 Ancestors: System-fbs.651 Cleanup after turning #preserveTrash and #slideDismissalsToTrash into pragma preferences. =============== Diff against System-fbs.651 =============== Item was removed: - ----- Method: Preferences class>>preserveTrash (in category 'standard queries') ----- - preserveTrash - ^ self - valueOfFlag: #preserveTrash - ifAbsent: [ false ]! Item was removed: - ----- Method: Preferences class>>slideDismissalsToTrash (in category 'standard queries') ----- - slideDismissalsToTrash - ^ self - valueOfFlag: #slideDismissalsToTrash - ifAbsent: [ true ]!

1 0

The Trunk: MorphicExtras-fbs.146.mcz
by commits＠source.squeak.org 31 Dec '13

31 Dec '13

Frank Shearar uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-fbs.146.mcz ==================== Summary ==================== Name: MorphicExtras-fbs.146 Author: fbs Time: 31 December 2013, 12:19:52.384 pm UUID: ae8f7f9f-3edc-8546-b6de-b54e889c225e Ancestors: MorphicExtras-nice.145 * Turn #preserveTrash and #slideDismissalsToTrash into pragma preferences. * Update call sites for same. * Accidentally on purpose alphabetise the categories, while we're mucking around with the package. =============== Diff against MorphicExtras-nice.145 =============== Item was changed: SystemOrganization addCategory: #'MorphicExtras-AdditionalMorphs'! SystemOrganization addCategory: #'MorphicExtras-AdditionalSupport'! SystemOrganization addCategory: #'MorphicExtras-AdditionalWidgets'! SystemOrganization addCategory: #'MorphicExtras-Books'! SystemOrganization addCategory: #'MorphicExtras-Demo'! SystemOrganization addCategory: #'MorphicExtras-EToy-Download'! + SystemOrganization addCategory: #'MorphicExtras-Exceptions'! SystemOrganization addCategory: #'MorphicExtras-Flaps'! SystemOrganization addCategory: #'MorphicExtras-GeeMail'! SystemOrganization addCategory: #'MorphicExtras-Leds'! SystemOrganization addCategory: #'MorphicExtras-Navigators'! SystemOrganization addCategory: #'MorphicExtras-Obsolete'! SystemOrganization addCategory: #'MorphicExtras-Palettes'! SystemOrganization addCategory: #'MorphicExtras-PartsBin'! SystemOrganization addCategory: #'MorphicExtras-Postscript Canvases'! SystemOrganization addCategory: #'MorphicExtras-Postscript Filters'! SystemOrganization addCategory: #'MorphicExtras-Sound'! SystemOrganization addCategory: #'MorphicExtras-SoundInterface'! SystemOrganization addCategory: #'MorphicExtras-SqueakPage'! SystemOrganization addCategory: #'MorphicExtras-Support'! SystemOrganization addCategory: #'MorphicExtras-Text Support'! SystemOrganization addCategory: #'MorphicExtras-Undo'! SystemOrganization addCategory: #'MorphicExtras-Widgets'! - SystemOrganization addCategory: #'MorphicExtras-Exceptions'! Item was changed: ----- Method: ScrapBook>>addToTrash: (in category 'scraps') ----- addToTrash: aMorph "Paste the object onto a page of the system Trash book, unless the preference is set to empty the trash immediately." | aPage | + TrashCanMorph preserveTrash ifFalse: [^ self]. - Preferences preserveTrash ifFalse: [^ self]. aMorph position: book pages first position + (0@40). book pages do: [:pp | (pp submorphs size = 1 and: [pp hasProperty: #trash]) ifTrue: "perhaps remove that property here" ["page is blank" ^ pp addMorph: aMorph]]. aPage := book insertPageLabel: Time dateAndTimeNow printString morphs: (Array with: aMorph). aPage setProperty: #trash toValue: true! Item was changed: ThreePhaseButtonMorph subclass: #TrashCanMorph instanceVariableNames: '' + classVariableNames: 'PreserveTrash SlideDismissalsToTrash TrashPic TrashPicOn' - classVariableNames: 'TrashPic TrashPicOn' poolDictionaries: '' category: 'MorphicExtras-AdditionalWidgets'! Item was changed: ----- Method: TrashCanMorph class>>moveToTrash: (in category 'miscellaneous') ----- moveToTrash: aMorph SoundService soundEnabled ifTrue: + [TrashCanMorph preserveTrash + ifFalse: [self playSoundNamed: 'scratch'] + ifTrue: [self playDeleteSound]]. - [Preferences preserveTrash - ifFalse: - [self playSoundNamed: 'scratch'] - ifTrue: - [self playDeleteSound]]. aMorph delete. aMorph == ScrapBook default scrapBook ifFalse: [ScrapBook default addToTrash: aMorph]! Item was added: + ----- Method: TrashCanMorph class>>preserveTrash (in category 'preferences') ----- + preserveTrash + <preference: 'Preserve trash' category: 'morphic' description: 'If true, morphs dismissed via halo or dragged into the Trash willbe preserved in the TrashCan for possible future retrieval.' type: #Boolean> + ^ PreserveTrash ifNil: [false].! Item was added: + ----- Method: TrashCanMorph class>>preserveTrash: (in category 'preferences') ----- + preserveTrash: aBoolean + PreserveTrash := aBoolean.! Item was added: + ----- Method: TrashCanMorph class>>slideDismissalsToTrash (in category 'preferences') ----- + slideDismissalsToTrash + <preference: 'Slide dismissals to trash' category: 'morphic' description: 'If true, when you dismiss a Morph it will slide to the TrashCan.' type: #Boolean> + ^ SlideDismissalsToTrash ifNil: [false].! Item was added: + ----- Method: TrashCanMorph class>>slideDismissalsToTrash: (in category 'preferences') ----- + slideDismissalsToTrash: aBoolean + SlideDismissalsToTrash := aBoolean.! Item was changed: ----- Method: TrashCanMorph>>acceptDroppingMorph:event: (in category 'layout') ----- acceptDroppingMorph: aMorph event: evt SoundService soundEnabled + ifTrue: [TrashCanMorph preserveTrash - ifTrue: [Preferences preserveTrash ifTrue: [self class playDeleteSound] ifFalse: [self playSoundNamed: 'scratch']]. evt hand visible: true. self state: #off. aMorph delete. aMorph == ScrapBook default scrapBook ifFalse: [ScrapBook default addToTrash: aMorph removeHalo]! Item was changed: + (PackageInfo named: 'MorphicExtras') postscript: 'TrashCanMorph preserveTrash: Preferences preserveTrash. + TrashCanMorph slideDismissalsToTrash: Preferences slideDismissalsToTrash. + + Preferences removePreference: #preserveTrash. + Preferences removePreference: #slideDismissalsToTrash.'! - (PackageInfo named: 'MorphicExtras') postscript: 'Flaps initializeFlapsQuads.'!

1 0

4.6 goals (was Re: [squeak-dev] The new release is hot)
by Frank Shearar 31 Dec '13

31 Dec '13

On 31 December 2013 02:38, tim Rowledge <tim(a)rowledge.org> wrote: > > On 30-12-2013, at 6:10 PM, tim Rowledge <tim(a)rowledge.org> wrote: > >> I just had a moment to look at the to-do list (http://wiki.squeak.org/squeak/6189) to see if there is anything I might be able to quickly solve. > > Also taking a quick look at removing the > • Remove senders of #isThisEverCalled. > > Amongst other things it makes it obvious what an astounding number of redundantly unnecessarily repeated redundant classes we seem to have grown. Just in list-y morph-y things > AlternatePluggableListMorphOfMany > PluggableListMorph > PluggableListMorphByItem > PluggableListMorphPlus > PluggableListMorphByItemPlus > PluggableMessageCategoryListMorph > PluggableMultiColumnListMorph > PluggableMultiColumnListMorphByItem > SimpleHierarchicalListMorph > EToyHierarchicalTextMorph > MorphHierarchyListMorph > MorphHierarchyListMorph > PluggableDropDownListMorph > .. which surely is too many. It would help is more than a couple of them had comments… > > So a proposal for a major target for the next release - get rid of lots of stuff! That's a fine goal to have! Feel free to make sure we don't forget it by updating http://wiki.squeak.org/squeak/6192 :) frank

1 0

Re: [squeak-dev] The Trunk: Collections-fbs.553.mcz
by Chris Muller 31 Dec '13

31 Dec '13

One thing we've been saying is that a small-kernel of a Smalltalk system should be able to expand itself. So, I'm just wondering whether file-in should not be part of Kernel or whether System is destined to be part of that small-kernel Smalltalk system..? On Sat, Dec 28, 2013 at 4:22 PM, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of Collections to project The Trunk: > http://source.squeak.org/trunk/Collections-fbs.553.mcz > > ==================== Summary ==================== > > Name: Collections-fbs.553 > Author: fbs > Time: 28 December 2013, 10:22:03.872 pm > UUID: 30896006-fd4c-fc47-803c-572d1c1779ad > Ancestors: Collections-nice.552 > > Move all of Collections' file in/out logic to System, where the other file in/out logic lives (in System-Object Storage and friends). > > =============== Diff against Collections-nice.552 =============== > > Item was removed: > - ----- Method: Array>>objectForDataStream: (in category 'file in/out') ----- > - objectForDataStream: refStrm > - | dp | > - "I am about to be written on an object file. If I am one of two shared global arrays, write a proxy instead." > - > - self == (TextConstants at: #DefaultTabsArray) ifTrue: [ > - dp := DiskProxy global: #TextConstants selector: #at: args: #(DefaultTabsArray). > - refStrm replace: self with: dp. > - ^ dp]. > - self == (TextConstants at: #DefaultMarginTabsArray) ifTrue: [ > - dp := DiskProxy global: #TextConstants selector: #at: args: #(DefaultMarginTabsArray). > - refStrm replace: self with: dp. > - ^ dp]. > - ^ super objectForDataStream: refStrm! > > Item was removed: > - ----- Method: Association>>objectForDataStream: (in category 'objects from disk') ----- > - objectForDataStream: refStrm > - | dp | > - "I am about to be written on an object file. If I am a known global, write a proxy that will hook up with the same resource in the destination system." > - > - ^ (Smalltalk globals associationAt: key ifAbsent: [nil]) == self > - ifTrue: [dp := DiskProxy global: #Smalltalk selector: #associationOrUndeclaredAt: > - args: (Array with: key). > - refStrm replace: self with: dp. > - dp] > - ifFalse: [self]! > > Item was removed: > - ----- Method: PositionableStream>>backChunk (in category 'fileIn/Out') ----- > - backChunk > - "Answer the contents of the receiver back to the previous terminator character. Doubled terminators indicate an embedded terminator character." > - > - | output character | > - output := WriteStream on: (String new: 1000). > - self back. "oldBack compatibility" > - [ (character := self back) == nil ] whileFalse: [ > - character == $!! ifTrue: [ > - self back == $!! ifFalse: [ > - self skip: 2. "oldBack compatibility" > - ^output contents reversed ] ]. > - output nextPut: character]. > - self skip: 1. "oldBack compatibility" > - ^output contents reversed! > > Item was removed: > - ----- Method: PositionableStream>>basicNextChunk (in category 'fileIn/Out') ----- > - basicNextChunk > - "Answer the contents of the receiver, up to the next terminator character. Doubled terminators indicate an embedded terminator character." > - | terminator out ch | > - terminator := $!!. > - out := WriteStream on: (String new: 1000). > - self skipSeparators. > - [(ch := self next) == nil] whileFalse: [ > - (ch == terminator) ifTrue: [ > - self peek == terminator ifTrue: [ > - self next. "skip doubled terminator" > - ] ifFalse: [ > - ^ out contents "terminator is not doubled; we're done!!" > - ]. > - ]. > - out nextPut: ch. > - ]. > - ^ out contents! > > Item was removed: > - ----- Method: PositionableStream>>checkForPreamble: (in category 'fileIn/Out') ----- > - checkForPreamble: chunk > - ((chunk beginsWith: '"Change Set:') and: [ChangeSet current preambleString == nil]) > - ifTrue: [ChangeSet current preambleString: chunk]. > - ((chunk beginsWith: '"Postscript:') and: [ChangeSet current postscriptString == nil]) > - ifTrue: [ChangeSet current postscriptString: chunk]. > - > - ! > > Item was removed: > - ----- Method: PositionableStream>>command: (in category 'fileIn/Out') ----- > - command: aString > - "Overridden by HtmlFileStream to append commands directly without translation. 4/5/96 tk" > - "We ignore any HTML commands. Do nothing"! > > Item was removed: > - ----- Method: PositionableStream>>copyMethodChunkFrom: (in category 'fileIn/Out') ----- > - copyMethodChunkFrom: aStream > - "Copy the next chunk from aStream (must be different from the receiver)." > - | chunk | > - chunk := aStream nextChunkText. > - chunk runs values size = 1 "Optimize for unembellished text" > - ifTrue: [self nextChunkPut: chunk asString] > - ifFalse: [self nextChunkPutWithStyle: chunk]! > > Item was removed: > - ----- Method: PositionableStream>>copyMethodChunkFrom:at: (in category 'fileIn/Out') ----- > - copyMethodChunkFrom: aStream at: pos > - "Copy the next chunk from aStream (must be different from the receiver)." > - | chunk | > - aStream position: pos. > - chunk := aStream nextChunkText. > - chunk runs values size = 1 "Optimize for unembellished text" > - ifTrue: [self nextChunkPut: chunk asString] > - ifFalse: [self nextChunkPutWithStyle: chunk]! > > Item was removed: > - ----- Method: PositionableStream>>copyPreamble:from:at: (in category 'filein/out') ----- > - copyPreamble: preamble from: aStream at: pos > - "Look for a changeStamp for this method by peeking backward. > - Write a method preamble, with that stamp if found." > - | terminator last50 stamp i | > - terminator := $!!. > - > - "Look back to find stamp in old preamble, such as... > - Polygon methodsFor: 'private' stamp: 'di 6/25/97 21:42' prior: 34957598!! " > - aStream position: pos. > - aStream backChunk. "to beginning of method" > - last50 := aStream backChunk. "to get preamble" > - aStream position: pos. > - stamp := String new. > - (i := last50 > - findLastOccurrenceOfString: 'stamp:' > - startingAt: 1) > 0 ifTrue: > - [ stamp := (last50 > - copyFrom: i + 8 > - to: last50 size) copyUpTo: $' ]. > - > - "Write the new preamble, with old stamp if any." > - self > - cr; > - nextPut: terminator. > - self nextChunkPut: (String streamContents: > - [ :strm | > - strm nextPutAll: preamble. > - stamp size > 0 ifTrue: > - [ strm > - nextPutAll: ' stamp: '; > - print: stamp ] ]). > - self cr! > > Item was removed: > - ----- Method: PositionableStream>>decodeString:andRuns: (in category 'fileIn/Out') ----- > - decodeString: string andRuns: runsRaw > - > - | strm runLength runValues newString index | > - strm := runsRaw readStream. > - (strm peekFor: $( ) ifFalse: [^ nil]. > - runLength := OrderedCollection new. > - [strm skipSeparators. > - strm peekFor: $)] whileFalse: > - [runLength add: (Number readFrom: strm)]. > - > - runValues := OrderedCollection new. > - [strm atEnd not] whileTrue: > - [runValues add: (Number readFrom: strm). > - strm next.]. > - > - newString := WideString new: string size. > - index := 1. > - runLength with: runValues do: [:length :leadingChar | > - index to: index + length - 1 do: [:pos | > - newString at: pos put: (Character leadingChar: leadingChar code: (string at: pos) charCode). > - ]. > - index := index + length. > - ]. > - > - ^ newString. > - ! > > Item was removed: > - ----- Method: PositionableStream>>decodeStyle:version: (in category 'fileIn/Out') ----- > - decodeStyle: runsObjData version: styleVersion > - "Decode the runs array from the ReferenceStream it is stored in." > - "Verify that the class mentioned have the same inst vars as we have now" > - > - | structureInfo | > - styleVersion = RemoteString currentTextAttVersion ifTrue: [ > - "Matches our classes, no need for checking" > - ^ (ReferenceStream on: runsObjData) next]. > - structureInfo := RemoteString structureAt: styleVersion. "or nil" > - "See SmartRefStream instVarInfo: for dfn" > - ^ SmartRefStream read: runsObjData withClasses: structureInfo! > > Item was removed: > - ----- Method: PositionableStream>>fileIn (in category 'fileIn/Out') ----- > - fileIn > - "This is special for reading expressions from text that has been formatted > - with exclamation delimitors. The expressions are read and passed to the > - Compiler. Answer the result of compilation." > - > - ^ self fileInAnnouncing: 'Reading ' , self name! > > Item was removed: > - ----- Method: PositionableStream>>fileInAnnouncing: (in category 'fileIn/Out') ----- > - fileInAnnouncing: announcement > - "This is special for reading expressions from text that has been formatted > - with exclamation delimitors. The expressions are read and passed to the > - Compiler. Answer the result of compilation. Put up a progress report with > - the given announcement as the title." > - > - | val | > - announcement > - displayProgressFrom: 0 > - to: self size > - during: > - [:bar | > - [self atEnd] whileFalse: > - [bar value: self position. > - self skipSeparators. > - > - [ | chunk | > - val := (self peekFor: $!!) > - ifTrue: [(Compiler evaluate: self nextChunk logged: false) scanFrom: self] > - ifFalse: > - [chunk := self nextChunk. > - self checkForPreamble: chunk. > - Compiler evaluate: chunk logged: true]] > - on: InMidstOfFileinNotification > - do: [:ex | ex resume: true]. > - self skipStyleChunk]. > - self close]. > - "Note: The main purpose of this banner is to flush the changes file." > - Smalltalk logChange: '----End fileIn of ' , self name , '----'. > - self flag: #ThisMethodShouldNotBeThere. "sd" > - ^val! > > Item was removed: > - ----- Method: PositionableStream>>fileInFor:announcing: (in category 'fileIn/Out') ----- > - fileInFor: client announcing: announcement > - "This is special for reading expressions from text that has been formatted > - with exclamation delimitors. The expressions are read and passed to the > - Compiler. Answer the result of compilation. Put up a progress report with > - the given announcement as the title. > - Does NOT handle preambles or postscripts specially." > - | val | > - announcement > - displayProgressFrom: 0 > - to: self size > - during: > - [:bar | > - [self atEnd] > - whileFalse: > - [bar value: self position. > - self skipSeparators. > - [ | chunk | > - val := (self peekFor: $!!) ifTrue: [ > - (Compiler evaluate: self nextChunk for: client logged: false) scanFrom: self > - ] ifFalse: [ > - chunk := self nextChunk. > - self checkForPreamble: chunk. > - Compiler evaluate: chunk for: client logged: true ]. > - ] on: InMidstOfFileinNotification > - do: [ :ex | ex resume: true]. > - self atEnd ifFalse: [ self skipStyleChunk ]]. > - self close]. > - "Note: The main purpose of this banner is to flush the changes file." > - Smalltalk logChange: '----End fileIn of ' , self name , '----'. > - ^ val! > > Item was removed: > - ----- Method: PositionableStream>>fileInSilentlyAnnouncing: (in category 'fileIn/Out') ----- > - fileInSilentlyAnnouncing: announcement > - "This is special for reading expressions from text that has been formatted > - with exclamation delimitors. The expressions are read and passed to the > - Compiler. Answer the result of compilation. Put up a progress report with > - the given announcement as the title." > - > - | val chunk | > - [self atEnd] whileFalse: > - [self skipSeparators. > - > - [val := (self peekFor: $!!) > - ifTrue: [(Compiler evaluate: self nextChunk logged: false) scanFrom: self] > - ifFalse: > - [chunk := self nextChunk. > - self checkForPreamble: chunk. > - Compiler evaluate: chunk logged: true]] > - on: InMidstOfFileinNotification > - do: [:ex | ex resume: true]. > - self skipStyleChunk]. > - self close. > - "Note: The main purpose of this banner is to flush the changes file." > - Smalltalk logChange: '----End fileIn of ' , self name , '----'. > - self flag: #ThisMethodShouldNotBeThere. "sd" > - SystemNavigation new allBehaviorsDo: > - [:cl | > - cl > - removeSelectorSimply: #DoIt; > - removeSelectorSimply: #DoItIn:]. > - ^val! > > Item was removed: > - ----- Method: PositionableStream>>header (in category 'fileIn/Out') ----- > - header > - "If the stream requires a standard header, override this message. See HtmlFileStream"! > > Item was removed: > - ----- Method: PositionableStream>>nextChunk (in category 'fileIn/Out') ----- > - nextChunk > - "Answer the contents of the receiver, up to the next terminator character. Doubled terminators indicate an embedded terminator character." > - | terminator out ch | > - terminator := $!!. > - out := WriteStream on: (String new: 1000). > - self skipSeparators. > - [(ch := self next) == nil] whileFalse: [ > - (ch == terminator) ifTrue: [ > - self peek == terminator ifTrue: [ > - self next. "skip doubled terminator" > - ] ifFalse: [ > - ^ self parseLangTagFor: out contents "terminator is not doubled; we're done!!" > - ]. > - ]. > - out nextPut: ch. > - ]. > - ^ self parseLangTagFor: out contents. > - ! > > Item was removed: > - ----- Method: PositionableStream>>nextChunkText (in category 'fileIn/Out') ----- > - nextChunkText > - "Deliver the next chunk as a Text. Decode the following ]style[ chunk if present. Position at start of next real chunk." > - | string runs peek pos | > - "Read the plain text" > - string := self nextChunk. > - > - "Test for ]style[ tag" > - pos := self position. > - peek := self skipSeparatorsAndPeekNext. > - peek = $] ifFalse: [self position: pos. ^ string asText]. "no tag" > - (self upTo: $[) = ']style' ifFalse: [self position: pos. ^ string asText]. "different tag" > - > - "Read and decode the style chunk" > - runs := RunArray scanFrom: self basicNextChunk readStream. > - > - ^ Text basicNew setString: string setRunsChecking: runs. > - ! > > Item was removed: > - ----- Method: PositionableStream>>parseLangTagFor: (in category 'fileIn/Out') ----- > - parseLangTagFor: aString > - > - | string peek runsRaw pos | > - string := aString. > - "Test for ]lang[ tag" > - pos := self position. > - peek := self skipSeparatorsAndPeekNext. > - peek = $] ifFalse: [self position: pos. ^ string]. "no tag" > - (self upTo: $[) = ']lang' ifTrue: [ > - runsRaw := self basicNextChunk. > - string := self decodeString: aString andRuns: runsRaw > - ] ifFalse: [ > - self position: pos > - ]. > - ^ string. > - ! > > Item was changed: > + ----- Method: PositionableStream>>skipSeparators (in category 'positioning') ----- > - ----- Method: PositionableStream>>skipSeparators (in category 'fileIn/Out') ----- > skipSeparators > [self atEnd] > whileFalse: > [self next isSeparator ifFalse: [^ self position: self position-1]]! > > Item was removed: > - ----- Method: PositionableStream>>skipSeparatorsAndPeekNext (in category 'fileIn/Out') ----- > - skipSeparatorsAndPeekNext > - "A special function to make nextChunk fast" > - | peek | > - [self atEnd] > - whileFalse: > - [(peek := self next) isSeparator > - ifFalse: [self position: self position-1. ^ peek]]! > > Item was removed: > - ----- Method: PositionableStream>>skipStyleChunk (in category 'fileIn/Out') ----- > - skipStyleChunk > - "Get to the start of the next chunk that is not a style for the previous chunk" > - > - | pos | > - pos := self position. > - self skipSeparators. > - self peek == $] > - ifTrue: [(self upTo: $[) = ']text' "old -- no longer needed" > - "now positioned past the open bracket" > - ifFalse: [self nextChunk]] "absorb ]style[ and its whole chunk" > - > - ifFalse: [self position: pos] "leave untouched" > - ! > > Item was removed: > - ----- Method: PositionableStream>>trailer (in category 'fileIn/Out') ----- > - trailer > - "If the stream requires a standard trailer, override this message. See HtmlFileStream"! > > Item was removed: > - ----- Method: PositionableStream>>unCommand (in category 'fileIn/Out') ----- > - unCommand > - "If this read stream is at a <, then skip up to just after the next >. For removing html commands." > - | char | > - [self peek = $<] whileTrue: ["begin a block" > - [self atEnd == false and: [self next ~= $>]] whileTrue. > - "absorb characters" > - ]. > - ! > > Item was removed: > - ----- Method: PositionableStream>>verbatim: (in category 'fileIn/Out') ----- > - verbatim: aString > - "Do not attempt to translate the characters. Use to override nextPutAll:" > - ^ self nextPutAll: aString! > > Item was removed: > - ----- Method: ReadWriteStream>>fileInObjectAndCode (in category 'fileIn/Out') ----- > - fileInObjectAndCode > - "This file may contain: > - 1) a fileIn of code > - 2) just an object in SmartReferenceStream format > - 3) both code and an object. > - File it in and return the object. Note that self must be a FileStream or RWBinaryOrTextStream. Maybe ReadWriteStream incorporate RWBinaryOrTextStream?" > - | refStream object | > - self text. > - self peek asciiValue = 4 > - ifTrue: [ "pure object file" > - refStream := SmartRefStream on: self. > - object := refStream nextAndClose] > - ifFalse: [ "objects mixed with a fileIn" > - self fileIn. "reads code and objects, then closes the file" > - object := SmartRefStream scannedObject]. "set by side effect of one of the chunks" > - SmartRefStream scannedObject: nil. "clear scannedObject" > - ^ object! > > Item was removed: > - ----- Method: ReadWriteStream>>fileNameEndsWith: (in category 'fileIn/Out') ----- > - fileNameEndsWith: aString > - "See comment in FileStream fileNameEndsWith:" > - > - ^false! > > Item was removed: > - ----- Method: ReadWriteStream>>fileOutChangeSet:andObject: (in category 'fileIn/Out') ----- > - fileOutChangeSet: aChangeSetOrNil andObject: theObject > - "Write a file that has both the source code for the named class and an object as bits. Any instance-specific object will get its class written automatically." > - > - "An experimental version to fileout a changeSet first so that a project can contain its own classes" > - > - > - self setFileTypeToObject. > - "Type and Creator not to be text, so can attach correctly to an email msg" > - self header; timeStamp. > - > - aChangeSetOrNil ifNotNil: [ > - aChangeSetOrNil fileOutPreambleOn: self. > - aChangeSetOrNil fileOutOn: self. > - aChangeSetOrNil fileOutPostscriptOn: self. > - ]. > - self trailer. "Does nothing for normal files. HTML streams will have trouble with object data" > - > - "Append the object's raw data" > - (SmartRefStream on: self) > - nextPut: theObject; "and all subobjects" > - close. "also closes me" > - ! > > Item was removed: > - ----- Method: ReadWriteStream>>fileOutChanges (in category 'fileIn/Out') ----- > - fileOutChanges > - "Append to the receiver a description of all class changes." > - Cursor write showWhile: > - [self header; timeStamp. > - ChangeSet current fileOutOn: self. > - self trailer; close]! > > Item was removed: > - ----- Method: ReadWriteStream>>fileOutClass:andObject: (in category 'fileIn/Out') ----- > - fileOutClass: extraClass andObject: theObject > - "Write a file that has both the source code for the named class and an object as bits. Any instance-specific object will get its class written automatically." > - > - | class srefStream | > - self setFileTypeToObject. > - "Type and Creator not to be text, so can attach correctly to an email msg" > - self text. > - self header; timeStamp. > - > - extraClass ifNotNil: [ > - class := extraClass. "A specific class the user wants written" > - class sharedPools size > 0 ifTrue: > - [class shouldFileOutPools > - ifTrue: [class fileOutSharedPoolsOn: self]]. > - class fileOutOn: self moveSource: false toFile: 0]. > - self trailer. "Does nothing for normal files. HTML streams will have trouble with object data" > - self binary. > - > - "Append the object's raw data" > - srefStream := SmartRefStream on: self. > - srefStream nextPut: theObject. "and all subobjects" > - srefStream close. "also closes me" > - ! > > Item was removed: > - ----- Method: ReadWriteStream>>fileOutClass:andObject:blocking: (in category 'fileIn/Out') ----- > - fileOutClass: extraClass andObject: theObject blocking: anIdentDict > - "Write a file that has both the source code for the named class and an object as bits. Any instance-specific object will get its class written automatically. Accept a list of objects to map to nil or some other object (blockers). In addition to teh choices in each class's objectToStoreOnDataStream" > - > - | class srefStream | > - self setFileTypeToObject. > - "Type and Creator not to be text, so can attach correctly to an email msg" > - self header; timeStamp. > - > - extraClass ifNotNil: [ > - class := extraClass. "A specific class the user wants written" > - class sharedPools size > 0 ifTrue: > - [class shouldFileOutPools > - ifTrue: [class fileOutSharedPoolsOn: self]]. > - class fileOutOn: self moveSource: false toFile: 0]. > - self trailer. "Does nothing for normal files. HTML streams will have trouble with object data" > - > - "Append the object's raw data" > - srefStream := SmartRefStream on: self. > - srefStream blockers: anIdentDict. > - srefStream nextPut: theObject. "and all subobjects" > - srefStream close. "also closes me" > - ! > > Item was removed: > - ----- Method: SmartRefStream>>abstractStringx0 (in category '*Collections-Strings-conversion') ----- > - abstractStringx0 > - > - ^ String! > > Item was removed: > - ----- Method: SmartRefStream>>multiStringx0 (in category '*Collections-Strings-conversion') ----- > - multiStringx0 > - > - ^ WideString! > > Item was removed: > - ----- Method: SmartRefStream>>multiSymbolx0 (in category '*Collections-Strings-conversion') ----- > - multiSymbolx0 > - > - ^ WideSymbol! > >

5 6

Re: [squeak-dev] PopUpChoiceMorph Candidate for Extinction?
by JohnReed Maffeo 31 Dec '13

31 Dec '13

> ----- Original Message ----- > From: David T. Lewis > Sent: 12/30/13 04:13 PM > To: The general-purpose Squeak developers list > Subject: Re: [squeak-dev] PopUpChoiceMorph Candidate for Extinction? > > On Mon, Dec 30, 2013 at 02:31:09PM -0500, JohnReed Maffeo wrote: > > #PopUpChoiceMorph looked like the logical choice for me to use in an application I am building. When I went to learn how to use it, I used World - newMorph - from alphabetical list - P-R and selected PopUpChoiceMorph. When I selected a color from the list, I got "Error: Instances of Set are not indexable". This is a bug caused by #initalize being used to create a usable example for newMorph and getting a set rather that and array returned from its target (#Color) > > > > Color class>>colorNames used to answer an OrderedCollection, but now it > answers a Set. I updated PopUpChoiceMorph>>mouseDown: to convert it to > the expected ordered collection. > > > As I researched the problem, I found that the method is only used in two classes: EnvelopeEditorMorph and ScorePlayerMorph. This makes me think that it maybe a candidate for extinction or it may be a good Morphic solution that is not used very much. > > > > The popup menu (a PluggableSystemWindow)that is presented when performing a findClass from the System Browser category pane looks (and performs?) similar to PopUpChoiceMorph, so my question is, should I use one over the other? > > > > The dialog that you see in the browser is a ListChooser. This is part of > the ToolBuilder framework. I cannot say which is the best to use. Using > ToolBuilder is generally a good thing, but you may find it simpler to use > PopUpChoiceMorph if you expect your application to always run in Morphic. > > Dave Thanks, I guess there is no "best". I spent several hours today trying to figure out how to use the class in my app. It was not obvious where it was used in #EnvelopeEditorMorph, but I eventually saw it. It was hiding in a plain text field in the same font as several other dispaly only Morphs in the display space. Since ToolBuilder is so widely used, I think I will take a look at it. (I am after all trying to build a tool;) I am not tied to Morphic, I just want to get something that works. johnreed

1 0

PopUpChoiceMorph Candidate for Extinction?
by JohnReed Maffeo 31 Dec '13

31 Dec '13

#PopUpChoiceMorph looked like the logical choice for me to use in an application I am building. When I went to learn how to use it, I used World - newMorph - from alphabetical list - P-R and selected PopUpChoiceMorph. When I selected a color from the list, I got "Error: Instances of Set are not indexable". This is a bug caused by #initalize being used to create a usable example for newMorph and getting a set rather that and array returned from its target (#Color) As I researched the problem, I found that the method is only used in two classes: EnvelopeEditorMorph and ScorePlayerMorph. This makes me think that it maybe a candidate for extinction or it may be a good Morphic solution that is not used very much. The popup menu (a PluggableSystemWindow)that is presented when performing a findClass from the System Browser category pane looks (and performs?) similar to PopUpChoiceMorph, so my question is, should I use one over the other? jrm

3 2

Daily Commit Log
by commits＠source.squeak.org 31 Dec '13

31 Dec '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-December/006832.h… Name: Collections-fbs.555 Ancestors: Collections-fbs.554 Move Transcripter out of Collections to a new home, in System-Recovery. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006833.h… Name: System-fbs.650 Ancestors: System-fbs.649 System-Recovery contains all the tools we use to attempt to recover from very bad state. At the moment it only contains the Transcripter, also known as the emergency evaluator. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006834.h… Name: Kernel-fbs.827 Ancestors: Kernel-nice.826 Move Transcripter's invoker to System-Recovery. All #primitiveError: senders are in Tools, so this completes the move of recovery things to System-Recovery. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006835.h… Name: System-fbs.651 Ancestors: System-fbs.650 Move Transcripter's invoker to System-Recovery. All #primitiveError: senders are in Tools, so this completes the move of recovery things to System-Recovery. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006836.h… Name: Morphic-dtl.712 Ancestors: Morphic-fbs.711 PopUpChoiceMorph expects colorNames to be an ordered collection, not a set. Convert to ordered collection in PopUpChoiceMorph>>mouseDown: =============================================

1 0

← Newer
1
2
3
4
5
6
7
...
33
Older →

Jump to page: