UserPreferences.st
branchjv
changeset 19410 f9d7cb8bd74c
parent 19331 59f77658de07
parent 19386 0fc2c8343a5a
child 19411 05866fa42fc5
--- 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"