--- a/CheckBox.st	Thu Jan 17 10:12:52 2008 +0100
+++ b/CheckBox.st	Thu Jan 17 10:59:30 2008 +0100
@@ -897,11 +897,11 @@
     "/ If I have an explicit preferredExtent ..
 
     preferredExtent notNil ifTrue:[
-	^ preferredExtent
+        ^ preferredExtent
     ].
 
-    (labelView isNil or:[labelView label isEmpty]) ifTrue:[
-	^ super preferredExtent
+    (labelView isNil or:[labelView label isEmptyOrNil]) ifTrue:[
+        ^ super preferredExtent
     ].
     ^ super preferredExtent + (10@0).
 
@@ -910,7 +910,7 @@
 "/    bw2 := borderWidth * 2.
 "/    ^ (prefCheck x + prefLabel x + (3 * ViewSpacing)) @ ((prefCheck y max:prefLabel y) + bw2 + 2)
 
-    "Modified: 19.7.1996 / 20:43:47 / cg"
+    "Modified: / 12-01-2008 / 23:27:45 / cg"
 ! !
 
 !CheckBox methodsFor:'queries-internal'!
@@ -927,5 +927,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.76 2007-11-28 14:43:10 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.77 2008-01-17 09:59:30 cg Exp $'
 ! !