use new #initialHeight:
authordq
Wed, 11 Sep 1996 20:01:21 +0200
changeset 832 4c4b0e34e964
parent 831 8af010be0a02
child 833 356ea2b5319d
use new #initialHeight:
EditField.st
Label.st
--- a/EditField.st	Tue Sep 10 00:59:12 1996 +0200
+++ b/EditField.st	Wed Sep 11 20:01:21 1996 +0200
@@ -1563,7 +1563,7 @@
 
 initialize
     super initialize.
-    self height:(font height + font descent + (topMargin * 2)).
+    self initialHeight:(font height + font descent + (topMargin * 2)).
 
     enabled := true.
     fixedSize := true.
@@ -1752,5 +1752,5 @@
 !EditField  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.68 1996-07-19 19:12:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.69 1996-09-11 18:00:58 dq Exp $'
 ! !
--- a/Label.st	Tue Sep 10 00:59:12 1996 +0200
+++ b/Label.st	Wed Sep 11 20:01:21 1996 +0200
@@ -1226,7 +1226,7 @@
     super initialize.
 
     font := font on:device.
-    self height:(font height + font descent).
+    self initialHeight:(font height + font descent).
     adjust := #center.
     labelOriginX := labelOriginY := 0.
     labelWidth := labelHeight := 0.
@@ -1615,5 +1615,5 @@
 !Label  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.69 1996-08-02 19:03:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.70 1996-09-11 18:01:21 dq Exp $'
 ! !