equal
deleted
inserted
replaced
2411 |
2411 |
2412 "Modified: / 24-08-2010 / 18:06:43 / sr" |
2412 "Modified: / 24-08-2010 / 18:06:43 / sr" |
2413 ! |
2413 ! |
2414 |
2414 |
2415 nativeFileDialogs |
2415 nativeFileDialogs |
2416 ^ self at:#nativeFileDialogs ifAbsent:false |
2416 |return| |
|
2417 |
|
2418 return := self |
|
2419 at:#nativeFileDialogs |
|
2420 ifAbsent:[ |
|
2421 "/ all developer please help testing the native file dialog |
|
2422 Smalltalk isStandAloneApp not |
|
2423 or:[OperatingSystem getDomainName asLowercase includesSubString:'exept'] |
|
2424 ]. |
|
2425 |
|
2426 ^ return |
2417 |
2427 |
2418 "Created: / 24-08-2010 / 17:01:59 / sr" |
2428 "Created: / 24-08-2010 / 17:01:59 / sr" |
|
2429 "Modified: / 25-10-2018 / 16:52:39 / sr" |
2419 ! |
2430 ! |
2420 |
2431 |
2421 nativeFileDialogs:aBoolean |
2432 nativeFileDialogs:aBoolean |
2422 |currentScreen| |
2433 |currentScreen| |
2423 |
2434 |
6031 |
6042 |
6032 ^ self at: #'showBadRevisionStringDialogs' put:aBoolean |
6043 ^ self at: #'showBadRevisionStringDialogs' put:aBoolean |
6033 |
6044 |
6034 "Created: / 19-08-2011 / 12:51:58 / cg" |
6045 "Created: / 19-08-2011 / 12:51:58 / cg" |
6035 ! ! |
6046 ! ! |
6036 |
|
6037 |
6047 |
6038 |
6048 |
6039 !UserPreferences methodsFor:'default settings-syntax colors'! |
6049 !UserPreferences methodsFor:'default settings-syntax colors'! |
6040 |
6050 |
6041 at:key putSyntaxColor:aColor |
6051 at:key putSyntaxColor:aColor |