Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 28 Oct 1997 21:02:12 +0100
changeset 1364 6610f90eea47
parent 1363 edac22036bf7
child 1365 aa6a855b5013
*** empty log message ***
ArrButton.st file | annotate | diff | comparison | revisions
ArrowButton.st file | annotate | diff | comparison | revisions
FramedBox.st file | annotate | diff | comparison | revisions 
--- a/ArrButton.st	Tue Oct 28 20:59:48 1997 +0100
+++ b/ArrButton.st	Tue Oct 28 21:02:12 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 2:08:27 pm'                  !
-
 Button subclass:#ArrowButton
 	instanceVariableNames:'arrowStyle direction'
 	classVariableNames:'DownArrowForm UpArrowForm LeftArrowForm RightArrowForm
@@ -333,7 +331,7 @@
 downArrowButtonForm:styleSymbol on:aDevice
     "return the form used for the scrollDown Button"
 
-    <resource: #style (#arrowButtonDownForm)>
+    <resource: #style (#'arrowButton.downForm')>
 
     |form|
 
@@ -348,7 +346,7 @@
         ^ form
     ].
 
-    form := DownArrowForm := StyleSheet at:'arrowButtonDownForm' default:nil.
+    form := DownArrowForm := StyleSheet at:'arrowButton.downForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -398,13 +396,13 @@
 
     ^ form
 
-    "Modified: 17.1.1997 / 23:15:17 / cg"
+    "Modified: / 26.10.1997 / 17:01:54 / cg"
 !
 
 leftArrowButtonForm:styleSymbol on:aDevice
     "return the form used for the scrollLeft Button"
 
-    <resource: #style (#arrowButtonLeftForm)>
+    <resource: #style (#'arrowButton.leftForm')>
 
     |form|
 
@@ -419,7 +417,7 @@
         ^ form
     ].
 
-    form := LeftArrowForm := StyleSheet at:'arrowButtonLeftForm' default:nil.
+    form := LeftArrowForm := StyleSheet at:'arrowButton.leftForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -469,13 +467,13 @@
 
     ^ form
 
-    "Modified: 17.1.1997 / 23:15:14 / cg"
+    "Modified: / 26.10.1997 / 17:01:47 / cg"
 !
 
 rightArrowButtonForm:styleSymbol on:aDevice
     "return the form used for the scrollRight Button"
 
-    <resource: #style (#arrowButtonRightForm)>
+    <resource: #style (#'arrowButton.rightForm')>
 
     |form|
 
@@ -490,7 +488,7 @@
         ^ form
     ].
 
-    form := RightArrowForm := StyleSheet at:'arrowButtonRightForm' default:nil.
+    form := RightArrowForm := StyleSheet at:'arrowButton.rightForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -540,13 +538,13 @@
 
     ^ form
 
-    "Modified: 17.1.1997 / 23:15:20 / cg"
+    "Modified: / 26.10.1997 / 17:01:40 / cg"
 !
 
 upArrowButtonForm:styleSymbol on:aDevice
     "return the form used for the scrollUp Button"
 
-    <resource: #style (#arrowButtonUpForm)>
+    <resource: #style (#'arrowButton.upForm')>
 
     |form|
 
@@ -561,7 +559,7 @@
         ^ form
     ].
 
-    form := UpArrowForm := StyleSheet at:'arrowButtonUpForm' default:nil.
+    form := UpArrowForm := StyleSheet at:'arrowButton.upForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -611,7 +609,7 @@
 
     ^ form
 
-    "Modified: 10.1.1997 / 15:15:20 / cg"
+    "Modified: / 26.10.1997 / 17:01:32 / cg"
 !
 
 updateStyleCache
@@ -870,5 +868,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.45 1997-10-21 18:27:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.46 1997-10-28 20:01:27 cg Exp $'
 ! !
--- a/ArrowButton.st	Tue Oct 28 20:59:48 1997 +0100
+++ b/ArrowButton.st	Tue Oct 28 21:02:12 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 2:08:27 pm'                  !
-
 Button subclass:#ArrowButton
 	instanceVariableNames:'arrowStyle direction'
 	classVariableNames:'DownArrowForm UpArrowForm LeftArrowForm RightArrowForm
@@ -333,7 +331,7 @@
 downArrowButtonForm:styleSymbol on:aDevice
     "return the form used for the scrollDown Button"
 
-    <resource: #style (#arrowButtonDownForm)>
+    <resource: #style (#'arrowButton.downForm')>
 
     |form|
 
@@ -348,7 +346,7 @@
         ^ form
     ].
 
-    form := DownArrowForm := StyleSheet at:'arrowButtonDownForm' default:nil.
+    form := DownArrowForm := StyleSheet at:'arrowButton.downForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -398,13 +396,13 @@
 
     ^ form
 
-    "Modified: 17.1.1997 / 23:15:17 / cg"
+    "Modified: / 26.10.1997 / 17:01:54 / cg"
 !
 
 leftArrowButtonForm:styleSymbol on:aDevice
     "return the form used for the scrollLeft Button"
 
-    <resource: #style (#arrowButtonLeftForm)>
+    <resource: #style (#'arrowButton.leftForm')>
 
     |form|
 
@@ -419,7 +417,7 @@
         ^ form
     ].
 
-    form := LeftArrowForm := StyleSheet at:'arrowButtonLeftForm' default:nil.
+    form := LeftArrowForm := StyleSheet at:'arrowButton.leftForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -469,13 +467,13 @@
 
     ^ form
 
-    "Modified: 17.1.1997 / 23:15:14 / cg"
+    "Modified: / 26.10.1997 / 17:01:47 / cg"
 !
 
 rightArrowButtonForm:styleSymbol on:aDevice
     "return the form used for the scrollRight Button"
 
-    <resource: #style (#arrowButtonRightForm)>
+    <resource: #style (#'arrowButton.rightForm')>
 
     |form|
 
@@ -490,7 +488,7 @@
         ^ form
     ].
 
-    form := RightArrowForm := StyleSheet at:'arrowButtonRightForm' default:nil.
+    form := RightArrowForm := StyleSheet at:'arrowButton.rightForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -540,13 +538,13 @@
 
     ^ form
 
-    "Modified: 17.1.1997 / 23:15:20 / cg"
+    "Modified: / 26.10.1997 / 17:01:40 / cg"
 !
 
 upArrowButtonForm:styleSymbol on:aDevice
     "return the form used for the scrollUp Button"
 
-    <resource: #style (#arrowButtonUpForm)>
+    <resource: #style (#'arrowButton.upForm')>
 
     |form|
 
@@ -561,7 +559,7 @@
         ^ form
     ].
 
-    form := UpArrowForm := StyleSheet at:'arrowButtonUpForm' default:nil.
+    form := UpArrowForm := StyleSheet at:'arrowButton.upForm' default:nil.
     form notNil ifTrue:[^ form].
 
     "
@@ -611,7 +609,7 @@
 
     ^ form
 
-    "Modified: 10.1.1997 / 15:15:20 / cg"
+    "Modified: / 26.10.1997 / 17:01:32 / cg"
 !
 
 updateStyleCache
@@ -870,5 +868,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.45 1997-10-21 18:27:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.46 1997-10-28 20:01:27 cg Exp $'
 ! !
--- a/FramedBox.st	Tue Oct 28 20:59:48 1997 +0100
+++ b/FramedBox.st	Tue Oct 28 21:02:12 1997 +0100
@@ -624,18 +624,18 @@
      The default position is top-center, except for ms-windows, where
      the text is positioned at top-left"
 
-    <resource: #style (#framedBoxForegroundColor 
-                       #framedBoxLabelPosition
-                       #framedBox3DFrame)>
+    <resource: #style (#'framedBox.foregroundColor' 
+                       #'framedBox.labelPosition'
+                       #'framedBox.3DFrame')>
 
     super initStyle.
 
-    fgColor := StyleSheet at:'framedBoxForegroundColor' default:Black.
-    labelPosition := StyleSheet at:'framedBoxLabelPosition' default:#topCenter.
-    frame3D := StyleSheet at:'framedBox3DFrame' default:true.
+    fgColor := StyleSheet at:'framedBox.foregroundColor' default:Black.
+    labelPosition := StyleSheet at:'framedBox.labelPosition' default:#topCenter.
+    frame3D := StyleSheet at:'framedBox.3DFrame' default:true.
     borderWidth := 0.
 
-    "Modified: 17.1.1997 / 23:17:16 / cg"
+    "Modified: / 26.10.1997 / 17:00:57 / cg"
 !
 
 initialize
@@ -715,5 +715,5 @@
 !FramedBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.35 1997-07-31 21:12:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.36 1997-10-28 20:02:12 cg Exp $'
 ! !
hg/stx-libwidg