--- a/CheckBox.st Wed May 29 00:12:55 1996 +0200
+++ b/CheckBox.st Wed May 29 12:19:14 1996 +0200
@@ -596,6 +596,10 @@
|prefCheck prefLabel bw2|
+ preferredExtent notNil ifTrue:[
+ ^ preferredExtent
+ ].
+
labelView label isEmpty ifTrue:[
^ super preferredExtent
].
@@ -606,11 +610,11 @@
"/ bw2 := borderWidth * 2.
"/ ^ (prefCheck x + prefLabel x + (3 * ViewSpacing)) @ ((prefCheck y max:prefLabel y) + bw2 + 2)
- "Modified: 24.5.1996 / 15:18:27 / cg"
+ "Modified: 29.5.1996 / 12:13:08 / cg"
! !
!CheckBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.26 1996-05-26 09:45:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.27 1996-05-29 10:18:36 cg Exp $'
! !
--- a/HSlider.st Wed May 29 00:12:55 1996 +0200
+++ b/HSlider.st Wed May 29 12:19:14 1996 +0200
@@ -57,15 +57,19 @@
|w h|
+ preferredExtent notNil ifTrue:[
+ ^ preferredExtent
+ ].
+
w := self class defaultExtent x.
h := (device verticalPixelPerMillimeter asFloat * 6) rounded.
^ w @ h.
- "Modified: 23.4.1996 / 00:15:48 / cg"
+ "Modified: 29.5.1996 / 12:12:21 / cg"
! !
!HorizontalSlider class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HSlider.st,v 1.10 1996-04-25 17:22:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/HSlider.st,v 1.11 1996-05-29 10:19:14 cg Exp $'
! !
--- a/HorizontalSlider.st Wed May 29 00:12:55 1996 +0200
+++ b/HorizontalSlider.st Wed May 29 12:19:14 1996 +0200
@@ -57,15 +57,19 @@
|w h|
+ preferredExtent notNil ifTrue:[
+ ^ preferredExtent
+ ].
+
w := self class defaultExtent x.
h := (device verticalPixelPerMillimeter asFloat * 6) rounded.
^ w @ h.
- "Modified: 23.4.1996 / 00:15:48 / cg"
+ "Modified: 29.5.1996 / 12:12:21 / cg"
! !
!HorizontalSlider class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.10 1996-04-25 17:22:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.11 1996-05-29 10:19:14 cg Exp $'
! !