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>
Mon, 24 Feb 1997 21:20:10 +0100
changeset 1041 976147f19ad7
parent 1040 2bed2e003e9d
child 1042 5914ecc423e1
*** empty log message ***
ArrButton.st file | annotate | diff | comparison | revisions
ArrowButton.st file | annotate | diff | comparison | revisions
ScrollBar.st file | annotate | diff | comparison | revisions 
--- a/ArrButton.st	Mon Feb 24 21:19:27 1997 +0100
+++ b/ArrButton.st	Mon Feb 24 21:20:10 1997 +0100
@@ -686,23 +686,19 @@
 
     aDirectionSymbol == #up ifTrue:[
         form := (self class upArrowButtonForm:arrowStyle on:device).
-        name := 'upButton'.
     ].
     aDirectionSymbol == #down ifTrue:[
         form := (self class downArrowButtonForm:arrowStyle on:device).
-        name := 'downButton'.
     ].
     aDirectionSymbol == #left ifTrue:[
         form := (self class leftArrowButtonForm:arrowStyle on:device).
-        name := 'leftButton'.
     ].
     aDirectionSymbol == #right ifTrue:[
         form := (self class rightArrowButtonForm:arrowStyle on:device).
-        name := 'rightButton'.
     ].
     self form:form
 
-    "Modified: 22.1.1997 / 11:59:38 / cg"
+    "Modified: 24.2.1997 / 21:19:59 / cg"
 ! !
 
 !ArrowButton methodsFor:'initialization'!
@@ -859,5 +855,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.37 1997-02-13 21:00:18 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.38 1997-02-24 20:20:10 cg Exp $'
 ! !
--- a/ArrowButton.st	Mon Feb 24 21:19:27 1997 +0100
+++ b/ArrowButton.st	Mon Feb 24 21:20:10 1997 +0100
@@ -686,23 +686,19 @@
 
     aDirectionSymbol == #up ifTrue:[
         form := (self class upArrowButtonForm:arrowStyle on:device).
-        name := 'upButton'.
     ].
     aDirectionSymbol == #down ifTrue:[
         form := (self class downArrowButtonForm:arrowStyle on:device).
-        name := 'downButton'.
     ].
     aDirectionSymbol == #left ifTrue:[
         form := (self class leftArrowButtonForm:arrowStyle on:device).
-        name := 'leftButton'.
     ].
     aDirectionSymbol == #right ifTrue:[
         form := (self class rightArrowButtonForm:arrowStyle on:device).
-        name := 'rightButton'.
     ].
     self form:form
 
-    "Modified: 22.1.1997 / 11:59:38 / cg"
+    "Modified: 24.2.1997 / 21:19:59 / cg"
 ! !
 
 !ArrowButton methodsFor:'initialization'!
@@ -859,5 +855,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.37 1997-02-13 21:00:18 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.38 1997-02-24 20:20:10 cg Exp $'
 ! !
--- a/ScrollBar.st	Mon Feb 24 21:19:27 1997 +0100
+++ b/ScrollBar.st	Mon Feb 24 21:20:10 1997 +0100
@@ -463,8 +463,12 @@
 
 createElements
     button1 := ArrowButton upIn:self.
+    button1 name:'upButton'.
     button2 := ArrowButton downIn:self.
+    button2 name:'downButton'.
     thumb := Scroller in:self.
+
+    "Modified: 24.2.1997 / 21:18:47 / cg"
 !
 
 defaultExtent
@@ -715,5 +719,5 @@
 !ScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.41 1997-02-13 20:41:45 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.42 1997-02-24 20:19:41 cg Exp $'
 ! !
hg/stx-libwidg