--- a/CheckBox.st Fri Jul 19 20:49:29 1996 +0200
+++ b/CheckBox.st Fri Jul 19 21:12:56 1996 +0200
@@ -620,6 +620,8 @@
|prefCheck prefLabel bw2|
+ "/ If I have an explicit preferredExtent ..
+
preferredExtent notNil ifTrue:[
^ preferredExtent
].
@@ -634,11 +636,11 @@
"/ bw2 := borderWidth * 2.
"/ ^ (prefCheck x + prefLabel x + (3 * ViewSpacing)) @ ((prefCheck y max:prefLabel y) + bw2 + 2)
- "Modified: 15.7.1996 / 11:18:11 / cg"
+ "Modified: 19.7.1996 / 20:43:47 / cg"
! !
!CheckBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.31 1996-07-18 10:06:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.32 1996-07-19 19:12:56 cg Exp $'
! !
--- a/LEnterFld.st Fri Jul 19 20:49:29 1996 +0200
+++ b/LEnterFld.st Fri Jul 19 21:12:56 1996 +0200
@@ -17,7 +17,7 @@
category:'Views-Interactors'
!
-!LabelledEnterField class methodsFor:'documentation'!
+!LabelledEnterField class methodsFor:'documentation'!
copyright
"
@@ -206,6 +206,8 @@
|p lx ly ix iy|
+ "/ If I have an explicit preferredExtent ..
+
preferredExtent notNil ifTrue:[
^ preferredExtent
].
@@ -216,11 +218,11 @@
ix := p x. iy := p y.
^ (lx + ix) @ (ly max:iy)
- "Modified: 29.5.1996 / 12:12:00 / cg"
+ "Modified: 19.7.1996 / 20:44:46 / cg"
! !
-!LabelledEnterField class methodsFor:'documentation'!
+!LabelledEnterField class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/LEnterFld.st,v 1.19 1996-05-29 10:23:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/LEnterFld.st,v 1.20 1996-07-19 19:11:56 cg Exp $'
! !
--- a/LabelledEnterField.st Fri Jul 19 20:49:29 1996 +0200
+++ b/LabelledEnterField.st Fri Jul 19 21:12:56 1996 +0200
@@ -17,7 +17,7 @@
category:'Views-Interactors'
!
-!LabelledEnterField class methodsFor:'documentation'!
+!LabelledEnterField class methodsFor:'documentation'!
copyright
"
@@ -206,6 +206,8 @@
|p lx ly ix iy|
+ "/ If I have an explicit preferredExtent ..
+
preferredExtent notNil ifTrue:[
^ preferredExtent
].
@@ -216,11 +218,11 @@
ix := p x. iy := p y.
^ (lx + ix) @ (ly max:iy)
- "Modified: 29.5.1996 / 12:12:00 / cg"
+ "Modified: 19.7.1996 / 20:44:46 / cg"
! !
-!LabelledEnterField class methodsFor:'documentation'!
+!LabelledEnterField class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/LabelledEnterField.st,v 1.19 1996-05-29 10:23:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/LabelledEnterField.st,v 1.20 1996-07-19 19:11:56 cg Exp $'
! !