equal
deleted
inserted
replaced
1433 UserPreferences current selectOnRightClick:false. |
1433 UserPreferences current selectOnRightClick:false. |
1434 " |
1434 " |
1435 ! |
1435 ! |
1436 |
1436 |
1437 showDottedLinesInTree |
1437 showDottedLinesInTree |
1438 ^ self at:#showDottedLinesInTree ifAbsent:true |
1438 ^ self |
|
1439 at:#showDottedLinesInTree |
|
1440 ifAbsent:[ OperatingSystem isMSWINDOWSlike not |
|
1441 or:[ OperatingSystem isVistaLike not ] ] |
1439 |
1442 |
1440 "Created: / 03-12-2010 / 11:31:46 / cg" |
1443 "Created: / 03-12-2010 / 11:31:46 / cg" |
|
1444 "Modified: / 09-02-2011 / 23:27:03 / cg" |
1441 ! |
1445 ! |
1442 |
1446 |
1443 showDottedLinesInTree:aBoolean |
1447 showDottedLinesInTree:aBoolean |
1444 ^ self at:#showDottedLinesInTree put:aBoolean |
1448 ^ self at:#showDottedLinesInTree put:aBoolean |
1445 |
1449 |
2094 "Created: / 31.3.1998 / 15:09:59 / cg" |
2098 "Created: / 31.3.1998 / 15:09:59 / cg" |
2095 "Modified: / 1.4.1998 / 13:25:53 / cg" |
2099 "Modified: / 1.4.1998 / 13:25:53 / cg" |
2096 ! |
2100 ! |
2097 |
2101 |
2098 commentEmphasisAndColor |
2102 commentEmphasisAndColor |
2099 ^ Text addEmphasis:(self commentEmphasis) to:(#color->self commentColor). |
2103 ^ self emphasis:(self commentEmphasis) andColor:(self commentColor). |
2100 |
2104 |
2101 |
2105 "Modified: / 17-02-2011 / 14:20:41 / cg" |
2102 ! |
2106 ! |
2103 |
2107 |
2104 constantColor |
2108 constantColor |
2105 "the color used for constants; |
2109 "the color used for constants; |
2106 If syntaxColoring is turned on." |
2110 If syntaxColoring is turned on." |
2153 |
2157 |
2154 defaultSyntaxEmphasis |
2158 defaultSyntaxEmphasis |
2155 "the emphasis used for anything else; |
2159 "the emphasis used for anything else; |
2156 If syntaxColoring is turned on." |
2160 If syntaxColoring is turned on." |
2157 |
2161 |
2158 ^ self at:#defaultSyntaxEmphasis ifAbsentPut:[UserPreferences default at:#defaultSyntaxEmphasis] |
2162 ^ self |
2159 |
2163 at:#defaultSyntaxEmphasis |
|
2164 ifAbsentPut:[UserPreferences default at:#defaultSyntaxEmphasis] |
|
2165 |
|
2166 "Modified: / 17-02-2011 / 14:17:30 / cg" |
2160 ! |
2167 ! |
2161 |
2168 |
2162 doesNotUnderstand:aMessage |
2169 doesNotUnderstand:aMessage |
2163 |k def| |
2170 |k def| |
2164 |
2171 |
2188 ]. |
2195 ]. |
2189 |
2196 |
2190 ^ super doesNotUnderstand:aMessage |
2197 ^ super doesNotUnderstand:aMessage |
2191 ! |
2198 ! |
2192 |
2199 |
|
2200 emphasis:e andColor:c |
|
2201 ^ Text addEmphasis:e to:(#color->c). |
|
2202 |
|
2203 "Created: / 17-02-2011 / 14:20:25 / cg" |
|
2204 ! |
|
2205 |
2193 emphasizeParenthesisLevel |
2206 emphasizeParenthesisLevel |
2194 ^ self at:#emphasizeParenthesisLevel ifAbsent:true |
2207 ^ self at:#emphasizeParenthesisLevel ifAbsent:true |
2195 |
2208 |
2196 " |
2209 " |
2197 UserPreferences current emphasizeParenthesisLevel |
2210 UserPreferences current emphasizeParenthesisLevel |
2496 |
2509 |
2497 "Created: / 31.3.1998 / 15:19:09 / cg" |
2510 "Created: / 31.3.1998 / 15:19:09 / cg" |
2498 "Modified: / 1.4.1998 / 13:22:00 / cg" |
2511 "Modified: / 1.4.1998 / 13:22:00 / cg" |
2499 ! |
2512 ! |
2500 |
2513 |
|
2514 stringEmphasisAndColor |
|
2515 ^ self emphasis:(self stringEmphasis) andColor:(self stringColor). |
|
2516 |
|
2517 "Created: / 17-02-2011 / 14:29:10 / cg" |
|
2518 ! |
|
2519 |
2501 superColor |
2520 superColor |
2502 "the color used for the super pseudoVariable; |
2521 "the color used for the super pseudoVariable; |
2503 If syntaxColoring is turned on." |
2522 If syntaxColoring is turned on." |
2504 |
2523 |
2505 ^ self at:#superColor ifAbsentPut:[self selfColor] |
2524 ^ self at:#superColor ifAbsentPut:[self selfColor] |
2599 |
2618 |
2600 ^ self at:#unknownIdentifierEmphasis ifAbsentPut:[self badIdentifierEmphasis] |
2619 ^ self at:#unknownIdentifierEmphasis ifAbsentPut:[self badIdentifierEmphasis] |
2601 |
2620 |
2602 "Created: / 31.3.1998 / 19:11:55 / cg" |
2621 "Created: / 31.3.1998 / 19:11:55 / cg" |
2603 "Modified: / 1.4.1998 / 13:22:45 / cg" |
2622 "Modified: / 1.4.1998 / 13:22:45 / cg" |
|
2623 ! |
|
2624 |
|
2625 xmlTagColor |
|
2626 "the emphasis used for xml-tags; |
|
2627 If syntaxColoring is turned on." |
|
2628 |
|
2629 ^ self at:#xmlTagColor ifAbsentPut:[ Color blue ] |
|
2630 |
|
2631 " |
|
2632 self current at:#xmlTagColor put:Color black |
|
2633 self current xmlTagColor |
|
2634 " |
|
2635 |
|
2636 "Created: / 17-02-2011 / 14:18:28 / cg" |
|
2637 ! |
|
2638 |
|
2639 xmlTagEmphasis |
|
2640 "the emphasis used for xml-tags; |
|
2641 If syntaxColoring is turned on." |
|
2642 |
|
2643 ^ self at:#xmlTagEmphasis ifAbsentPut:[ #bold ] |
|
2644 |
|
2645 " |
|
2646 self current at:#xmlTagEmphasis put:#normal |
|
2647 self current xmlTagEmphasis |
|
2648 " |
|
2649 |
|
2650 "Created: / 17-02-2011 / 14:18:01 / cg" |
2604 ! ! |
2651 ! ! |
2605 |
2652 |
2606 !UserPreferences methodsFor:'accessing-prefs-code'! |
2653 !UserPreferences methodsFor:'accessing-prefs-code'! |
2607 |
2654 |
2608 categoryForMenuActionsMethods |
2655 categoryForMenuActionsMethods |
3462 ! ! |
3509 ! ! |
3463 |
3510 |
3464 !UserPreferences class methodsFor:'documentation'! |
3511 !UserPreferences class methodsFor:'documentation'! |
3465 |
3512 |
3466 version |
3513 version |
3467 ^ '$Id: UserPreferences.st 10621 2011-03-08 02:57:52Z vranyj1 $' |
3514 ^ '$Id: UserPreferences.st 10632 2011-04-09 17:19:04Z vranyj1 $' |
3468 ! |
3515 ! |
3469 |
3516 |
3470 version_CVS |
3517 version_CVS |
3471 ^ '§Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.265 2010/12/03 10:31:59 cg Exp §' |
3518 ^ '§Header: /var/local/cvs/stx/libbasic/UserPreferences.st,v 1.268 2011-02-17 13:33:23 cg Exp §' |
3472 ! |
3519 ! |
3473 |
3520 |
3474 version_SVN |
3521 version_SVN |
3475 ^ '$Id: UserPreferences.st 10621 2011-03-08 02:57:52Z vranyj1 $' |
3522 ^ '$Id: UserPreferences.st 10632 2011-04-09 17:19:04Z vranyj1 $' |
3476 ! ! |
3523 ! ! |
|
3524 |