hg/stx-libtool2: comparison UIPainter.st

equal deleted inserted replaced

-:af9fd0c681e0
+:16b714603368
+"{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 1995-1998 by eXept Software AG
 All Rights Reserved
 This software is furnished under a license and may be used
 other person.  No title to or ownership of the software is
 hereby transferred.
 "
 "{ Package: 'stx:libtool2' }"
+"{ NameSpace: Smalltalk }"
 ResourceSpecEditor subclass:#UIPainter
 	instanceVariableNames:'specSuperclassName treeView selectionPanel specTool layoutTool
 		helpTool painterView painter lastPort lastPage'
 	classVariableNames:'SelectionPanelClass UseViewScroller LastPort LastPage
 		DefaultEditToolBarVisible DefaultToolBarVisible'
 #centerSelectionVer
 'Centers the selected widgets vertically within their containing widget'
 #changePositionDown
-'Moves the selected widget(s) towards the bottom'
+'Moves the selected widget(s) towards the bottom (by %1 pixels)'
 #changePositionLeft
-'Moves the selected widget(s) towards the left'
+'Moves the selected widget(s) towards the left (by %1 pixels)'
 #changePositionRight
-'Moves the selected widget(s) towards the right'
+'Moves the selected widget(s) towards the right (by %1 pixels)'
 #changePositionUp
-'Moves the selected widget(s) towards the top'
+'Moves the selected widget(s) towards the top (by %1 pixels)'
+#'changeMoveDelta'
+'Click to change the delta by which the buttons to the left move the selected widget(s)'
 #drawEdit
 ''
 #editBrowseViewClass
 ^ ToolbarIconLibrary startUIPainterIcon
 "Created: / 10-02-2007 / 14:45:56 / cg"
 "Modified: / 17-09-2007 / 11:36:33 / cg"
+!
+delta
+"This resource specification was automatically generated
+by the ImageEditor of ST/X."
+"Do not manually edit this!! If it is corrupted,
+the ImageEditor may not be able to read the specification."
+"
+self delta inspect
+ImageEditor openOnClass:self andSelector:#delta
+Icon flushCachedIcons
+"
+<resource: #image>
+^Icon
+constantNamed:'UIPainter delta'
+ifAbsentPut:[(Depth1Image new) width:11; height:11; bits:(ByteArray fromPackedString:'?>C?8O? >>C@XLA 0VB;(H@ ?"C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width:11; height:11; bits:(ByteArray fromPackedString:'
+@@@@@@@@A@@J@AD@HHA@PG?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
 !
 editTableIcon
 <resource: #programImage>
 by the MenuEditor of ST/X."
 "Do not manually edit this!! If it is corrupted,
 the MenuEditor may not be able to read the specification."
 "
 MenuEditor new openOnClass:UIPainter andSelector:#menuToolbar2
 (Menu new fromLiteralArrayEncoding:(UIPainter menuToolbar2)) startUp
 "
 (MenuItem
 activeHelpKey: alignSelectionLeft
 enabled: canMoveOrAlignSelection
 label: 'Align Left'
 itemValue: alignSelectionLeft
-translateLabel: true
 isButton: true
 labelImage: (ResourceRetriever nil iconAlignL)
 )
 (MenuItem
 activeHelpKey: alignSelectionRight
 enabled: canMoveOrAlignSelection
 label: 'Align Right'
 itemValue: alignSelectionRight
-translateLabel: true
 isButton: true
 labelImage: (ResourceRetriever nil iconAlignR)
 )
 (MenuItem
 activeHelpKey: alignSelectionTop
 enabled: canMoveOrAlignSelection
 label: 'Align Top'
 itemValue: alignSelectionTop
-translateLabel: true
 isButton: true
 labelImage: (ResourceRetriever nil iconAlignT)
 )
 (MenuItem
 activeHelpKey: alignSelectionBottom
 enabled: canMoveOrAlignSelection
 label: 'Align Bottom'
 itemValue: alignSelectionBottom
-translateLabel: true
 isButton: true
 labelImage: (ResourceRetriever nil iconAlignB)
 )
 (MenuItem
 activeHelpKey: alignSelectionLeftAndRight
 enabled: canResizeSelection
 label: 'Align Left & Right'
 itemValue: alignSelectionLeftAndRight
-translateLabel: true
 isButton: true
 labelImage: (ResourceRetriever nil iconResizeLR)
 )
 (MenuItem
 activeHelpKey: alignSelectionTopAndBottom
 enabled: canResizeSelection
 label: 'Align Top & Bottom'
 itemValue: alignSelectionTopAndBottom
-translateLabel: true
 isButton: true
 labelImage: (ResourceRetriever nil iconResizeTB)
 )
 (MenuItem
 label: ''
 (MenuItem
 activeHelpKey: changePositionLeft
 enabled: canMoveOrAlignSelection
 label: 'Move Left'
 itemValue: moveSelectionLeft
-translateLabel: true
 isButton: true
 hideMenuOnActivated: false
 triggerOnDown: true
 labelImage: (ResourceRetriever nil arrowLeft)
 )
 (MenuItem
 activeHelpKey: changePositionRight
 enabled: canMoveOrAlignSelection
 label: 'Move Right'
 itemValue: moveSelectionRight
-translateLabel: true
 isButton: true
 hideMenuOnActivated: false
 triggerOnDown: true
 labelImage: (ResourceRetriever nil arrowRight)
 )
 (MenuItem
 activeHelpKey: changePositionUp
 enabled: canMoveOrAlignSelection
 label: 'Move Up'
 itemValue: moveSelectionUp
-translateLabel: true
 isButton: true
 hideMenuOnActivated: false
 triggerOnDown: true
 labelImage: (ResourceRetriever nil arrowUp)
 )
 (MenuItem
 activeHelpKey: changePositionDown
 enabled: canMoveOrAlignSelection
 label: 'Move Down'
 itemValue: moveSelectionDown
-translateLabel: true
 isButton: true
 hideMenuOnActivated: false
 triggerOnDown: true
 labelImage: (ResourceRetriever nil arrowDown)
 )
 (MenuItem
+activeHelpKey: changeMoveDelta
+label: 'Move by'
+nameKey: MoveByMenu
+isButton: true
+submenu:
+(Menu
+(
+(MenuItem
+label: '1'
+itemValue: setMoveByStep:
+argument: 1
+)
+(MenuItem
+label: '5'
+itemValue: setMoveByStep:
+argument: 5
+)
+(MenuItem
+label: '10'
+itemValue: setMoveByStep:
+argument: 10
+)
+(MenuItem
+label: '24'
+itemValue: setMoveByStep:
+argument: 24
+)
+(MenuItem
+label: '30'
+itemValue: setMoveByStep:
+argument: 30
+)
+(MenuItem
+label: '100'
+itemValue: setMoveByStep:
+argument: 100
+)
+(MenuItem
+label: '-'
+)
+(MenuItem
+label: 'Enter Value...'
+itemValue: askForMoveByStep
+)
+)
+nil
+nil
+)
+labelImage: (ResourceRetriever UIPainter delta)
+)
+(MenuItem
 activeHelpKey: editOpenSpecDocumentation
 label: 'Widget Documentation'
 itemValue: doOpenWidgetDocumentation
-translateLabel: true
 isButton: true
 startGroup: right
 labelImage: (ResourceRetriever Icon helpIcon)
 )
 )
 nil
 nil
 )
-"Modified: / 18-07-2011 / 17:25:31 / cg"
 !
 moveInListMenuSlice
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 ^ specification helpSpec at:aKey ifAbsent:nil
 !
 flyByHelpSpec
-|spec|
+|spec painter|
+painter := self painter.
 spec := self class flyByHelpSpec.
 spec at:#editUndo put:(resources string:'Undo (%1)'
-with:(resources string:self painter undoHistory labelOfLastUndo)).
+with:(resources string:painter undoHistory labelOfLastUndo)).
+spec at:#changePositionDown put:(resources string:
+(spec at:#changePositionDown) with:painter nPixelsForMoveSelection).
+spec at:#changePositionLeft put:(resources string:
+(spec at:#changePositionLeft) with:painter nPixelsForMoveSelection).
+spec at:#changePositionRight put:(resources string:
+(spec at:#changePositionRight) with:painter nPixelsForMoveSelection).
+spec at:#changePositionUp put:(resources string:
+(spec at:#changePositionUp) with:painter nPixelsForMoveSelection).
 ^ spec
 !
 helpSpec
 |spec|
 ]
 "Modified: / 05-09-2006 / 18:37:12 / cg"
 !
+askForMoveByStep
+"open a dialog to ask for a number"
+|s nPixels|
+s := Dialog request:'Number of Pixels to Move: '
+initialAnswer:painter nPixelsForMoveSelection asString.
+s isEmptyOrNil ifTrue:[^ self].
+nPixels := Integer readFrom:s onError:nil.
+nPixels isNil ifTrue:[^ self].
+self painter nPixelsForMoveSelection:nPixels
+!
 cancel
 "cancels all modifications done to the attributes of the current section;
 reread the old attributes"
 |spec key view|
 self painter replaceSelectionBy:newSpec.
 "Modified: / 05-09-2012 / 19:24:40 / cg"
 !
+setMoveByStep:nPixels
+"change the number of pixels by which the step-buttons move the selected widget(s)"
+self painter nPixelsForMoveSelection:nPixels
+!
 specClassFromUsersSpecOrWidgetClass:aSpecOrWidgetClass
 |newSpecClass|
 (aSpecOrWidgetClass isSubclassOf:UISpecification) ifTrue:[
 newSpecClass := aSpecOrWidgetClass.

changeset 3218	16b714603368
parent 3155	4e93da30717e
child 3222	85db156be933