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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 24 Feb 1997 21:19:27 +0100
changeset 1040 2bed2e003e9d
parent 1039 28ff56306e31
child 1041 976147f19ad7
checkin from browser
HScrBar.st file | annotate | diff | comparison | revisions
HorizontalScrollBar.st file | annotate | diff | comparison | revisions 
--- a/HScrBar.st	Mon Feb 24 21:10:55 1997 +0100
+++ b/HScrBar.st	Mon Feb 24 21:19:27 1997 +0100
@@ -214,8 +214,12 @@
     "private: create my elements"
 
     button1 := ArrowButton leftIn:self.
+    button1 name:'leftButton'.
     button2 := ArrowButton rightIn:self.
+    button2 name:'rightButton'.
     thumb := HorizontalScroller in:self.
+
+    "Modified: 24.2.1997 / 21:19:12 / cg"
 !
 
 setElementPositions
@@ -317,5 +321,5 @@
 !HorizontalScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScrBar.st,v 1.24 1997-02-13 20:42:20 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScrBar.st,v 1.25 1997-02-24 20:19:27 cg Exp $'
 ! !
--- a/HorizontalScrollBar.st	Mon Feb 24 21:10:55 1997 +0100
+++ b/HorizontalScrollBar.st	Mon Feb 24 21:19:27 1997 +0100
@@ -214,8 +214,12 @@
     "private: create my elements"
 
     button1 := ArrowButton leftIn:self.
+    button1 name:'leftButton'.
     button2 := ArrowButton rightIn:self.
+    button2 name:'rightButton'.
     thumb := HorizontalScroller in:self.
+
+    "Modified: 24.2.1997 / 21:19:12 / cg"
 !
 
 setElementPositions
@@ -317,5 +321,5 @@
 !HorizontalScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.24 1997-02-13 20:42:20 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.25 1997-02-24 20:19:27 cg Exp $'
 ! !
hg/stx-libwidg