Collecting actions for RC2
Serge Stinckwich
Serge.Stinckwich at info.unicaen.fr
Fri Oct 6 06:58:35 UTC 2006
Frank Caggiano a écrit :
> You may want to consider mantis #5163. Right now in 3.9 the duplicate
> halo's balloon help text is missing. The entry for that halo was
> somehow removed in 3.9.
I wrote a fix for that when the list was broken.
Please find it included.
-- oooo
Dr. Serge Stinckwich OOOOOOOO
Université de Caen>CNRS UMR 6072>GREYC>MAD OOESUGOO
http://purl.org/net/SergeStinckwich oooooo
Smalltalkers do: [:it | All with: Class, (And love: it)] \ /
##
-------------- next part --------------
'From Squeak3.9gamma of ''23 July 2006'' [latest update: #7061] on 28 September 2006 at 6:56:28 pm'!
!Morph methodsFor: 'halos and balloon help' stamp: 'zz 9/28/2006 18:53'!
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: [^ 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! !
More information about the Squeak-dev
mailing list
|