306 |
306 |
307 ) |
307 ) |
308 ) |
308 ) |
309 ! ! |
309 ! ! |
310 |
310 |
|
311 !SettingsDialog class methodsFor:'menu actions'! |
|
312 |
|
313 saveSettingsIn:fileName |
|
314 "save settings to a settings-file." |
|
315 |
|
316 "a temporary kludge - we need a central systemSettings object for this, |
|
317 which can be saved/restored with a single store/read. |
|
318 Will move entries over to UserPreferences over time; |
|
319 new items should always go there." |
|
320 |
|
321 |resources s screen currentUserPrefs| |
|
322 |
|
323 resources := AbstractSettingsApplication classResources. |
|
324 |
|
325 s := fileName asFilename writeStream. |
|
326 s isNil ifTrue:[ |
|
327 self warn:(resources string:'Cannot write the %1 file !!' with:fileName). |
|
328 ^ self |
|
329 ]. |
|
330 |
|
331 currentUserPrefs := UserPreferences current. |
|
332 screen := Screen current. |
|
333 |
|
334 s nextPutLine:'"/ ST/X saved settings'; |
|
335 nextPutLine:'"/ DO NOT MODIFY MANUALLY'; |
|
336 nextPutLine:'"/ (modifications would be lost with next save-settings)'; |
|
337 nextPutLine:'"/'; |
|
338 nextPutLine:'"/ this file was automatically generated by the'; |
|
339 nextPutLine:'"/ ''save settings'' function of the Launcher'; |
|
340 nextPutLine:'"/'. |
|
341 s cr. |
|
342 |
|
343 s nextPutLine:'"/'. |
|
344 s nextPutLine:'"/ saved by ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName , ' at ' , AbsoluteTime now printString. |
|
345 s nextPutLine:'"/'. |
|
346 s cr. |
|
347 |
|
348 s nextPutLine:'"/'. |
|
349 s nextPutLine:'"/ Display settings:'. |
|
350 s nextPutLine:'"/'. |
|
351 s nextPutLine:'"/ only restore the display settings, if on the same Display ...'. |
|
352 s nextPutLine:'Display notNil ifTrue:['. |
|
353 s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['. |
|
354 screen fixColors notNil ifTrue:[ |
|
355 s nextPutLine:' Image flushDeviceImages.'. |
|
356 s nextPutLine:' Color colorAllocationFailSignal catch:['. |
|
357 s nextPutLine:' Color getColorsRed:6 green:6 blue:4 on:Display'. |
|
358 s nextPutLine:' ].'. |
|
359 ] ifFalse:[ |
|
360 s nextPutLine:' Display releaseFixColors.'. |
|
361 ]. |
|
362 s nextPutLine:' Display hasColors: ' , (screen hasColors storeString) , '.'. |
|
363 s nextPutLine:' Display widthInMillimeter: ' , (screen widthInMillimeter storeString) , '.'. |
|
364 s nextPutLine:' Display heightInMillimeter: ' , (screen heightInMillimeter storeString) , '.'. |
|
365 s nextPutLine:' Display supportsDeepIcons: ' , (screen supportsDeepIcons storeString) , '.'. |
|
366 s nextPutLine:' Image ditherAlgorithm: ' , (Image ditherAlgorithm storeString) , '.'. |
|
367 s nextPutLine:' View defaultStyle:' , View defaultStyle storeString , '.'. |
|
368 s nextPutLine:' ].'. |
|
369 s nextPutLine:'].'. |
|
370 s cr. |
|
371 |
|
372 s nextPutLine:'"/'. |
|
373 s nextPutLine:'"/ Compiler settings:'. |
|
374 s nextPutLine:'"/'. |
|
375 s nextPutLine:'Compiler warnSTXSpecials: ' , (Compiler warnSTXSpecials storeString) , '.'; |
|
376 nextPutLine:'Compiler warnUnderscoreInIdentifier: ' , (Compiler warnUnderscoreInIdentifier storeString) , '.'; |
|
377 nextPutLine:'Compiler warnOldStyleAssignment: ' , (Compiler warnOldStyleAssignment storeString) , '.'; |
|
378 nextPutLine:'Compiler warnCommonMistakes: ' , (Compiler warnCommonMistakes storeString) , '.'; |
|
379 nextPutLine:'Compiler warnPossibleIncompatibilities: ' , (Compiler warnPossibleIncompatibilities storeString) , '.'; |
|
380 nextPutLine:'Compiler allowUnderscoreInIdentifier: ' , (Compiler allowUnderscoreInIdentifier storeString) , '.'; |
|
381 nextPutLine:'Compiler allowSqueakExtensions: ' , (Compiler allowSqueakExtensions storeString) , '.'; |
|
382 nextPutLine:'Compiler allowDolphinExtensions: ' , (Compiler allowDolphinExtensions storeString) , '.'; |
|
383 nextPutLine:'Compiler arraysAreImmutable: ' , (Compiler arraysAreImmutable storeString) , '.'; |
|
384 nextPutLine:'Compiler lineNumberInfo: ' , (Compiler lineNumberInfo storeString) , '.'; |
|
385 |
|
386 nextPutLine:'Compiler foldConstants: ' , (Compiler foldConstants storeString) , '.'; |
|
387 nextPutLine:'Compiler stcCompilation: ' , (Compiler stcCompilation storeString) , '.'; |
|
388 nextPutLine:'OperatingSystem getOSType = ' , (OperatingSystem getOSType storeString) , ' ifTrue:['; |
|
389 nextPutLine:' Compiler stcCompilationIncludes: ' , (Compiler stcCompilationIncludes storeString) , '.'; |
|
390 nextPutLine:' Compiler stcCompilationDefines: ' , (Compiler stcCompilationDefines storeString) , '.'; |
|
391 nextPutLine:' Compiler stcCompilationOptions: ' , (Compiler stcCompilationOptions storeString) , '.'; |
|
392 nextPutLine:' ' , (Compiler stcModulePath storeString) , ' asFilename exists ifTrue:['; |
|
393 nextPutLine:' Compiler stcModulePath: ' , (Compiler stcModulePath storeString) , '.'; |
|
394 nextPutLine:' ].'; |
|
395 nextPutLine:' Compiler stcPath: ' , (Compiler stcPath storeString) , '.'; |
|
396 nextPutLine:' Compiler ccCompilationOptions: ' , (Compiler ccCompilationOptions storeString) , '.'; |
|
397 nextPutLine:' Compiler ccPath: ' , (Compiler ccPath storeString) , '.'; |
|
398 nextPutLine:' ObjectFileLoader linkArgs: ' , (ObjectFileLoader linkArgs storeString) , '.'; |
|
399 nextPutLine:' ObjectFileLoader linkCommand: ' , (ObjectFileLoader linkCommand storeString) , '.'; |
|
400 nextPutLine:' ObjectFileLoader libPath: ' , (ObjectFileLoader libPath storeString) , '.'; |
|
401 nextPutLine:' ObjectFileLoader searchedLibraries: ' , (ObjectFileLoader searchedLibraries storeString) , '.'; |
|
402 nextPutLine:'].'; |
|
403 |
|
404 nextPutLine:'ObjectMemory justInTimeCompilation: ' , (ObjectMemory justInTimeCompilation storeString) , '.'; |
|
405 nextPutLine:'ObjectMemory fullSingleStepSupport: ' , (ObjectMemory fullSingleStepSupport storeString) , '.'. |
|
406 |
|
407 HistoryManager notNil ifTrue:[ |
|
408 HistoryManager isActive ifTrue:[ |
|
409 s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager activate].'. |
|
410 s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager fullHistoryUpdate:' , HistoryManager fullHistoryUpdate storeString , '].'. |
|
411 ] ifFalse:[ |
|
412 s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager deactivate].'. |
|
413 ]. |
|
414 ]. |
|
415 |
|
416 ObjectFileLoader notNil ifTrue:[ |
|
417 s nextPutLine:'ObjectFileLoader searchedLibraries: ' , (ObjectFileLoader searchedLibraries storeString) , '.'. |
|
418 s nextPutLine:'ObjectFileLoader libPath: ' , (ObjectFileLoader libPath storeString) , '.'. |
|
419 ]. |
|
420 |
|
421 s nextPutLine:'Class catchMethodRedefinitions: ' , (Class catchMethodRedefinitions storeString) , '.'. |
|
422 s nextPutLine:'ClassCategoryReader sourceMode: ' , (ClassCategoryReader sourceMode storeString) , '.'. |
|
423 |
|
424 s cr. |
|
425 s nextPutLine:'"/'. |
|
426 s nextPutLine:'"/ Info & Debug Messages:'. |
|
427 s nextPutLine:'"/'. |
|
428 s nextPutLine:'ObjectMemory infoPrinting: ' , (ObjectMemory infoPrinting storeString) , '.'; |
|
429 nextPutLine:'ObjectMemory debugPrinting: ' , (ObjectMemory debugPrinting storeString) , '.'; |
|
430 nextPutLine:'Object infoPrinting: ' , (Object infoPrinting storeString) , '.'; |
|
431 nextPutLine:'DeviceWorkstation errorPrinting: ' , (DeviceWorkstation errorPrinting storeString) , '.'. |
|
432 |
|
433 FlyByHelp isActive ifTrue:[ |
|
434 s nextPutLine:'FlyByHelp start.' |
|
435 ]. |
|
436 |
|
437 s cr. |
|
438 s nextPutLine:'"/'. |
|
439 s nextPutLine:'"/ Edit settings:'. |
|
440 s nextPutLine:'"/'. |
|
441 "/ s nextPutLine:'EditTextView st80Mode: ' , (EditTextView st80Mode storeString) , '.'. |
|
442 s nextPutLine:'TextView st80SelectMode: ' , (TextView st80SelectMode storeString) , '.'. |
|
443 s nextPutLine:'UserPreferences current syntaxColoring: ' , (currentUserPrefs syntaxColoring storeString) , '.'. |
|
444 (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[ |
|
445 s nextPutLine:'ListView userDefaultTabPositions:(ListView tab4Positions).'. |
|
446 ] ifFalse:[ |
|
447 s nextPutLine:'ListView userDefaultTabPositions:(ListView tab8Positions).'. |
|
448 ]. |
|
449 |
|
450 s nextPutLine:'"/'. |
|
451 s nextPutLine:'"/ User preference values:'. |
|
452 s nextPutLine:'"/'. |
|
453 currentUserPrefs keysAndValuesDo:[:k :v | |
|
454 (UserPreferences includesSelector:(k , ':') asSymbol) ifTrue:[ |
|
455 s nextPutLine:'UserPreferences current ' , k , ':' , v storeString , '.'. |
|
456 ] ifFalse:[ |
|
457 s nextPutLine:'UserPreferences current at:' , k storeString , ' put:' , v storeString , '.'. |
|
458 ] |
|
459 ]. |
|
460 |
|
461 s cr. |
|
462 s nextPutLine:'"/'. |
|
463 s nextPutLine:'"/ Misc settings:'. |
|
464 s nextPutLine:'"/'. |
|
465 s nextPutLine:'Class keepMethodHistory: ' , (Class methodHistory notNil storeString) , '.'; |
|
466 nextPutLine:'Smalltalk logDoits: ' , (Smalltalk logDoits storeString) , '.'; |
|
467 nextPutLine:'Autoload compileLazy: ' , (Autoload compileLazy storeString) , '.'; |
|
468 nextPutLine:'Smalltalk loadBinaries: ' , (Smalltalk loadBinaries storeString) , '.'; |
|
469 nextPutLine:'StandardSystemView includeHostNameInLabel: ' , (StandardSystemView includeHostNameInLabel storeString) , '.'; |
|
470 |
|
471 "/ claus - I dont think its a good idea to save those ... |
|
472 nextPutLine:'"/ Class updateChanges: ' , (Class updatingChanges storeString) , '.'; |
|
473 nextPutLine:'"/ ObjectMemory nameForChanges: ' , (ObjectMemory nameForChanges storeString) , '.'; |
|
474 |
|
475 nextPutLine:'StandardSystemView returnFocusWhenClosingModalBoxes: ' , (StandardSystemView returnFocusWhenClosingModalBoxes storeString) , '.'; |
|
476 nextPutLine:'StandardSystemView takeFocusWhenMapped: ' , (StandardSystemView takeFocusWhenMapped storeString) , '.'; |
|
477 nextPutLine:'Display notNil ifTrue:['; |
|
478 nextPutLine:' Display activateOnClick: ' , ((screen activateOnClick:nil) storeString) , '.'; |
|
479 nextPutLine:'].'; |
|
480 nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.'; |
|
481 nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'. |
|
482 (Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[ |
|
483 s nextPutLine:'Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler).'. |
|
484 ]. |
|
485 Processor isTimeSlicing ifTrue:[ |
|
486 s nextPutLine:'Processor startTimeSlicing.'. |
|
487 s nextPutLine:('Processor supportDynamicPriorities:' , (Processor supportDynamicPriorities ? false) storeString , '.'). |
|
488 ] ifFalse:[ |
|
489 s nextPutLine:'Processor stopTimeSlicing.'. |
|
490 ]. |
|
491 |
|
492 s cr. |
|
493 s nextPutLine:'"/'. |
|
494 s nextPutLine:'"/ Printer settings:'. |
|
495 s nextPutLine:'"/'. |
|
496 s nextPutLine:'Printer := ' , (Printer name) , '.'; |
|
497 nextPutLine:'Printer printCommand: ' , (Printer printCommand storeString) , '.'. |
|
498 |
|
499 Printer supportsPageSizes ifTrue:[ |
|
500 s nextPutLine:'Printer pageFormat: ' , (Printer pageFormat storeString) , '.'. |
|
501 s nextPutLine:'Printer landscape: ' , (Printer landscape storeString) , '.'. |
|
502 ]. |
|
503 Printer supportsMargins ifTrue:[ |
|
504 s nextPutLine:'Printer topMargin: ' , (Printer topMargin storeString) , '.'. |
|
505 s nextPutLine:'Printer leftMargin: ' , (Printer leftMargin storeString) , '.'. |
|
506 s nextPutLine:'Printer rightMargin: ' , (Printer rightMargin storeString) , '.'. |
|
507 s nextPutLine:'Printer bottomMargin: ' , (Printer bottomMargin storeString) , '.'. |
|
508 ]. |
|
509 Printer supportsPostscript ifTrue:[ |
|
510 s nextPutLine:'Printer supportsColor: ' , (Printer supportsColor storeString) , '.'. |
|
511 ]. |
|
512 |
|
513 s cr. |
|
514 s nextPutLine:'"/'. |
|
515 s nextPutLine:'"/ Font settings:'. |
|
516 s nextPutLine:'"/ (only restored, if image is restarted on the same display)'. |
|
517 s nextPutLine:'"/'. |
|
518 s nextPutLine:'Display notNil ifTrue:['. |
|
519 s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['. |
|
520 s nextPutLine:' View defaultFont: ' , (View defaultFont storeString) , '.'. |
|
521 s nextPutLine:' Label defaultFont: ' , (Label defaultFont storeString) , '.'. |
|
522 s nextPutLine:' Button defaultFont: ' , (Button defaultFont storeString) , '.'. |
|
523 s nextPutLine:' Toggle defaultFont: ' , (Toggle defaultFont storeString) , '.'. |
|
524 s nextPutLine:' SelectionInListView defaultFont: ' , (SelectionInListView defaultFont storeString) , '.'. |
|
525 s nextPutLine:' MenuView defaultFont: ' , (MenuView defaultFont storeString) , '.'. |
|
526 s nextPutLine:' PullDownMenu defaultFont: ' , (PullDownMenu defaultFont storeString) , '.'. |
|
527 s nextPutLine:' TextView defaultFont: ' , (TextView defaultFont storeString) , '.'. |
|
528 s nextPutLine:' EditTextView defaultFont: ' , (EditTextView defaultFont storeString) , '.'. |
|
529 s nextPutLine:' CodeView defaultFont: ' , (CodeView defaultFont storeString) , '.'. |
|
530 s nextPutLine:' ].'. |
|
531 s nextPutLine:'].'. |
|
532 |
|
533 s cr. |
|
534 s nextPutLine:'"/'. |
|
535 s nextPutLine:'"/ Language setting:'. |
|
536 s nextPutLine:'"/'. |
|
537 s nextPutLine:'Smalltalk language: ' , (Smalltalk language storeString) , '.'. |
|
538 s nextPutLine:'Smalltalk languageTerritory: ' , (Smalltalk languageTerritory storeString) , '.'. |
|
539 |
|
540 s cr. |
|
541 s nextPutLine:'"/'. |
|
542 s nextPutLine:'"/ SourceCodeManager settings:'. |
|
543 s nextPutLine:'"/ (only restored, if image is restarted on the same host)'. |
|
544 s nextPutLine:'"/'. |
|
545 s nextPutLine:'OperatingSystem getHostName = ' , (OperatingSystem getHostName storeString) , ' ifTrue:['. |
|
546 s nextPutLine:' Class tryLocalSourceFirst:' , Class tryLocalSourceFirst storeString , '.'. |
|
547 (Smalltalk at:#SourceCodeManager) == CVSSourceCodeManager ifTrue:[ |
|
548 s nextPutLine:' Smalltalk at:#SourceCodeManager put: CVSSourceCodeManager.'. |
|
549 s nextPutLine:' AbstractSourceCodeManager cacheDirectoryName:' , AbstractSourceCodeManager cacheDirectoryName storeString , '.'. |
|
550 s nextPutLine:' CVSSourceCodeManager cvsBinDirectory:' , CVSSourceCodeManager cvsBinDirectory storeString , '.'. |
|
551 s nextPutLine:' CVSSourceCodeManager repositoryNamesPerModule:' , CVSSourceCodeManager repositoryNamesPerModule storeString , '.'. |
|
552 s nextPutLine:' CVSSourceCodeManager initializeForRepository:' , CVSSourceCodeManager repositoryName storeString , '.'. |
|
553 ]. |
|
554 s nextPutLine:'].'. |
|
555 |
|
556 s close. |
|
557 |
|
558 " |
|
559 Transcript topView application saveSettings |
|
560 " |
|
561 |
|
562 "Modified: / 6.1.1999 / 14:24:16 / cg" |
|
563 ! ! |
|
564 |
311 !SettingsDialog class methodsFor:'menu specs'! |
565 !SettingsDialog class methodsFor:'menu specs'! |
312 |
566 |
313 mainMenu |
567 mainMenu |
314 "This resource specification was automatically generated |
568 "This resource specification was automatically generated |
315 by the MenuEditor of ST/X." |
569 by the MenuEditor of ST/X." |
830 pattern:'*.stx' |
1084 pattern:'*.stx' |
831 fromDirectory:'.'. |
1085 fromDirectory:'.'. |
832 |
1086 |
833 fileName size ~~ 0 ifTrue:[ |
1087 fileName size ~~ 0 ifTrue:[ |
834 "not canceled" |
1088 "not canceled" |
835 self saveSettingsIn:fileName. |
1089 self class saveSettingsIn:fileName. |
836 ] |
1090 ] |
837 ! |
|
838 |
|
839 saveSettingsIn:fileName |
|
840 "save settings to a settings-file." |
|
841 |
|
842 "a temporary kludge - we need a central systemSettings object for this, |
|
843 which can be saved/restored with a single store/read. |
|
844 Will move entries over to UserPreferences over time; |
|
845 new items should always go there." |
|
846 |
|
847 |resources s screen currentUserPrefs| |
|
848 |
|
849 resources := AbstractSettingsApplication classResources. |
|
850 |
|
851 s := fileName asFilename writeStream. |
|
852 s isNil ifTrue:[ |
|
853 self warn:(resources string:'Cannot write the %1 file !!' with:fileName). |
|
854 ^ self |
|
855 ]. |
|
856 |
|
857 currentUserPrefs := UserPreferences current. |
|
858 screen := Screen current. |
|
859 |
|
860 s nextPutLine:'"/ ST/X saved settings'; |
|
861 nextPutLine:'"/ DO NOT MODIFY MANUALLY'; |
|
862 nextPutLine:'"/ (modifications would be lost with next save-settings)'; |
|
863 nextPutLine:'"/'; |
|
864 nextPutLine:'"/ this file was automatically generated by the'; |
|
865 nextPutLine:'"/ ''save settings'' function of the Launcher'; |
|
866 nextPutLine:'"/'. |
|
867 s cr. |
|
868 |
|
869 s nextPutLine:'"/'. |
|
870 s nextPutLine:'"/ saved by ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName , ' at ' , AbsoluteTime now printString. |
|
871 s nextPutLine:'"/'. |
|
872 s cr. |
|
873 |
|
874 s nextPutLine:'"/'. |
|
875 s nextPutLine:'"/ Display settings:'. |
|
876 s nextPutLine:'"/'. |
|
877 s nextPutLine:'"/ only restore the display settings, if on the same Display ...'. |
|
878 s nextPutLine:'Display notNil ifTrue:['. |
|
879 s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['. |
|
880 screen fixColors notNil ifTrue:[ |
|
881 s nextPutLine:' Image flushDeviceImages.'. |
|
882 s nextPutLine:' Color colorAllocationFailSignal catch:['. |
|
883 s nextPutLine:' Color getColorsRed:6 green:6 blue:4 on:Display'. |
|
884 s nextPutLine:' ].'. |
|
885 ] ifFalse:[ |
|
886 s nextPutLine:' Display releaseFixColors.'. |
|
887 ]. |
|
888 s nextPutLine:' Display hasColors: ' , (screen hasColors storeString) , '.'. |
|
889 s nextPutLine:' Display widthInMillimeter: ' , (screen widthInMillimeter storeString) , '.'. |
|
890 s nextPutLine:' Display heightInMillimeter: ' , (screen heightInMillimeter storeString) , '.'. |
|
891 s nextPutLine:' Display supportsDeepIcons: ' , (screen supportsDeepIcons storeString) , '.'. |
|
892 s nextPutLine:' Image ditherAlgorithm: ' , (Image ditherAlgorithm storeString) , '.'. |
|
893 s nextPutLine:' View defaultStyle:' , View defaultStyle storeString , '.'. |
|
894 s nextPutLine:' ].'. |
|
895 s nextPutLine:'].'. |
|
896 s cr. |
|
897 |
|
898 s nextPutLine:'"/'. |
|
899 s nextPutLine:'"/ Compiler settings:'. |
|
900 s nextPutLine:'"/'. |
|
901 s nextPutLine:'Compiler warnSTXSpecials: ' , (Compiler warnSTXSpecials storeString) , '.'; |
|
902 nextPutLine:'Compiler warnUnderscoreInIdentifier: ' , (Compiler warnUnderscoreInIdentifier storeString) , '.'; |
|
903 nextPutLine:'Compiler warnOldStyleAssignment: ' , (Compiler warnOldStyleAssignment storeString) , '.'; |
|
904 nextPutLine:'Compiler warnCommonMistakes: ' , (Compiler warnCommonMistakes storeString) , '.'; |
|
905 nextPutLine:'Compiler warnPossibleIncompatibilities: ' , (Compiler warnPossibleIncompatibilities storeString) , '.'; |
|
906 nextPutLine:'Compiler allowUnderscoreInIdentifier: ' , (Compiler allowUnderscoreInIdentifier storeString) , '.'; |
|
907 nextPutLine:'Compiler allowSqueakExtensions: ' , (Compiler allowSqueakExtensions storeString) , '.'; |
|
908 nextPutLine:'Compiler allowDolphinExtensions: ' , (Compiler allowDolphinExtensions storeString) , '.'; |
|
909 nextPutLine:'Compiler arraysAreImmutable: ' , (Compiler arraysAreImmutable storeString) , '.'; |
|
910 nextPutLine:'Compiler lineNumberInfo: ' , (Compiler lineNumberInfo storeString) , '.'; |
|
911 |
|
912 nextPutLine:'Compiler foldConstants: ' , (Compiler foldConstants storeString) , '.'; |
|
913 nextPutLine:'Compiler stcCompilation: ' , (Compiler stcCompilation storeString) , '.'; |
|
914 nextPutLine:'OperatingSystem getOSType = ' , (OperatingSystem getOSType storeString) , ' ifTrue:['; |
|
915 nextPutLine:' Compiler stcCompilationIncludes: ' , (Compiler stcCompilationIncludes storeString) , '.'; |
|
916 nextPutLine:' Compiler stcCompilationDefines: ' , (Compiler stcCompilationDefines storeString) , '.'; |
|
917 nextPutLine:' Compiler stcCompilationOptions: ' , (Compiler stcCompilationOptions storeString) , '.'; |
|
918 nextPutLine:' ' , (Compiler stcModulePath storeString) , ' asFilename exists ifTrue:['; |
|
919 nextPutLine:' Compiler stcModulePath: ' , (Compiler stcModulePath storeString) , '.'; |
|
920 nextPutLine:' ].'; |
|
921 nextPutLine:' Compiler stcPath: ' , (Compiler stcPath storeString) , '.'; |
|
922 nextPutLine:' Compiler ccCompilationOptions: ' , (Compiler ccCompilationOptions storeString) , '.'; |
|
923 nextPutLine:' Compiler ccPath: ' , (Compiler ccPath storeString) , '.'; |
|
924 nextPutLine:' ObjectFileLoader linkArgs: ' , (ObjectFileLoader linkArgs storeString) , '.'; |
|
925 nextPutLine:' ObjectFileLoader linkCommand: ' , (ObjectFileLoader linkCommand storeString) , '.'; |
|
926 nextPutLine:' ObjectFileLoader libPath: ' , (ObjectFileLoader libPath storeString) , '.'; |
|
927 nextPutLine:' ObjectFileLoader searchedLibraries: ' , (ObjectFileLoader searchedLibraries storeString) , '.'; |
|
928 nextPutLine:'].'; |
|
929 |
|
930 nextPutLine:'ObjectMemory justInTimeCompilation: ' , (ObjectMemory justInTimeCompilation storeString) , '.'; |
|
931 nextPutLine:'ObjectMemory fullSingleStepSupport: ' , (ObjectMemory fullSingleStepSupport storeString) , '.'. |
|
932 |
|
933 HistoryManager notNil ifTrue:[ |
|
934 HistoryManager isActive ifTrue:[ |
|
935 s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager activate].'. |
|
936 s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager fullHistoryUpdate:' , HistoryManager fullHistoryUpdate storeString , '].'. |
|
937 ] ifFalse:[ |
|
938 s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager deactivate].'. |
|
939 ]. |
|
940 ]. |
|
941 |
|
942 ObjectFileLoader notNil ifTrue:[ |
|
943 s nextPutLine:'ObjectFileLoader searchedLibraries: ' , (ObjectFileLoader searchedLibraries storeString) , '.'. |
|
944 s nextPutLine:'ObjectFileLoader libPath: ' , (ObjectFileLoader libPath storeString) , '.'. |
|
945 ]. |
|
946 |
|
947 s nextPutLine:'Class catchMethodRedefinitions: ' , (Class catchMethodRedefinitions storeString) , '.'. |
|
948 s nextPutLine:'ClassCategoryReader sourceMode: ' , (ClassCategoryReader sourceMode storeString) , '.'. |
|
949 |
|
950 s cr. |
|
951 s nextPutLine:'"/'. |
|
952 s nextPutLine:'"/ Info & Debug Messages:'. |
|
953 s nextPutLine:'"/'. |
|
954 s nextPutLine:'ObjectMemory infoPrinting: ' , (ObjectMemory infoPrinting storeString) , '.'; |
|
955 nextPutLine:'ObjectMemory debugPrinting: ' , (ObjectMemory debugPrinting storeString) , '.'; |
|
956 nextPutLine:'Object infoPrinting: ' , (Object infoPrinting storeString) , '.'; |
|
957 nextPutLine:'DeviceWorkstation errorPrinting: ' , (DeviceWorkstation errorPrinting storeString) , '.'. |
|
958 |
|
959 FlyByHelp isActive ifTrue:[ |
|
960 s nextPutLine:'FlyByHelp start.' |
|
961 ]. |
|
962 |
|
963 s cr. |
|
964 s nextPutLine:'"/'. |
|
965 s nextPutLine:'"/ Edit settings:'. |
|
966 s nextPutLine:'"/'. |
|
967 "/ s nextPutLine:'EditTextView st80Mode: ' , (EditTextView st80Mode storeString) , '.'. |
|
968 s nextPutLine:'TextView st80SelectMode: ' , (TextView st80SelectMode storeString) , '.'. |
|
969 s nextPutLine:'UserPreferences current syntaxColoring: ' , (currentUserPrefs syntaxColoring storeString) , '.'. |
|
970 (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[ |
|
971 s nextPutLine:'ListView userDefaultTabPositions:(ListView tab4Positions).'. |
|
972 ] ifFalse:[ |
|
973 s nextPutLine:'ListView userDefaultTabPositions:(ListView tab8Positions).'. |
|
974 ]. |
|
975 |
|
976 s nextPutLine:'"/'. |
|
977 s nextPutLine:'"/ User preference values:'. |
|
978 s nextPutLine:'"/'. |
|
979 currentUserPrefs keysAndValuesDo:[:k :v | |
|
980 (UserPreferences includesSelector:(k , ':') asSymbol) ifTrue:[ |
|
981 s nextPutLine:'UserPreferences current ' , k , ':' , v storeString , '.'. |
|
982 ] ifFalse:[ |
|
983 s nextPutLine:'UserPreferences current at:' , k storeString , ' put:' , v storeString , '.'. |
|
984 ] |
|
985 ]. |
|
986 |
|
987 s cr. |
|
988 s nextPutLine:'"/'. |
|
989 s nextPutLine:'"/ Misc settings:'. |
|
990 s nextPutLine:'"/'. |
|
991 s nextPutLine:'Class keepMethodHistory: ' , (Class methodHistory notNil storeString) , '.'; |
|
992 nextPutLine:'Smalltalk logDoits: ' , (Smalltalk logDoits storeString) , '.'; |
|
993 nextPutLine:'Autoload compileLazy: ' , (Autoload compileLazy storeString) , '.'; |
|
994 nextPutLine:'Smalltalk loadBinaries: ' , (Smalltalk loadBinaries storeString) , '.'; |
|
995 nextPutLine:'StandardSystemView includeHostNameInLabel: ' , (StandardSystemView includeHostNameInLabel storeString) , '.'; |
|
996 |
|
997 "/ claus - I dont think its a good idea to save those ... |
|
998 nextPutLine:'"/ Class updateChanges: ' , (Class updatingChanges storeString) , '.'; |
|
999 nextPutLine:'"/ ObjectMemory nameForChanges: ' , (ObjectMemory nameForChanges storeString) , '.'; |
|
1000 |
|
1001 nextPutLine:'StandardSystemView returnFocusWhenClosingModalBoxes: ' , (StandardSystemView returnFocusWhenClosingModalBoxes storeString) , '.'; |
|
1002 nextPutLine:'StandardSystemView takeFocusWhenMapped: ' , (StandardSystemView takeFocusWhenMapped storeString) , '.'; |
|
1003 nextPutLine:'Display notNil ifTrue:['; |
|
1004 nextPutLine:' Display activateOnClick: ' , ((screen activateOnClick:nil) storeString) , '.'; |
|
1005 nextPutLine:'].'; |
|
1006 nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.'; |
|
1007 nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'. |
|
1008 (Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[ |
|
1009 s nextPutLine:'Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler).'. |
|
1010 ]. |
|
1011 Processor isTimeSlicing ifTrue:[ |
|
1012 s nextPutLine:'Processor startTimeSlicing.'. |
|
1013 s nextPutLine:('Processor supportDynamicPriorities:' , (Processor supportDynamicPriorities ? false) storeString , '.'). |
|
1014 ] ifFalse:[ |
|
1015 s nextPutLine:'Processor stopTimeSlicing.'. |
|
1016 ]. |
|
1017 |
|
1018 s cr. |
|
1019 s nextPutLine:'"/'. |
|
1020 s nextPutLine:'"/ Printer settings:'. |
|
1021 s nextPutLine:'"/'. |
|
1022 s nextPutLine:'Printer := ' , (Printer name) , '.'; |
|
1023 nextPutLine:'Printer printCommand: ' , (Printer printCommand storeString) , '.'. |
|
1024 |
|
1025 Printer supportsPageSizes ifTrue:[ |
|
1026 s nextPutLine:'Printer pageFormat: ' , (Printer pageFormat storeString) , '.'. |
|
1027 s nextPutLine:'Printer landscape: ' , (Printer landscape storeString) , '.'. |
|
1028 ]. |
|
1029 Printer supportsMargins ifTrue:[ |
|
1030 s nextPutLine:'Printer topMargin: ' , (Printer topMargin storeString) , '.'. |
|
1031 s nextPutLine:'Printer leftMargin: ' , (Printer leftMargin storeString) , '.'. |
|
1032 s nextPutLine:'Printer rightMargin: ' , (Printer rightMargin storeString) , '.'. |
|
1033 s nextPutLine:'Printer bottomMargin: ' , (Printer bottomMargin storeString) , '.'. |
|
1034 ]. |
|
1035 Printer supportsPostscript ifTrue:[ |
|
1036 s nextPutLine:'Printer supportsColor: ' , (Printer supportsColor storeString) , '.'. |
|
1037 ]. |
|
1038 |
|
1039 s cr. |
|
1040 s nextPutLine:'"/'. |
|
1041 s nextPutLine:'"/ Font settings:'. |
|
1042 s nextPutLine:'"/ (only restored, if image is restarted on the same display)'. |
|
1043 s nextPutLine:'"/'. |
|
1044 s nextPutLine:'Display notNil ifTrue:['. |
|
1045 s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['. |
|
1046 s nextPutLine:' View defaultFont: ' , (View defaultFont storeString) , '.'. |
|
1047 s nextPutLine:' Label defaultFont: ' , (Label defaultFont storeString) , '.'. |
|
1048 s nextPutLine:' Button defaultFont: ' , (Button defaultFont storeString) , '.'. |
|
1049 s nextPutLine:' Toggle defaultFont: ' , (Toggle defaultFont storeString) , '.'. |
|
1050 s nextPutLine:' SelectionInListView defaultFont: ' , (SelectionInListView defaultFont storeString) , '.'. |
|
1051 s nextPutLine:' MenuView defaultFont: ' , (MenuView defaultFont storeString) , '.'. |
|
1052 s nextPutLine:' PullDownMenu defaultFont: ' , (PullDownMenu defaultFont storeString) , '.'. |
|
1053 s nextPutLine:' TextView defaultFont: ' , (TextView defaultFont storeString) , '.'. |
|
1054 s nextPutLine:' EditTextView defaultFont: ' , (EditTextView defaultFont storeString) , '.'. |
|
1055 s nextPutLine:' CodeView defaultFont: ' , (CodeView defaultFont storeString) , '.'. |
|
1056 s nextPutLine:' ].'. |
|
1057 s nextPutLine:'].'. |
|
1058 |
|
1059 s cr. |
|
1060 s nextPutLine:'"/'. |
|
1061 s nextPutLine:'"/ Language setting:'. |
|
1062 s nextPutLine:'"/'. |
|
1063 s nextPutLine:'Smalltalk language: ' , (Smalltalk language storeString) , '.'. |
|
1064 s nextPutLine:'Smalltalk languageTerritory: ' , (Smalltalk languageTerritory storeString) , '.'. |
|
1065 |
|
1066 s cr. |
|
1067 s nextPutLine:'"/'. |
|
1068 s nextPutLine:'"/ SourceCodeManager settings:'. |
|
1069 s nextPutLine:'"/ (only restored, if image is restarted on the same host)'. |
|
1070 s nextPutLine:'"/'. |
|
1071 s nextPutLine:'OperatingSystem getHostName = ' , (OperatingSystem getHostName storeString) , ' ifTrue:['. |
|
1072 s nextPutLine:' Class tryLocalSourceFirst:' , Class tryLocalSourceFirst storeString , '.'. |
|
1073 (Smalltalk at:#SourceCodeManager) == CVSSourceCodeManager ifTrue:[ |
|
1074 s nextPutLine:' Smalltalk at:#SourceCodeManager put: CVSSourceCodeManager.'. |
|
1075 s nextPutLine:' AbstractSourceCodeManager cacheDirectoryName:' , AbstractSourceCodeManager cacheDirectoryName storeString , '.'. |
|
1076 s nextPutLine:' CVSSourceCodeManager cvsBinDirectory:' , CVSSourceCodeManager cvsBinDirectory storeString , '.'. |
|
1077 s nextPutLine:' CVSSourceCodeManager repositoryNamesPerModule:' , CVSSourceCodeManager repositoryNamesPerModule storeString , '.'. |
|
1078 s nextPutLine:' CVSSourceCodeManager initializeForRepository:' , CVSSourceCodeManager repositoryName storeString , '.'. |
|
1079 ]. |
|
1080 s nextPutLine:'].'. |
|
1081 |
|
1082 s close. |
|
1083 |
|
1084 " |
|
1085 Transcript topView application saveSettings |
|
1086 " |
|
1087 |
|
1088 "Modified: / 6.1.1999 / 14:24:16 / cg" |
|
1089 ! ! |
1091 ! ! |
1090 |
1092 |
1091 !SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'accessing'! |
1093 !SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'accessing'! |
1092 |
1094 |
1093 application |
1095 application |