uff - version methods changed to return stings
authorClaus Gittinger <cg@exept.de>
Sat, 11 Nov 1995 17:30:31 +0100
changeset 86 4d7dbb5f1719
parent 85 b187d1de30df
child 87 694d935976b0
uff - version methods changed to return stings
2ColTxtV.st
CheckBox.st
ClrListEntry.st
ColoredListEntry.st
FNmEdtFld.st
FNmEntrBox.st
FilenameEditField.st
FilenameEnterBox.st
HScale.st
HSlider.st
HStepSlider.st
HierNode.st
HierarchyNode.st
HorizontalScale.st
HorizontalSlider.st
HorizontalSteppingSlider.st
ImageEditView.st
ImageSelBox.st
ImageSelectionBox.st
ImageView.st
ImgEditV.st
LEnterFld.st
LabelledEnterField.st
ListEntry.st
MCLEntry.st
MenuButt.st
MenuButton.st
MotionButton.st
MtnButt.st
MultiColListEntry.st
ParSpec.st
ParagraphSpecification.st
ProgressIndicator.st
PullDList.st
RoundButton.st
Ruler.st
Scale.st
SelHier.st
SelHierV.st
SelectionInHierarchy.st
SelectionInHierarchyView.st
Separator.st
Slider.st
StepSlider.st
SteppingSlider.st
TabSpec.st
TabSpecRuler.st
TabulatorSpecification.st
TextBox.st
TextRuler.st
TwoColumnTextView.st
VRuler.st
VerticalRuler.st
ViewScroller.st
--- a/2ColTxtV.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/2ColTxtV.st	Sat Nov 11 17:30:31 1995 +0100
@@ -50,9 +50,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/2ColTxtV.st,v 1.7 1995-08-30 18:06:10 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/2ColTxtV.st,v 1.8 1995-11-11 16:28:50 cg Exp $'
 ! !
 
 !TwoColumnTextView class methodsFor:'instance creation'!
--- a/CheckBox.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/CheckBox.st	Sat Nov 11 17:30:31 1995 +0100
@@ -23,9 +23,7 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.12 1995-10-23 20:07:16 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.13 1995-11-11 16:28:52 cg Exp $'
 !
 
 documentation
--- a/ClrListEntry.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/ClrListEntry.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/ClrListEntry.st,v 1.3 1995-09-09 02:32:00 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ClrListEntry.st,v 1.4 1995-11-11 16:28:53 cg Exp $'
 !
 
 documentation
--- a/ColoredListEntry.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/ColoredListEntry.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.3 1995-09-09 02:32:00 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.4 1995-11-11 16:28:53 cg Exp $'
 !
 
 documentation
--- a/FNmEdtFld.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/FNmEdtFld.st	Sat Nov 11 17:30:31 1995 +0100
@@ -34,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/FNmEdtFld.st,v 1.16 1995-09-21 12:24:30 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/FNmEdtFld.st,v 1.17 1995-11-11 16:28:55 cg Exp $'
 !
 
 documentation
--- a/FNmEntrBox.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/FNmEntrBox.st	Sat Nov 11 17:30:31 1995 +0100
@@ -34,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/FNmEntrBox.st,v 1.6 1995-09-07 12:48:02 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/FNmEntrBox.st,v 1.7 1995-11-11 16:28:56 cg Exp $'
 !
 
 documentation
--- a/FilenameEditField.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/FilenameEditField.st	Sat Nov 11 17:30:31 1995 +0100
@@ -34,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/FilenameEditField.st,v 1.16 1995-09-21 12:24:30 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEditField.st,v 1.17 1995-11-11 16:28:55 cg Exp $'
 !
 
 documentation
--- a/FilenameEnterBox.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/FilenameEnterBox.st	Sat Nov 11 17:30:31 1995 +0100
@@ -34,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/FilenameEnterBox.st,v 1.6 1995-09-07 12:48:02 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEnterBox.st,v 1.7 1995-11-11 16:28:56 cg Exp $'
 !
 
 documentation
--- a/HScale.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/HScale.st	Sat Nov 11 17:30:31 1995 +0100
@@ -34,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/HScale.st,v 1.3 1995-05-03 00:42:29 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HScale.st,v 1.4 1995-11-11 16:28:57 cg Exp $'
 !
 
 documentation
--- a/HSlider.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/HSlider.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/HSlider.st,v 1.6 1995-08-30 18:06:18 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HSlider.st,v 1.7 1995-11-11 16:28:58 cg Exp $'
 !
 
 documentation
--- a/HStepSlider.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/HStepSlider.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/HStepSlider.st,v 1.4 1995-08-30 18:06:21 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HStepSlider.st,v 1.5 1995-11-11 16:28:59 cg Exp $'
 !
 
 documentation
--- a/HierNode.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/HierNode.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/HierNode.st,v 1.1 1995-11-01 13:43:28 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HierNode.st,v 1.2 1995-11-11 16:29:00 cg Exp $'
 !
 
 documentation
--- a/HierarchyNode.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/HierarchyNode.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/HierarchyNode.st,v 1.1 1995-11-01 13:43:28 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchyNode.st,v 1.2 1995-11-11 16:29:00 cg Exp $'
 !
 
 documentation
--- a/HorizontalScale.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/HorizontalScale.st	Sat Nov 11 17:30:31 1995 +0100
@@ -34,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/HorizontalScale.st,v 1.3 1995-05-03 00:42:29 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalScale.st,v 1.4 1995-11-11 16:28:57 cg Exp $'
 !
 
 documentation
--- a/HorizontalSlider.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/HorizontalSlider.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.6 1995-08-30 18:06:18 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.7 1995-11-11 16:28:58 cg Exp $'
 !
 
 documentation
--- a/HorizontalSteppingSlider.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/HorizontalSteppingSlider.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.4 1995-08-30 18:06:21 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.5 1995-11-11 16:28:59 cg Exp $'
 !
 
 documentation
--- a/ImageEditView.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/ImageEditView.st	Sat Nov 11 17:30:31 1995 +0100
@@ -39,6 +39,10 @@
     This View will eventually be able to edit bitmap images.
     For now, it is not.
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.15 1995-11-11 16:29:05 cg Exp $'
 ! !
 
 !ImageEditView methodsFor:'queries'!
--- a/ImageSelBox.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/ImageSelBox.st	Sat Nov 11 17:30:31 1995 +0100
@@ -40,6 +40,10 @@
     Like a fileSelectionBox, but adds a little preview field.
     Nice.
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ImageSelBox.st,v 1.3 1995-11-11 16:29:01 cg Exp $'
 ! !
 
 !ImageSelectionBox methodsFor:'user actions'!
--- a/ImageSelectionBox.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/ImageSelectionBox.st	Sat Nov 11 17:30:31 1995 +0100
@@ -40,6 +40,10 @@
     Like a fileSelectionBox, but adds a little preview field.
     Nice.
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageSelectionBox.st,v 1.3 1995-11-11 16:29:01 cg Exp $'
 ! !
 
 !ImageSelectionBox methodsFor:'user actions'!
--- a/ImageView.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/ImageView.st	Sat Nov 11 17:30:31 1995 +0100
@@ -53,6 +53,10 @@
 	ImageView openOnImage:(Image fromFile:'bitmaps/garfield.gif')
 	ImageView openOnImage:(Form fromFile:'SBrowser.xbm')
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageView.st,v 1.16 1995-11-11 16:29:03 cg Exp $'
 ! !
 
 !ImageView class methodsFor:'startup'!
--- a/ImgEditV.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/ImgEditV.st	Sat Nov 11 17:30:31 1995 +0100
@@ -39,6 +39,10 @@
     This View will eventually be able to edit bitmap images.
     For now, it is not.
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ImgEditV.st,v 1.15 1995-11-11 16:29:05 cg Exp $'
 ! !
 
 !ImageEditView methodsFor:'queries'!
--- a/LEnterFld.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/LEnterFld.st	Sat Nov 11 17:30:31 1995 +0100
@@ -75,9 +75,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/LEnterFld.st,v 1.10 1995-10-23 20:07:23 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/LEnterFld.st,v 1.11 1995-11-11 16:29:07 cg Exp $'
 !
 
 copyright
--- a/LabelledEnterField.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/LabelledEnterField.st	Sat Nov 11 17:30:31 1995 +0100
@@ -75,9 +75,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/LabelledEnterField.st,v 1.10 1995-10-23 20:07:23 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/LabelledEnterField.st,v 1.11 1995-11-11 16:29:07 cg Exp $'
 !
 
 copyright
--- a/ListEntry.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/ListEntry.st	Sat Nov 11 17:30:31 1995 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -24,7 +24,7 @@
 copyright
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.1 1995-05-17 12:49:00 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.2 1995-11-11 16:29:08 cg Exp $'
 !
 
 documentation
--- a/MCLEntry.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/MCLEntry.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/MCLEntry.st,v 1.7 1995-08-30 18:00:28 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/MCLEntry.st,v 1.8 1995-11-11 16:29:10 cg Exp $'
 !
 
 documentation
--- a/MenuButt.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/MenuButt.st	Sat Nov 11 17:30:31 1995 +0100
@@ -17,18 +17,35 @@
        category:'Views-Interactors'
 !
 
-MenuButton comment:'
+!MenuButton class methodsFor:'documentation'!
 
-COPYRIGHT (c) 1989 by Claus Gittinger
+copyright
+"
+ COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-these objects implement the special buttons used for pull-down-menu-bars.
-they highlight on enter events (while pressed) and perform their
-action on release
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
 
-$Header: /cvs/stx/stx/libwidg2/Attic/MenuButt.st,v 1.3 1993-10-13 02:48:32 claus Exp $
-written spring/summer 89 by claus
-'!
+documentation
+"
+    this is obsolete
+
+    these objects implement the special buttons used for pull-down-menu-bars.
+    they highlight on enter events (while pressed) and perform their
+    action on release
+"
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/MenuButt.st,v 1.4 1995-11-11 16:29:11 cg Exp $'
+! !
 
 !MenuButton methodsFor:'initialization'!
 
--- a/MenuButton.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/MenuButton.st	Sat Nov 11 17:30:31 1995 +0100
@@ -17,18 +17,35 @@
        category:'Views-Interactors'
 !
 
-MenuButton comment:'
+!MenuButton class methodsFor:'documentation'!
 
-COPYRIGHT (c) 1989 by Claus Gittinger
+copyright
+"
+ COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-these objects implement the special buttons used for pull-down-menu-bars.
-they highlight on enter events (while pressed) and perform their
-action on release
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
 
-$Header: /cvs/stx/stx/libwidg2/MenuButton.st,v 1.3 1993-10-13 02:48:32 claus Exp $
-written spring/summer 89 by claus
-'!
+documentation
+"
+    this is obsolete
+
+    these objects implement the special buttons used for pull-down-menu-bars.
+    they highlight on enter events (while pressed) and perform their
+    action on release
+"
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuButton.st,v 1.4 1995-11-11 16:29:11 cg Exp $'
+! !
 
 !MenuButton methodsFor:'initialization'!
 
--- a/MotionButton.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/MotionButton.st	Sat Nov 11 17:30:31 1995 +0100
@@ -17,17 +17,34 @@
     category:'Views-Interactors'
 !
 
-MotionButton comment:'
+!MotionButton class methodsFor:'documentation'!
 
-COPYRIGHT (c) 1989 by Claus Gittinger
+copyright
+"
+ COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-a motionButton highlights itself whenever the cursor
-walks into it ...
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
 
-$Header: /cvs/stx/stx/libwidg2/MotionButton.st,v 1.3 1993-10-13 02:48:35 claus Exp $
-written spring/summer 89 by claus
-'!
+documentation
+"
+    this is obsolete
+
+    a motionButton highlights itself whenever the cursor
+    walks into it ...
+"
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/MotionButton.st,v 1.4 1995-11-11 16:29:12 cg Exp $'
+! !
 
 !MotionButton methodsFor:'initialization'!
 
--- a/MtnButt.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/MtnButt.st	Sat Nov 11 17:30:31 1995 +0100
@@ -17,17 +17,34 @@
     category:'Views-Interactors'
 !
 
-MotionButton comment:'
+!MotionButton class methodsFor:'documentation'!
 
-COPYRIGHT (c) 1989 by Claus Gittinger
+copyright
+"
+ COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-a motionButton highlights itself whenever the cursor
-walks into it ...
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
 
-$Header: /cvs/stx/stx/libwidg2/Attic/MtnButt.st,v 1.3 1993-10-13 02:48:35 claus Exp $
-written spring/summer 89 by claus
-'!
+documentation
+"
+    this is obsolete
+
+    a motionButton highlights itself whenever the cursor
+    walks into it ...
+"
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/MtnButt.st,v 1.4 1995-11-11 16:29:12 cg Exp $'
+! !
 
 !MotionButton methodsFor:'initialization'!
 
--- a/MultiColListEntry.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/MultiColListEntry.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.7 1995-08-30 18:00:28 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.8 1995-11-11 16:29:10 cg Exp $'
 !
 
 documentation
--- a/ParSpec.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/ParSpec.st	Sat Nov 11 17:30:31 1995 +0100
@@ -41,9 +41,8 @@
 "
 !
 
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/ParSpec.st,v 1.3 1995-08-30 18:06:32 claus Exp $
-"
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ParSpec.st,v 1.4 1995-11-11 16:29:13 cg Exp $'
 ! !
 
 !ParagraphSpecification methodsFor:'accessing'!
--- a/ParagraphSpecification.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/ParagraphSpecification.st	Sat Nov 11 17:30:31 1995 +0100
@@ -41,9 +41,8 @@
 "
 !
 
-"
-$Header: /cvs/stx/stx/libwidg2/ParagraphSpecification.st,v 1.3 1995-08-30 18:06:32 claus Exp $
-"
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/ParagraphSpecification.st,v 1.4 1995-11-11 16:29:13 cg Exp $'
 ! !
 
 !ParagraphSpecification methodsFor:'accessing'!
--- a/ProgressIndicator.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/ProgressIndicator.st	Sat Nov 11 17:30:31 1995 +0100
@@ -35,9 +35,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.3 1995-09-12 10:50:48 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.4 1995-11-11 16:30:31 cg Exp $'
 !
 
 documentation
--- a/PullDList.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/PullDList.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/PullDList.st,v 1.2 1995-08-30 18:06:35 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/PullDList.st,v 1.3 1995-11-11 16:29:15 cg Exp $'
 !
 
 documentation
--- a/RoundButton.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/RoundButton.st	Sat Nov 11 17:30:31 1995 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -11,12 +11,38 @@
 "
 
 Button subclass:#RoundButton
-         instanceVariableNames:''
-         classVariableNames:''
-         poolDictionaries:''
-         category:'Views-Interactors'
+	 instanceVariableNames:''
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Views-Interactors'
 !
 
+!RoundButton class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1993 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+documentation
+"
+    this is not finished
+"
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/RoundButton.st,v 1.3 1995-11-11 16:29:16 cg Exp $'
+! !
+
 !RoundButton methodsFor:'drawing'!
 
 drawWith:fg and:bg
@@ -35,11 +61,11 @@
     "compute a new shape form"
 
     borderForm := self roundCornerFormWidth:width+(borderWidth * 2) 
-                                     height:height+(borderWidth * 2)
-                                     offset:0.
+				     height:height+(borderWidth * 2)
+				     offset:0.
     shapeForm := self roundCornerFormWidth:width+(borderWidth * 2) 
-                                    height:height+(borderWidth * 2)
-                                    offset:borderWidth.
+				    height:height+(borderWidth * 2)
+				    offset:borderWidth.
 
     self borderShape:borderForm.
     self viewShape:shapeForm
@@ -66,14 +92,14 @@
      wCornHalf := wCorn // 2.
      hCornHalf := hCorn // 2.
      wCorn odd ifTrue:[
-         wCornHalfRest := 1
+	 wCornHalfRest := 1
      ] ifFalse:[
-         wCornHalfRest := 0
+	 wCornHalfRest := 0
      ].
      hCorn odd ifTrue:[
-         hCornHalfRest := 1
+	 hCornHalfRest := 1
      ] ifFalse:[
-         hCornHalfRest := 0
+	 hCornHalfRest := 0
      ].
 
      form paint:(Color colorId:1).
@@ -81,21 +107,21 @@
      form fillArcX:left y:top w:wCorn h:hCorn from:0 angle:360.
 
      form fillRectangleX:(left + wCornHalf) y:top 
-                         width:(w - wCorn + wCornHalfRest) height:hCornHalf.
+			 width:(w - wCorn + wCornHalfRest) height:hCornHalf.
 
      "top right arc"
      form fillArcX:(right - wCorn) y:top w:wCorn h:hCorn from:0 angle:90.
 
      "big middle rect"
      form fillRectangleX:left y:(top + hCornHalf)
-                    width:w height:(h - hCorn + hCornHalfRest).
+		    width:w height:(h - hCorn + hCornHalfRest).
 
      "bottom left arc"
      form fillArcX:left y:(bot - hCorn) w:wCorn h:hCorn from:180 angle:90.
 
      "bottom rect"
      form fillRectangleX:(left + wCornHalf) y:(bot - hCornHalf)
-                    width:(w - wCorn + wCornHalfRest) height:hCornHalf.
+		    width:(w - wCorn + wCornHalfRest) height:hCornHalf.
 
      "bottom right arc"
      form fillArcX:(right - wCorn) y:(bot - hCorn) w:wCorn h:hCorn from:270 angle:90.
--- a/Ruler.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/Ruler.st	Sat Nov 11 17:30:31 1995 +0100
@@ -34,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Ruler.st,v 1.17 1995-08-30 18:06:38 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Ruler.st,v 1.18 1995-11-11 16:29:17 cg Exp $'
 !
 
 documentation
--- a/Scale.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/Scale.st	Sat Nov 11 17:30:31 1995 +0100
@@ -34,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Scale.st,v 1.3 1995-05-03 00:42:54 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Scale.st,v 1.4 1995-11-11 16:29:19 cg Exp $'
 !
 
 documentation
--- a/SelHier.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/SelHier.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/SelHier.st,v 1.1 1995-11-01 13:43:33 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelHier.st,v 1.2 1995-11-11 16:29:20 cg Exp $'
 !
 
 documentation
--- a/SelHierV.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/SelHierV.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/SelHierV.st,v 1.1 1995-11-01 13:43:34 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelHierV.st,v 1.2 1995-11-11 16:29:22 cg Exp $'
 !
 
 documentation
--- a/SelectionInHierarchy.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/SelectionInHierarchy.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/SelectionInHierarchy.st,v 1.1 1995-11-01 13:43:33 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInHierarchy.st,v 1.2 1995-11-11 16:29:20 cg Exp $'
 !
 
 documentation
--- a/SelectionInHierarchyView.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/SelectionInHierarchyView.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/SelectionInHierarchyView.st,v 1.1 1995-11-01 13:43:34 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInHierarchyView.st,v 1.2 1995-11-11 16:29:22 cg Exp $'
 !
 
 documentation
--- a/Separator.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/Separator.st	Sat Nov 11 17:30:31 1995 +0100
@@ -128,9 +128,7 @@
 !
 
 version 
-"
-$Header: /cvs/stx/stx/libwidg2/Separator.st,v 1.5 1995-09-07 12:48:20 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Separator.st,v 1.6 1995-11-11 16:29:23 cg Exp $'
 !
 
 documentation 
--- a/Slider.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/Slider.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Slider.st,v 1.11 1995-08-30 18:06:44 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Slider.st,v 1.12 1995-11-11 16:29:25 cg Exp $'
 !
 
 documentation
--- a/StepSlider.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/StepSlider.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/StepSlider.st,v 1.5 1995-08-30 18:06:46 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/StepSlider.st,v 1.6 1995-11-11 16:29:26 cg Exp $'
 !
 
 documentation
--- a/SteppingSlider.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/SteppingSlider.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/SteppingSlider.st,v 1.5 1995-08-30 18:06:46 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/SteppingSlider.st,v 1.6 1995-11-11 16:29:26 cg Exp $'
 !
 
 documentation
--- a/TabSpec.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/TabSpec.st	Sat Nov 11 17:30:31 1995 +0100
@@ -34,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/TabSpec.st,v 1.5 1995-08-30 18:00:39 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/TabSpec.st,v 1.6 1995-11-11 16:29:28 cg Exp $'
 !
 
 documentation
--- a/TabSpecRuler.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/TabSpecRuler.st	Sat Nov 11 17:30:31 1995 +0100
@@ -36,9 +36,7 @@
 !
 
 version
-"
- $Header: /cvs/stx/stx/libwidg2/TabSpecRuler.st,v 1.5 1995-05-03 00:43:06 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabSpecRuler.st,v 1.6 1995-11-11 16:29:29 cg Exp $'
 !
 
 documentation
--- a/TabulatorSpecification.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/TabulatorSpecification.st	Sat Nov 11 17:30:31 1995 +0100
@@ -34,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/TabulatorSpecification.st,v 1.5 1995-08-30 18:00:39 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabulatorSpecification.st,v 1.6 1995-11-11 16:29:28 cg Exp $'
 !
 
 documentation
--- a/TextBox.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/TextBox.st	Sat Nov 11 17:30:31 1995 +0100
@@ -34,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/TextBox.st,v 1.11 1995-08-30 18:06:49 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/TextBox.st,v 1.12 1995-11-11 16:29:30 cg Exp $'
 !
 
 documentation
--- a/TextRuler.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/TextRuler.st	Sat Nov 11 17:30:31 1995 +0100
@@ -46,6 +46,10 @@
 
     TextRuler new open
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/TextRuler.st,v 1.13 1995-11-11 16:29:32 cg Exp $'
 ! !
 
 !TextRuler class methodsFor:'defaults'!
--- a/TwoColumnTextView.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/TwoColumnTextView.st	Sat Nov 11 17:30:31 1995 +0100
@@ -50,9 +50,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.7 1995-08-30 18:06:10 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.8 1995-11-11 16:28:50 cg Exp $'
 ! !
 
 !TwoColumnTextView class methodsFor:'instance creation'!
--- a/VRuler.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/VRuler.st	Sat Nov 11 17:30:31 1995 +0100
@@ -34,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/Attic/VRuler.st,v 1.5 1995-08-30 18:06:56 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/VRuler.st,v 1.6 1995-11-11 16:29:35 cg Exp $'
 !
 
 documentation
--- a/VerticalRuler.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/VerticalRuler.st	Sat Nov 11 17:30:31 1995 +0100
@@ -34,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libwidg2/VerticalRuler.st,v 1.5 1995-08-30 18:06:56 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libwidg2/VerticalRuler.st,v 1.6 1995-11-11 16:29:35 cg Exp $'
 !
 
 documentation
--- a/ViewScroller.st	Wed Nov 01 15:43:25 1995 +0100
+++ b/ViewScroller.st	Sat Nov 11 17:30:31 1995 +0100
@@ -141,6 +141,10 @@
     vscroller scrolledView:panel.
     top open.
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/ViewScroller.st,v 1.6 1995-11-11 16:29:36 cg Exp $'
 ! !
 
 !ViewScroller methodsFor:'queries-contents'!
@@ -259,8 +263,8 @@
 
 scrolledView:aView
     scrolledView notNil ifTrue:[
-        self error:'can only scroll a single view'.
-        ^ self
+	self error:'can only scroll a single view'.
+	^ self
     ].
     scrolledView := aView.
     self addSubView:aView.
@@ -287,21 +291,21 @@
      if we are beyond the end, scroll up a bit
     "
     ((self viewOrigin y + self height) > self heightOfContents) ifTrue:[
-        newOrigin := self heightOfContents - self height.
-        newOrigin < 0 ifTrue:[
-            newOrigin := 0
-        ].
-        self scrollVerticalTo: newOrigin.
+	newOrigin := self heightOfContents - self height.
+	newOrigin < 0 ifTrue:[
+	    newOrigin := 0
+	].
+	self scrollVerticalTo: newOrigin.
     ].
     "
      if we are right of the end, scroll left a bit
     "
     ((self viewOrigin x + self width) > self widthOfContents) ifTrue:[
-        newOrigin := self widthOfContents - self width.
-        newOrigin < 0 ifTrue:[
-            newOrigin := 0
-        ].
-        self scrollHorizontalTo: newOrigin.
+	newOrigin := self widthOfContents - self width.
+	newOrigin < 0 ifTrue:[
+	    newOrigin := 0
+	].
+	self scrollHorizontalTo: newOrigin.
     ].