hg/stx-libtool: comparison Launcher.st

equal deleted inserted replaced

-:d1a1ae9d49e4
+:aca73c710a3b
 listView2 bottomInset:(box preferredExtent y - y).
 "/    box width:(400 min:(box device width * 2 // 3));
 "/        height:(450 min:(box device height - 50));
 "/        sizeFixed:true.
-box showAtPointer.
+box open.
 box destroy.
 "Modified: 17.9.1995 / 16:47:50 / claus"
-"Modified: 6.4.1996 / 23:56:46 / cg"
+"Modified: 29.5.1996 / 14:17:07 / cg"
 !
 snapshot
-|saveBox|
+|fileName|
-saveBox := EnterBox title:(resources at:'filename for image:') withCRs.
+fileName := DialogBox
-saveBox okText:(resources at:'save').
+request:(resources at:'filename for image:') withCRs
-saveBox action:[:fileName |
+initialAnswer:(ObjectMemory nameForSnapshot)
-(ObjectMemory snapShotOn:fileName) ifFalse:[
+okLabel:(resources at:'save')
-"
+title:(resources string:'save image')
-snapshot failed for some reason (disk full, no permission etc.)
+onCancel:nil.
-"
-self warn:(resources string:'failed to save snapshot image (disk full or not writable)').
+fileName notNil ifTrue:[
+self withCursor:Cursor write do:[
+(ObjectMemory snapShotOn:fileName) ifFalse:[
+"
+snapshot failed for some reason (disk full, no permission etc.)
+"
+self warn:(resources string:'failed to save snapshot image (disk full or not writable)').
+]
 ]
 ].
-saveBox initialText:(ObjectMemory nameForSnapshot).
+"Modified: 29.5.1996 / 15:02:39 / cg"
-saveBox label:(resources string:'save image').
-saveBox showAtPointer
-"Modified: 27.2.1996 / 01:15:44 / cg"
 !
 snapshotAndExit
-|saveBox|
+|fileName|
-saveBox := EnterBox title:(resources at:'filename for image:') withCRs.
+fileName := DialogBox
-saveBox okText:(resources at:'save & exit').
+request:(resources at:'filename for image:') withCRs
-saveBox action:[:fileName |
+initialAnswer:(ObjectMemory nameForSnapshot)
-(ObjectMemory snapShotOn:fileName) ifFalse:[
+okLabel:(resources at:'save & exit')
-"
+title:(resources string:'save image & exit')
-snapshot failed for some reason (disk full, no permission etc.)
+onCancel:nil.
-Do NOT exit in this case.
-"
+fileName notNil ifTrue:[
-self warn:(resources string:'failed to save snapshot image (disk full or not writable)').
+self withCursor:Cursor write do:[
-] ifTrue:[
+(ObjectMemory snapShotOn:fileName) ifFalse:[
 "
-saveAllViews tells all views to shutdown neatly
+snapshot failed for some reason (disk full, no permission etc.)
-(i.e. offer a chance to save the contents to a file).
+Do NOT exit in this case.
+"
-This is NOT required - all data should be in the snapshot ...
+self warn:(resources string:'failed to save snapshot image (disk full or not writable)').
-... however, if remote disks/mountable filesystems are involved,
+] ifTrue:[
-which may not be present the next time, it may make sense to
+"
-uncomment it and query for saving - time will show which is better.
+saveAllViews tells all views to shutdown neatly
-"
+(i.e. offer a chance to save the contents to a file).
-"
-self saveAllViews.
+This is NOT required - all data should be in the snapshot ...
-"
+... however, if remote disks/mountable filesystems are involved,
-Smalltalk exit
+which may not be present the next time, it may make sense to
+uncomment it and query for saving - time will show which is better.
+"
+"
+self saveAllViews.
+"
+Smalltalk exit
+]
 ]
 ].
-saveBox initialText:(ObjectMemory nameForSnapshot).
+"Modified: 29.5.1996 / 15:03:10 / cg"
-saveBox label:(resources string:'save image & exit').
-saveBox showAtPointer
-"Modified: 27.2.1996 / 01:14:15 / cg"
 ! !
 !NewLauncher methodsFor:'actions - goodies'!
 startCalendar
 addHelpButtonFor:'NewLauncher/compilerSettings.html';
 addAbortButton;
 addOkButton.
 warnEnabler check.
-box showAtPointer.
+box open.
 box accepted ifTrue:[
 HistoryManager notNil ifTrue:[
 historyLines value ifTrue:[
 HistoryManager activate
 ]
 ].
 box destroy
 "Modified: 10.9.1995 / 19:19:18 / claus"
-"Modified: 13.4.1996 / 13:51:37 / cg"
+"Modified: 29.5.1996 / 14:16:44 / cg"
 !
 fontSettings
 (self fontBoxForEncoding:nil) ifTrue:[
 self reopenLauncher.
 addOkButton.
 macroTextView topInset:(l preferredExtent y + 5).
 macroTextView bottomInset:(box preferredExtent y - y).
-box showAtPointer.
+box open.
 box accepted ifTrue:[
 "no action yet ..."
 ].
 box destroy
-"Modified: 26.5.1996 / 12:28:09 / cg"
+"Modified: 29.5.1996 / 14:16:35 / cg"
 !
 languageSetting
 |listOfLanguages translatedLanguages idx language  box|
 ].
 self reopenLauncher.
 ].
 box
 addHelpButtonFor:'NewLauncher/languageSetting.html'.
-box showAtPointer.
+box open.
 box destroy
-"Modified: 18.5.1996 / 15:43:17 / cg"
+"Modified: 29.5.1996 / 14:16:29 / cg"
 !
 memorySettings
 |box check igcLimit igcFreeLimit igcFreeAmount newSpaceSize
 compressLimit
 box addAbortButton; addOkButton.
 "/
 "/ show the box ...
 "/
-box showAtPointer.
+box open.
 "/
 "/ update system settings
 "/
 box accepted ifTrue:[
 ].
 ObjectMemory oldSpaceCompressLimit:compressLimit value.
 ].
 box destroy
-"Modified: 13.4.1996 / 13:51:23 / cg"
+"Modified: 29.5.1996 / 14:16:24 / cg"
 !
 messageSettings
 |box vmInfo vmErrors displayErrors classInfos|
 box addCheckBox:(resources string:'Display error messages (Xlib, Xtlib ...)') on:displayErrors.
 box addCheckBox:(resources string:'Other info messages') on:classInfos.
 box addAbortButton; addOkButton.
-box showAtPointer.
+box open.
 box accepted ifTrue:[
-	ObjectMemory infoPrinting:vmInfo value.
+ObjectMemory infoPrinting:vmInfo value.
-	ObjectMemory debugPrinting:vmErrors value.
+ObjectMemory debugPrinting:vmErrors value.
-	Object infoPrinting:classInfos value.
+Object infoPrinting:classInfos value.
-	DeviceWorkstation errorPrinting:displayErrors value.
+DeviceWorkstation errorPrinting:displayErrors value.
 ].
 box destroy
+"Modified: 29.5.1996 / 14:16:19 / cg"
 !
 miscSettings
 |box check logDoits shadows updChanges changeFileName returnFocus
 loadBinaries compileLazy hostNameInLabel useManager localSourceFirst
 addOkButton.
 "/
 "/ show the box ...
 "/
-box showAtPointer.
+box open.
 "/
 "/ update system settings
 "/
 box accepted ifTrue:[
 Smalltalk at:#SourceCodeManager put:nil
 ]
 ].
 box destroy
-"Modified: 30.4.1996 / 09:23:12 / cg"
+"Modified: 29.5.1996 / 14:16:14 / cg"
 !
 printerSettings
 |box
 possiblePrinters possibleTypes printerType printCommand printerList
 component list:commandList.
 box addVerticalSpace.
 box addAbortButton; addOkButton.
-box showAtPointer.
+box open.
 box accepted ifTrue:[
 Printer printCommand:printCommand value.
 Printer := possiblePrinters at:(printerType selectionIndex).
 ].
 box destroy
-"Modified: 23.4.1996 / 18:23:47 / cg"
+"Modified: 29.5.1996 / 14:15:46 / cg"
 !
 viewStyleSetting
 |listOfStyles resourceDir dir box
 list listView scrView infoLabel infoForwarder newStyle|
 box addAbortButton; addOkButton.
 list selection:(View defaultStyle).
 box stickAtBottomWithVariableHeight:scrView.
 box stickAtBottomWithFixHeight:infoLabel.
-box showAtPointer.
+box open.
 box accepted ifTrue:[
 newStyle := list selection.
 newStyle notNil ifTrue:[
 self withWaitCursorDo:[
 self reopenLauncher.
 ]
 ].
 box destroy
-"Modified: 26.5.1996 / 12:27:44 / cg"
+"Modified: 29.5.1996 / 14:16:04 / cg"
 ! !
 !NewLauncher methodsFor:'actions - tools'!
 compressingGarbageCollect
 ! !
 !NewLauncher class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.130 1996-05-28 19:05:11 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.131 1996-05-29 13:18:11 cg Exp $'
 ! !

changeset 582	aca73c710a3b
parent 580	71a1b9e1ee81
child 589	ce36a65f07a1