3 "

     1 "

     4  COPYRIGHT (c) 1989 by Claus Gittinger

     2  COPYRIGHT (c) 1989 by Claus Gittinger

     5 	      All Rights Reserved

     3 	      All Rights Reserved

     6 

     4 

     7  This software is furnished under a license and may be used

     5  This software is furnished under a license and may be used

  1434 initialize

  1432 initialize

  1435     |currentFont|

  1433     |currentFont|

  1436 

  1434 

  1437     super initialize.

  1435     super initialize.

  1438 

  1436 

  1440     self initialHeight:(currentFont height + currentFont descent).

  1438     self initialHeight:(currentFont height + currentFont descent).

  1441     adjust := #center.

  1439     adjust := #center.

  1442     labelOriginX := labelOriginY := 0.

  1440     labelOriginX := labelOriginY := 0.

  1443     labelWidth := labelHeight := 0.

  1441     labelWidth := labelHeight := 0.

  1444     logo := nil.

  1442     logo := nil.

  1450 recreate

  1448 recreate

  1451     "after snapin or a migration, labels dimensions may have changed due to

  1449     "after snapin or a migration, labels dimensions may have changed due to

  1452      different font parameters"

  1450      different font parameters"

  1453 

  1451 

  1454     super recreate.

  1452     super recreate.

  1456     self computeLabelSize.

  1453     self computeLabelSize.

  1457     self computeLabelOrigin

  1454     self computeLabelOrigin

  1458 !

  1455 !

  1459 

  1456 

  1460 release

  1457 release