#OTHER by cg draft
authorClaus Gittinger <cg@exept.de>
Tue, 16 Jan 2018 22:14:05 +0100
changeset 3518 0a2d22e2e0e4
parent 3517 e7224542f1a3
child 3519 4fbc55af0d28
#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.
UIPainter.st
--- 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'!