diff --git a/scripts/gemtools.st b/scripts/gemtools.st index 4c84487..c88eace 100644 --- a/scripts/gemtools.st +++ b/scripts/gemtools.st @@ -5,4 +5,34 @@ Gofer new load. ! ConfigurationOfGemTools loadLatestVersion. +OGLauncherNode + addSessionWithDescription: + (OGStandardSessionDescription new + name: 'Seaside'; + stoneHost: 'localhost'; + stoneName: 'seaside'; + gemHost: 'localhost'; + netLDI: '50377`'; + userId: 'DataCurator'; + password: 'swordfish'; + backupDirectory: ''; + yourself). +OGLauncherNode + addSessionWithDescription: + (OGStandardSessionDescription new + name: 'MagLev'; + stoneHost: 'localhost'; + stoneName: 'maglev'; + gemHost: 'localhost'; + netLDI: '50378'; + userId: 'DataCurator'; + password: 'swordfish'; + backupDirectory: ''; + yourself). +Transcript clear. +SystemWindow allSubInstancesDo: + [:window | ({ Transcript class. } + anySatisfy: [:wantedClass | + window model isKindOf: wantedClass]) + ifFalse: [window delete]]. OGLauncher open.