2820 warnCompatibility warnCompatibilityBox warnDollarBox |
2820 warnCompatibility warnCompatibilityBox warnDollarBox |
2821 stcCompilation compilationList stcCompilationOptions stcIncludes stcDefines stcOptions |
2821 stcCompilation compilationList stcCompilationOptions stcIncludes stcDefines stcOptions |
2822 stcLibraries stcLibraryPath cc stc ccOptions historyLines fullHistoryUpdate |
2822 stcLibraries stcLibraryPath cc stc ccOptions historyLines fullHistoryUpdate |
2823 catchMethodRedefs catchClassRedefs keepSourceOptions keepSource |
2823 catchMethodRedefs catchClassRedefs keepSourceOptions keepSource |
2824 constantFoldingOptions constantFolding justInTimeCompilation |
2824 constantFoldingOptions constantFolding justInTimeCompilation |
2825 supportsJava javaJustInTimeCompilation |
|
2826 warnEnabler check component oldIndent t supportsJustInTimeCompilation y |
2825 warnEnabler check component oldIndent t supportsJustInTimeCompilation y |
2827 y2 fullDebugSupport yMax |
2826 y2 fullDebugSupport yMax |
2828 compileLazy loadBinaries canLoadBinaries strings idx thisIsADemoVersion |
2827 compileLazy loadBinaries canLoadBinaries strings idx thisIsADemoVersion |
2829 resources stcSetupButt| |
2828 resources stcSetupButt| |
2830 |
2829 |
2862 ]. |
2861 ]. |
2863 |
2862 |
2864 stcCompilation := SelectionInList new list:(resources array:strings). |
2863 stcCompilation := SelectionInList new list:(resources array:strings). |
2865 stcCompilation selectionIndex:idx. |
2864 stcCompilation selectionIndex:idx. |
2866 |
2865 |
2867 supportsJava := JavaMethod notNil and:[JavaVM notNil]. |
|
2868 |
|
2869 (supportsJustInTimeCompilation := ObjectMemory supportsJustInTimeCompilation) |
2866 (supportsJustInTimeCompilation := ObjectMemory supportsJustInTimeCompilation) |
2870 ifTrue:[ |
2867 ifTrue:[ |
2871 justInTimeCompilation := ObjectMemory justInTimeCompilation:nil. |
2868 justInTimeCompilation := ObjectMemory justInTimeCompilation. |
2872 supportsJava ifTrue:[ |
2869 fullDebugSupport := ObjectMemory fullSingleStepSupport. |
2873 javaJustInTimeCompilation := ObjectMemory javaJustInTimeCompilation:nil. |
|
2874 ] ifFalse:[ |
|
2875 javaJustInTimeCompilation := false |
|
2876 ]. |
|
2877 fullDebugSupport := ObjectMemory fullSingleStepSupport:nil. |
|
2878 ] ifFalse:[ |
2870 ] ifFalse:[ |
2879 justInTimeCompilation := javaJustInTimeCompilation := false. |
2871 justInTimeCompilation := false. |
2880 fullDebugSupport := (Compiler lineNumberInfo == #full) asValue. |
2872 fullDebugSupport := (Compiler lineNumberInfo == #full) asValue. |
2881 ]. |
2873 ]. |
2882 justInTimeCompilation := justInTimeCompilation asValue. |
2874 justInTimeCompilation := justInTimeCompilation asValue. |
2883 javaJustInTimeCompilation := javaJustInTimeCompilation asValue. |
|
2884 fullDebugSupport := fullDebugSupport asValue. |
2875 fullDebugSupport := fullDebugSupport asValue. |
2885 |
2876 |
2886 catchMethodRedefs := Class catchMethodRedefinitions asValue. |
2877 catchMethodRedefs := Class catchMethodRedefinitions asValue. |
2887 catchClassRedefs := Class catchClassRedefinitions asValue. |
2878 catchClassRedefs := Class catchClassRedefinitions asValue. |
2888 historyLines := HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]. |
2879 historyLines := HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]. |
2959 ]. |
2950 ]. |
2960 supportsJustInTimeCompilation ifTrue:[ |
2951 supportsJustInTimeCompilation ifTrue:[ |
2961 component := box |
2952 component := box |
2962 addCheckBox:(resources string:'just in time compilation to machine code') |
2953 addCheckBox:(resources string:'just in time compilation to machine code') |
2963 on:justInTimeCompilation. |
2954 on:justInTimeCompilation. |
2964 supportsJava ifTrue:[ |
|
2965 component := box |
|
2966 addCheckBox:(resources string:'java just in time compilation to machine code') |
|
2967 on:javaJustInTimeCompilation. |
|
2968 ] |
|
2969 ]. |
2955 ]. |
2970 |
2956 |
2971 box addHorizontalLine. |
2957 box addHorizontalLine. |
2972 |
2958 |
2973 ObjectFileLoader notNil ifTrue:[ |
2959 ObjectFileLoader notNil ifTrue:[ |
3089 |
3075 |
3090 Compiler stcCompilation:(stcCompilationOptions at:stcCompilation selectionIndex). |
3076 Compiler stcCompilation:(stcCompilationOptions at:stcCompilation selectionIndex). |
3091 Compiler foldConstants:(constantFoldingOptions at:constantFolding selectionIndex). |
3077 Compiler foldConstants:(constantFoldingOptions at:constantFolding selectionIndex). |
3092 |
3078 |
3093 supportsJustInTimeCompilation ifTrue:[ |
3079 supportsJustInTimeCompilation ifTrue:[ |
3094 justInTimeCompilation value ifTrue:[ |
3080 justInTimeCompilation := justInTimeCompilation value. |
|
3081 justInTimeCompilation ifTrue:[ |
3095 Method allInstancesDo:[:m | m checked:false]. |
3082 Method allInstancesDo:[:m | m checked:false]. |
3096 ]. |
3083 ]. |
3097 supportsJava ifTrue:[ |
3084 ObjectMemory justInTimeCompilation:justInTimeCompilation. |
3098 javaJustInTimeCompilation value ifTrue:[ |
|
3099 JavaMethod allInstancesDo:[:m | m checked:false]. |
|
3100 ]. |
|
3101 ]. |
|
3102 ObjectMemory justInTimeCompilation:justInTimeCompilation value. |
|
3103 ObjectMemory javaJustInTimeCompilation:javaJustInTimeCompilation value. |
|
3104 ObjectMemory fullSingleStepSupport:fullDebugSupport value. |
3085 ObjectMemory fullSingleStepSupport:fullDebugSupport value. |
3105 ]. |
3086 ]. |
3106 Autoload compileLazy:compileLazy value. |
3087 Autoload compileLazy:compileLazy value. |
3107 Smalltalk loadBinaries:loadBinaries value. |
3088 Smalltalk loadBinaries:loadBinaries value. |
3108 ]. |
3089 ]. |
3109 box destroy |
3090 box destroy |
3110 |
3091 |
3111 "Modified: / 10.9.1995 / 19:19:18 / claus" |
3092 "Modified: / 10.9.1995 / 19:19:18 / claus" |
3112 "Modified: / 9.9.1996 / 22:42:47 / stefan" |
3093 "Modified: / 9.9.1996 / 22:42:47 / stefan" |
3113 "Modified: / 5.11.1998 / 13:04:01 / cg" |
3094 "Modified: / 5.11.1998 / 14:25:59 / cg" |
3114 ! |
3095 ! |
3115 |
3096 |
3116 displaySettingsFor:requestor |
3097 displaySettingsFor:requestor |
3117 "open a dialog on display related settings" |
3098 "open a dialog on display related settings" |
3118 |
3099 |
3324 |
3305 |
3325 javaSettingsFor:requestor |
3306 javaSettingsFor:requestor |
3326 "open a dialog on infoMessage related settings" |
3307 "open a dialog on infoMessage related settings" |
3327 |
3308 |
3328 |box audio javaHome resources component |
3309 |box audio javaHome resources component |
3329 extraFileSecurityChecks extraSocketSecurityChecks| |
3310 extraFileSecurityChecks extraSocketSecurityChecks |
|
3311 supportsJustInTimeCompilation |
|
3312 javaJustInTimeCompilation javaNativeCodeOptimization| |
3330 |
3313 |
3331 resources := requestor class classResources. |
3314 resources := requestor class classResources. |
3332 |
3315 |
3333 audio := JavaVM audioEnabled asValue. |
3316 audio := JavaVM audioEnabled asValue. |
3334 extraFileSecurityChecks := JavaVM fileOpenConfirmation asValue. |
3317 extraFileSecurityChecks := JavaVM fileOpenConfirmation asValue. |
3335 extraSocketSecurityChecks := JavaVM socketConnectConfirmation asValue. |
3318 extraSocketSecurityChecks := JavaVM socketConnectConfirmation asValue. |
|
3319 (supportsJustInTimeCompilation := ObjectMemory supportsJustInTimeCompilation) ifTrue:[ |
|
3320 javaJustInTimeCompilation := ObjectMemory javaJustInTimeCompilation asValue. |
|
3321 javaNativeCodeOptimization := ObjectMemory javaNativeCodeOptimization asValue. |
|
3322 ] ifFalse:[ |
|
3323 javaJustInTimeCompilation := javaNativeCodeOptimization := false |
|
3324 ]. |
3336 |
3325 |
3337 javaHome := (Java javaHome ? '') asValue. |
3326 javaHome := (Java javaHome ? '') asValue. |
3338 |
3327 |
3339 box := DialogBox new. |
3328 box := DialogBox new. |
3340 box label:(resources string:'Java'). |
3329 box label:(resources string:'Java'). |
3341 |
3330 |
3342 box addCheckBox:(resources string:'Audio Enabled') on:audio. |
3331 box addCheckBox:(resources string:'Audio Enabled') on:audio. |
3343 box addCheckBox:(resources string:'Confirm file open for write') on:extraFileSecurityChecks. |
3332 box addCheckBox:(resources string:'Confirm file open for write') on:extraFileSecurityChecks. |
3344 box addCheckBox:(resources string:'Confirm socket connect') on:extraSocketSecurityChecks. |
3333 box addCheckBox:(resources string:'Confirm socket connect') on:extraSocketSecurityChecks. |
|
3334 box addHorizontalLine. |
|
3335 supportsJustInTimeCompilation ifTrue:[ |
|
3336 box |
|
3337 addCheckBox:(resources string:'java just in time compilation to machine code') |
|
3338 on:javaJustInTimeCompilation. |
|
3339 box |
|
3340 addCheckBox:(resources string:'optimize native code') |
|
3341 on:javaNativeCodeOptimization. |
|
3342 ]. |
3345 box addHorizontalLine. |
3343 box addHorizontalLine. |
3346 component := box |
3344 component := box |
3347 addLabelledInputField:(resources string:'java home:') |
3345 addLabelledInputField:(resources string:'java home:') |
3348 adjust:#right |
3346 adjust:#right |
3349 on:javaHome |
3347 on:javaHome |
3377 |
3375 |
3378 box accepted ifTrue:[ |
3376 box accepted ifTrue:[ |
3379 JavaVM audioEnabled:audio value. |
3377 JavaVM audioEnabled:audio value. |
3380 JavaVM fileOpenConfirmation: extraFileSecurityChecks value. |
3378 JavaVM fileOpenConfirmation: extraFileSecurityChecks value. |
3381 JavaVM socketConnectConfirmation: extraSocketSecurityChecks value. |
3379 JavaVM socketConnectConfirmation: extraSocketSecurityChecks value. |
|
3380 javaJustInTimeCompilation value ~~ ObjectMemory javaJustInTimeCompilation ifTrue:[ |
|
3381 ObjectMemory javaJustInTimeCompilation:javaJustInTimeCompilation value. |
|
3382 javaJustInTimeCompilation value ifTrue:[ |
|
3383 JavaMethod allInstancesDo:[:m | m checked:false]. |
|
3384 ]. |
|
3385 ]. |
|
3386 javaNativeCodeOptimization value ~~ ObjectMemory javaNativeCodeOptimization ifTrue:[ |
|
3387 ObjectMemory javaNativeCodeOptimization:javaNativeCodeOptimization value. |
|
3388 ]. |
3382 ]. |
3389 ]. |
3383 box destroy |
3390 box destroy |
3384 |
3391 |
3385 "Created: / 18.7.1998 / 22:32:58 / cg" |
3392 "Created: / 18.7.1998 / 22:32:58 / cg" |
3386 "Modified: / 19.10.1998 / 18:08:30 / cg" |
3393 "Modified: / 5.11.1998 / 14:24:25 / cg" |
3387 ! |
3394 ! |
3388 |
3395 |
3389 keyboardSettingsFor:requestor |
3396 keyboardSettingsFor:requestor |
3390 "open a dialog on keyboard related settings" |
3397 "open a dialog on keyboard related settings" |
3391 |
3398 |