equal
deleted
inserted
replaced
947 so that the user can be warned at session end" |
947 so that the user can be warned at session end" |
948 |
948 |
949 ^ modified ? false |
949 ^ modified ? false |
950 ! ! |
950 ! ! |
951 |
951 |
|
952 |
|
953 |
952 !UserPreferences methodsFor:'accessing-locale'! |
954 !UserPreferences methodsFor:'accessing-locale'! |
953 |
955 |
954 dateInputFormat |
956 dateInputFormat |
955 "return a format used when tools read a date from the user" |
957 "return a format used when tools read a date from the user" |
956 |
958 |
1763 self useNewVersionDiffBrowser ifTrue:[ |
1765 self useNewVersionDiffBrowser ifTrue:[ |
1764 ^ (VersionDiffBrowser ? DiffTextView) |
1766 ^ (VersionDiffBrowser ? DiffTextView) |
1765 ]. |
1767 ]. |
1766 ^ DiffCodeView |
1768 ^ DiffCodeView |
1767 ! ! |
1769 ! ! |
|
1770 |
1768 |
1771 |
1769 !UserPreferences methodsFor:'accessing-prefs-UI'! |
1772 !UserPreferences methodsFor:'accessing-prefs-UI'! |
1770 |
1773 |
1771 allowMouseWheelZoom |
1774 allowMouseWheelZoom |
1772 "return the flag which controls if text can be magnified via the ALT-wheel-action" |
1775 "return the flag which controls if text can be magnified via the ALT-wheel-action" |
5151 ! |
5154 ! |
5152 |
5155 |
5153 st80EditMode |
5156 st80EditMode |
5154 "editing as in st80 (do not allow cursor beyond endOfLine/endOftext)." |
5157 "editing as in st80 (do not allow cursor beyond endOfLine/endOftext)." |
5155 |
5158 |
5156 ^ self at:#st80EditMode ifAbsent:[false] |
5159 ^ self at:#st80EditMode ifAbsent:[true] |
5157 |
5160 |
5158 " |
5161 " |
5159 UserPreferences current st80EditMode |
5162 UserPreferences current st80EditMode |
5160 UserPreferences current st80EditMode:true |
5163 UserPreferences current st80EditMode:true |
5161 UserPreferences current st80EditMode |
5164 UserPreferences current st80EditMode |