equal
deleted
inserted
replaced
1416 ]. |
1416 ]. |
1417 stxPackageDirectory isNil ifTrue:[ |
1417 stxPackageDirectory isNil ifTrue:[ |
1418 topDirectory := OperatingSystem getHomeDirectory asFilename. |
1418 topDirectory := OperatingSystem getHomeDirectory asFilename. |
1419 ] ifFalse:[ |
1419 ] ifFalse:[ |
1420 topDirectory := stxPackageDirectory directory. |
1420 topDirectory := stxPackageDirectory directory. |
|
1421 "/ a hack to make it look nicer on mac... (shows Packages otherwise) |
|
1422 topDirectory baseName = 'Packages' ifTrue:[ |
|
1423 topDirectory := topDirectory directory |
|
1424 ]. |
1421 ]. |
1425 ]. |
1422 lbl := windowLabelFormat |
1426 lbl := windowLabelFormat |
1423 bindWith:labelString |
1427 bindWith:labelString |
1424 with:[OperatingSystem getHostName] |
1428 with:[OperatingSystem getHostName] |
1425 with:[OperatingSystem getLoginName] |
1429 with:[OperatingSystem getLoginName] |
1707 ! ! |
1711 ! ! |
1708 |
1712 |
1709 !StandardSystemView class methodsFor:'documentation'! |
1713 !StandardSystemView class methodsFor:'documentation'! |
1710 |
1714 |
1711 version |
1715 version |
1712 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.221 2014-06-11 13:59:15 cg Exp $' |
1716 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.222 2014-06-29 14:17:45 cg Exp $' |
1713 ! |
1717 ! |
1714 |
1718 |
1715 version_CVS |
1719 version_CVS |
1716 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.221 2014-06-11 13:59:15 cg Exp $' |
1720 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.222 2014-06-29 14:17:45 cg Exp $' |
1717 ! ! |
1721 ! ! |
1718 |
1722 |
1719 |
1723 |
1720 StandardSystemView initialize! |
1724 StandardSystemView initialize! |