checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 29 Oct 1997 17:06:03 +0100
changeset 358 5df60cd45881
parent 357 076b7eb71bcf
child 359 6193ef5b6e74
checkin from browser
UIPainter.st
--- a/UIPainter.st	Wed Oct 29 08:41:13 1997 +0100
+++ b/UIPainter.st	Wed Oct 29 17:06:03 1997 +0100
@@ -109,6 +109,8 @@
     UIHelpTool openOnClass:UIPainter    
     "
 
+    <resource: #help>
+
   ^ super helpSpec addPairsFrom:#(
 
 #moveSelectionLeft
@@ -211,6 +213,8 @@
 'set selected widgets to their default height'
 
 )
+
+    "Modified: / 29.10.1997 / 03:19:58 / cg"
 ! !
 
 !UIPainter class methodsFor:'helpers'!
@@ -263,67 +267,106 @@
 iconAlignB
     "returns image assigned to align bottom
     "
+
+    <resource: #fileImage>
+
     ^ Image fromFile:'b_alignB.xbm'
 
+    "Modified: / 29.10.1997 / 03:18:16 / cg"
 !
 
 iconAlignCenterH
     "returns image assigned to center horizontal
     "
+
+    <resource: #fileImage>
+
     ^ Image fromFile:'b_alignCH.xbm'
 
+    "Modified: / 29.10.1997 / 03:18:34 / cg"
 !
 
 iconAlignCenterV
     "returns image assigned to center vertical
     "
+
+    <resource: #fileImage>
+
     ^ Image fromFile:'b_alignCV.xbm'
 
+    "Modified: / 29.10.1997 / 03:18:39 / cg"
 !
 
 iconAlignL
     "returns image assigned to align left
     "
+
+    <resource: #fileImage>
+
     ^ Image fromFile:'b_alignL.xbm'
+
+    "Modified: / 29.10.1997 / 03:18:43 / cg"
 !
 
 iconAlignLR
     "returns image assigned to align left and right
     "
+
+    <resource: #fileImage>
+
     ^ Image fromFile:'b_alignLR.xbm'
 
+    "Modified: / 29.10.1997 / 03:18:48 / cg"
 !
 
 iconAlignR
     "returns image assigned to align right
     "
+
+    <resource: #fileImage>
+
     ^ Image fromFile:'b_alignR.xbm'
 
+    "Modified: / 29.10.1997 / 03:18:51 / cg"
 !
 
 iconAlignT
     "returns image assigned to align top
     "
+
+    <resource: #fileImage>
+
     ^ Image fromFile:'b_alignT.xbm'
 
+    "Modified: / 29.10.1997 / 03:18:56 / cg"
 !
 
 iconAlignTB
     "returns image assigned to align top and bottom
     "
+
+    <resource: #fileImage>
+
     ^ Image fromFile:'b_alignTB.xbm'
 
+    "Modified: / 29.10.1997 / 03:19:01 / cg"
 !
 
 iconInstall
+
+    <resource: #fileImage>
+
     ^ Image fromFile:'bitmaps/xpmBitmaps/misc_tools/SaveButton.xpm'
 
-    "Modified: 23.10.1997 / 06:00:28 / cg"
+    "Modified: / 29.10.1997 / 03:19:06 / cg"
 !
 
 iconStepDown
     "returns image assigned to step down (change hierarchy).
     "
+
+    <resource: #fileImage>
+
     IconStepDown isNil ifTrue:[
         IconStepDown := ((Image fromFile:'stepOver.xpm') rotated:90) flipHorizontal
     ].
@@ -333,30 +376,43 @@
 IconStepDown := nil
 "
 
+    "Modified: / 29.10.1997 / 03:19:14 / cg"
 !
 
 iconStepIn
     "returns image assigned to step in (change hierarchy).
     "
+
+    <resource: #fileImage>
+
     IconStepIn isNil ifTrue:[
         IconStepIn := ((Image fromFile:'stepIn.xpm') rotated:90) flipHorizontal
     ].
   ^ IconStepIn
 
+    "Modified: / 29.10.1997 / 03:19:19 / cg"
 !
 
 iconStepOut
     "returns image assigned to step out (change hierarchy).
     "
+
+    <resource: #fileImage>
+
     IconStepOut isNil ifTrue:[
         IconStepOut := ((Image fromFile:'stepOut.xpm') rotated:90) flipHorizontal
     ].
   ^ IconStepOut
+
+    "Modified: / 29.10.1997 / 03:19:25 / cg"
 !
 
 iconStepUp
     "returns image assigned to step up (change hierarchy).
     "
+
+    <resource: #fileImage>
+
     IconStepUp isNil ifTrue:[
         IconStepUp := ((Image fromFile:'stepOver.xpm') rotated:90) flipHorizontal flipVertical
     ].
@@ -365,6 +421,8 @@
 "
 IconStepUp := nil
 "
+
+    "Modified: / 29.10.1997 / 03:19:29 / cg"
 ! !
 
 !UIPainter class methodsFor:'interface specs'!
@@ -2639,6 +2697,8 @@
 !
 
 imageEmptyParent
+    <resource: #fileImage>
+
 
     ImageEmptyParent isNil ifTrue:[
         ImageEmptyParent := Image fromFile:('xpmBitmaps/document_images/tiny_dir.xpm').
@@ -2648,9 +2708,13 @@
     "
     ImageEmptyParent := nil
     "
+
+    "Modified: / 29.10.1997 / 03:36:37 / cg"
 !
 
 imageMasterChild
+    <resource: #fileImage>
+
 
     ImageMasterChild isNil ifTrue:[
         ImageMasterChild := Image fromFile:('xpmBitmaps/document_images/tiny_file_plain_gray.xpm').
@@ -2661,10 +2725,12 @@
     ImageMasterChild := nil
     "
 
-    "Modified: 28.7.1997 / 11:55:22 / cg"
+    "Modified: / 29.10.1997 / 03:36:42 / cg"
 !
 
 imageMasterParent
+    <resource: #fileImage>
+
 
     ImageMasterParent isNil ifTrue:[
         ImageMasterParent := Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir_gray.xpm').
@@ -2675,7 +2741,7 @@
     ImageMasterParent := nil
     "
 
-    "Modified: 28.7.1997 / 11:56:29 / cg"
+    "Modified: / 29.10.1997 / 03:36:47 / cg"
 ! !
 
 !UIPainter::TreeView class methodsFor:'documentation'!