equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1992 by Claus Gittinger |
2 COPYRIGHT (c) 1992 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 |
1446 lbl origin:(0.0@0.0) corner:(1.0@0.0). |
1444 lbl origin:(0.0@0.0) corner:(1.0@0.0). |
1447 h := lbl preferredHeight. |
1445 h := lbl preferredHeight. |
1448 lbl |
1446 lbl |
1449 topInset:5; |
1447 topInset:5; |
1450 bottomInset:(h+5) negated; |
1448 bottomInset:(h+5) negated; |
1451 leftInset:5; |
1449 leftInset:5 rightInset:5. |
1452 rightInset:5. |
|
1453 |
1450 |
1454 progress := ProgressIndicator in:top. |
1451 progress := ProgressIndicator in:top. |
1455 progress origin:(0.0@45) corner:(1.0@45). |
1452 progress origin:(0.0@45) corner:(1.0@45). |
1456 progress level:-1. |
1453 progress level:-1. |
1457 h := progress preferredHeight. |
1454 h := progress preferredHeight. |
1808 " |
1805 " |
1809 |
1806 |
1810 "Created: / 02-02-1998 / 23:58:04 / cg" |
1807 "Created: / 02-02-1998 / 23:58:04 / cg" |
1811 "Modified: / 10-07-1998 / 17:22:06 / cg" |
1808 "Modified: / 10-07-1998 / 17:22:06 / cg" |
1812 "Modified: / 21-02-2017 / 09:49:40 / stefan" |
1809 "Modified: / 21-02-2017 / 09:49:40 / stefan" |
1813 "Modified: / 01-03-2019 / 16:04:48 / Claus Gittinger" |
|
1814 "Modified: / 11-04-2019 / 15:56:16 / Stefan Vogel" |
1810 "Modified: / 11-04-2019 / 15:56:16 / Stefan Vogel" |
|
1811 "Modified: / 16-07-2019 / 16:38:21 / Claus Gittinger" |
1815 ! |
1812 ! |
1816 |
1813 |
1817 dumpObject:someObject |
1814 dumpObject:someObject |
1818 "low level dump an object. |
1815 "low level dump an object. |
1819 WARNING: this method is for ST/X debugging only |
1816 WARNING: this method is for ST/X debugging only |