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 |
|
954 !UserPreferences methodsFor:'accessing-locale'! |
952 !UserPreferences methodsFor:'accessing-locale'! |
955 |
953 |
956 dateInputFormat |
954 dateInputFormat |
957 "return a format used when tools read a date from the user" |
955 "return a format used when tools read a date from the user" |
958 |
956 |
1174 " |
1172 " |
1175 UserPreferences current logSOAPRequests |
1173 UserPreferences current logSOAPRequests |
1176 UserPreferences current logSOAPRequests:true |
1174 UserPreferences current logSOAPRequests:true |
1177 UserPreferences current logSOAPRequests:false |
1175 UserPreferences current logSOAPRequests:false |
1178 " |
1176 " |
|
1177 ! |
|
1178 |
|
1179 logSSLCommunications |
|
1180 |sslSocket| |
|
1181 |
|
1182 sslSocket := (Smalltalk at:#'SSL::SSLSocket'). |
|
1183 ^ sslSocket notNil and:[sslSocket verbose] |
|
1184 |
|
1185 " |
|
1186 UserPreferences current logSSLCommunications |
|
1187 " |
|
1188 |
|
1189 "Created: / 19-07-2019 / 09:11:07 / Claus Gittinger" |
|
1190 ! |
|
1191 |
|
1192 logSSLCommunications:aBoolean |
|
1193 |sslSocket| |
|
1194 |
|
1195 sslSocket := (Smalltalk at:#'SSL::SSLSocket'). |
|
1196 sslSocket notNil ifTrue:[sslSocket verbose:aBoolean] |
|
1197 |
|
1198 " |
|
1199 UserPreferences current logSSLCommunications |
|
1200 UserPreferences current logSSLCommunications:true |
|
1201 UserPreferences current logSSLCommunications:false |
|
1202 " |
|
1203 |
|
1204 "Created: / 19-07-2019 / 09:11:34 / Claus Gittinger" |
1179 ! |
1205 ! |
1180 |
1206 |
1181 smallteamViaXMPPEnabled |
1207 smallteamViaXMPPEnabled |
1182 ^ self at:#smallteamViaXMPPEnabled ifAbsent:false |
1208 ^ self at:#smallteamViaXMPPEnabled ifAbsent:false |
1183 ! |
1209 ! |
1737 self useNewVersionDiffBrowser ifTrue:[ |
1763 self useNewVersionDiffBrowser ifTrue:[ |
1738 ^ (VersionDiffBrowser ? DiffTextView) |
1764 ^ (VersionDiffBrowser ? DiffTextView) |
1739 ]. |
1765 ]. |
1740 ^ DiffCodeView |
1766 ^ DiffCodeView |
1741 ! ! |
1767 ! ! |
1742 |
|
1743 |
1768 |
1744 !UserPreferences methodsFor:'accessing-prefs-UI'! |
1769 !UserPreferences methodsFor:'accessing-prefs-UI'! |
1745 |
1770 |
1746 allowMouseWheelZoom |
1771 allowMouseWheelZoom |
1747 "return the flag which controls if text can be magnified via the ALT-wheel-action" |
1772 "return the flag which controls if text can be magnified via the ALT-wheel-action" |