--- 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.
].