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.
.
authorclaus
Thu, 31 Aug 1995 07:01:01 +0200
changeset 154 054838fe6c84
parent 153 a60507aaa7a0
child 155 d6f3836d2b51
.
ArrButton.st file | annotate | diff | comparison | revisions
ArrowButton.st file | annotate | diff | comparison | revisions 
--- a/ArrButton.st	Thu Aug 31 06:36:05 1995 +0200
+++ b/ArrButton.st	Thu Aug 31 07:01:01 1995 +0200
@@ -30,7 +30,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.15 1995-08-31 04:35:17 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.16 1995-08-31 05:01:01 claus Exp $
 '!
 
 !ArrowButton class methodsFor:'documentation'!
@@ -51,7 +51,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.15 1995-08-31 04:35:17 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.16 1995-08-31 05:01:01 claus Exp $
 "
 !
 
@@ -229,6 +229,11 @@
 	^ UpArrowForm
     ].
 
+    UpArrowForm := StyleSheet at:'arrowButtonUpForm' default:nil.
+    UpArrowForm notNil ifTrue:[
+	^ UpArrowForm
+    ].
+
     "
      special treatment for st80 arrows 
      - they do not really fit into the general (bitmap) scheme ...
@@ -308,6 +313,11 @@
 	^ DownArrowForm
     ].
 
+    DownArrowForm := StyleSheet at:'arrowButtonDownForm' default:nil.
+    DownArrowForm notNil ifTrue:[
+	^ DownArrowForm
+    ].
+
     "
      special treatment for st80 arrows 
      - they do not really fit into the general (bitmap) scheme ...
@@ -386,6 +396,11 @@
 	^ LeftArrowForm
     ].
 
+    LeftArrowForm := StyleSheet at:'arrowButtonLeftForm' default:nil.
+    LeftArrowForm notNil ifTrue:[
+	^ LeftArrowForm
+    ].
+
     "
      special treatment for st80 arrows 
      - they do not really fit into the general (bitmap) scheme ...
@@ -464,6 +479,11 @@
 	^ RightArrowForm
     ].
 
+    RightArrowForm := StyleSheet at:'arrowButtonRightForm' default:nil.
+    RightArrowForm notNil ifTrue:[
+	^ RightArrowForm
+    ].
+
     "
      special treatment for st80 arrows 
      - they do not really fit into the general (bitmap) scheme ...
--- a/ArrowButton.st	Thu Aug 31 06:36:05 1995 +0200
+++ b/ArrowButton.st	Thu Aug 31 07:01:01 1995 +0200
@@ -30,7 +30,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.15 1995-08-31 04:35:17 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.16 1995-08-31 05:01:01 claus Exp $
 '!
 
 !ArrowButton class methodsFor:'documentation'!
@@ -51,7 +51,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.15 1995-08-31 04:35:17 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.16 1995-08-31 05:01:01 claus Exp $
 "
 !
 
@@ -229,6 +229,11 @@
 	^ UpArrowForm
     ].
 
+    UpArrowForm := StyleSheet at:'arrowButtonUpForm' default:nil.
+    UpArrowForm notNil ifTrue:[
+	^ UpArrowForm
+    ].
+
     "
      special treatment for st80 arrows 
      - they do not really fit into the general (bitmap) scheme ...
@@ -308,6 +313,11 @@
 	^ DownArrowForm
     ].
 
+    DownArrowForm := StyleSheet at:'arrowButtonDownForm' default:nil.
+    DownArrowForm notNil ifTrue:[
+	^ DownArrowForm
+    ].
+
     "
      special treatment for st80 arrows 
      - they do not really fit into the general (bitmap) scheme ...
@@ -386,6 +396,11 @@
 	^ LeftArrowForm
     ].
 
+    LeftArrowForm := StyleSheet at:'arrowButtonLeftForm' default:nil.
+    LeftArrowForm notNil ifTrue:[
+	^ LeftArrowForm
+    ].
+
     "
      special treatment for st80 arrows 
      - they do not really fit into the general (bitmap) scheme ...
@@ -464,6 +479,11 @@
 	^ RightArrowForm
     ].
 
+    RightArrowForm := StyleSheet at:'arrowButtonRightForm' default:nil.
+    RightArrowForm notNil ifTrue:[
+	^ RightArrowForm
+    ].
+
     "
      special treatment for st80 arrows 
      - they do not really fit into the general (bitmap) scheme ...
hg/stx-libwidg