Label.st
changeset 6077 8e8dfbc562a9
parent 6052 c13ee730ce29
child 6088 ffb5be6c8bca
--- a/Label.st	Wed Feb 08 00:56:17 2017 +0100
+++ b/Label.st	Wed Feb 08 00:56:18 2017 +0100
@@ -1432,6 +1432,8 @@
 initialize
     |currentFont|
 
+    <modifier: #super> "must be called if redefined"
+
     super initialize.
 
     currentFont := gc font.
@@ -1443,6 +1445,8 @@
     fixSize := false.
     hSpace := ((self horizontalPixelPerMillimeter:0.5) max:2) rounded.
     vSpace := ((self verticalPixelPerMillimeter:0.5) max:2) rounded
+
+    "Modified: / 08-02-2017 / 00:32:40 / cg"
 !
 
 recreate