#OTHER by cg
big refactoring:
replaced all flyByHelpXXX sends and implementations
by helpXXX. This should remove the confusion on where
the tooltips should be stored and which methods need
to be redefined.
ATTENTION:
May introduce temporary inconveniences until all
other applications (in exept:xxx packages) are changed.
--- a/UIPainter.st Tue Jan 16 22:14:01 2018 +0100
+++ b/UIPainter.st Tue Jan 16 22:14:05 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1995-1998 by eXept Software AG
All Rights Reserved
@@ -149,52 +151,6 @@
!UIPainter class methodsFor:'help specs'!
-flyByHelpSpec
- <resource: #help>
-
- ^super flyByHelpSpec
- addPairsFrom:#(
-
-#fileSave
-'Save Spec'
-
-shadesOfRed
-'Red color tones'
-
-shadesOfGreen
-'Green color tones'
-
-shadesOfBlue
-'Blue color tones'
-
-shadesOfCyan
-'Cyan color tones'
-
-shadesOfMagenta
-'Magenta color tones'
-
-shadesOfYellow
-'Yellow color tones'
-
-shadesOfGray
-'Gray color tones'
-
-openColorEditor
-'Open a color editor'
-
-pickColorFromScreen
-'Pick a color from the screen'
-
-recentlyUsedColors
-'Pick a recently used color'
-
-useDefaultColorToggle
-'Toggle between default and explicit color'
-
-);
- declareAllFrom:self helpSpec
-!
-
helpSpec
"This resource specification was automatically generated
by the UIHelpTool of ST/X."
@@ -430,7 +386,7 @@
'Cyan color tones'
#shadesOfGray
-'Gray color tones'
+'Gray color tones (not 50 shades)'
#shadesOfGreen
'Green color tones'
@@ -445,7 +401,7 @@
'Yellow color tones'
#showGrid
-'Raster zeigen'
+'Show the grid'
#sortItems
'Sort the selected items by position (left to right, top to bottom)'
@@ -480,7 +436,6 @@
#concreteFontsSize
'Choose a font size (in points, not pixels)'
-
)
! !
@@ -4146,12 +4101,12 @@
^ specification helpSpec at:aKey ifAbsent:nil
!
-flyByHelpSpec
+helpSpec
|spec painter|
painter := self painter.
- spec := self class flyByHelpSpec.
+ spec := self class helpSpec.
spec at:#editUndo put:(resources string:'Undo (%1)'
with:(resources string:painter undoHistory labelOfLastUndo)).
@@ -4168,15 +4123,6 @@
(spec at:#changePositionUp) with:painter nPixelsForMoveSelection).
^ spec
-!
-
-helpSpec
- |spec|
-
- spec := self class helpSpec.
- spec at:#editUndo put:(resources string:'Undo (%1)'
- with:(resources string:self painter undoHistory labelOfLastUndo)).
- ^ spec
! !
!UIPainter methodsFor:'initialization'!