Packages December 2013

packages@lists.squeakfoundation.org

1 participants
477 discussions

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: System-fbs.652.mcz
by commits＠source.squeak.org 31 Dec '13

31 Dec '13

1 0

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

31 Dec '13

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

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

31 Dec '13

1 0

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

31 Dec '13

1 0

The Trunk: Morphic-dtl.712.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.712.mcz ==================== Summary ==================== Name: Morphic-dtl.712 Author: dtl Time: 30 December 2013, 5:56:14.68 pm UUID: 89555215-bebc-4449-a0cb-30aea1c5c00f Ancestors: Morphic-fbs.711 PopUpChoiceMorph expects colorNames to be an ordered collection, not a set. Convert to ordered collection in PopUpChoiceMorph>>mouseDown: =============== Diff against Morphic-fbs.711 =============== Item was changed: ----- Method: PopUpChoiceMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt | items selectedItem | (target isNil or: [getItemsSelector isNil]) ifTrue: [^self]. + items := ((target perform: getItemsSelector withArguments: getItemsArgs) + ifNil: [#()]) asOrderedCollection. - items := target perform: getItemsSelector withArguments: getItemsArgs. selectedItem := UIManager default chooseFrom: items values: items. selectedItem ifNil: [^self]. self contentsClipped: selectedItem. "Client can override this if necess" actionSelector ifNotNil: [target perform: actionSelector withArguments: (arguments copyWith: selectedItem)]!

1 0

The Trunk: Morphic-dtl.712.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

1 0

The Trunk: Morphic-dtl.712.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2013