--- a/UserPreferences.st Fri Mar 18 07:45:27 2016 +0000
+++ b/UserPreferences.st Mon Mar 21 07:50:50 2016 +0000
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1998 by eXept Software AG
All Rights Reserved
@@ -843,6 +841,8 @@
! !
+
+
!UserPreferences methodsFor:'accessing-changes & history'!
historyManagerAllowEditOfHistory:aBoolean
@@ -1037,6 +1037,38 @@
"
!
+smallteamViaXMPPEnabled
+ ^ self at:#smallteamViaXMPPEnabled ifAbsent:false
+!
+
+smallteamViaXMPPEnabled:aBoolean
+ self at:#smallteamViaXMPPEnabled put:aBoolean
+!
+
+smallteamXMPPPassword
+ ^ self at:#smallteamXMPPPassword ifAbsent:[ '' ]
+!
+
+smallteamXMPPPassword:aPasswordString
+ self at:#smallteamXMPPPassword put:aPasswordString
+!
+
+smallteamXMPPServer
+ ^ self at:#smallteamXMPPServer ifAbsent:[ 'exept.de' ]
+!
+
+smallteamXMPPServer:aHostname
+ self at:#smallteamXMPPServer put:aHostname
+!
+
+smallteamXMPPUser
+ ^ self at:#smallteamXMPPUser ifAbsent:[ OperatingSystem getLoginName ]
+!
+
+smallteamXMPPUser:aUsernameString
+ self at:#smallteamXMPPUser put:aUsernameString
+!
+
smtpServerName
^ self at:#smtpServerName ifAbsent:nil
@@ -4619,6 +4651,20 @@
!UserPreferences methodsFor:'accessing-prefs-external tools'!
+defaultFileOpenCommandFor:suffix
+ "for the fileBrowser - remember which command to use as-per suffix"
+
+ ^ (self at:#defaultFileOpenCommands ifAbsentPut:[Dictionary new])
+ at:suffix ifAbsent:nil
+!
+
+defaultFileOpenCommandFor:suffix put:openCmd
+ "for the fileBrowser - remember which command to use as-per suffix"
+
+ (self at:#defaultFileOpenCommands ifAbsentPut:[Dictionary new])
+ at:suffix put:openCmd
+!
+
osFileExplorerCommand
"return an OS command template to open a finder/explorer or similar"