Monotone-Parent: 40a3a3e82a6e149008b93190dcfd86a7e7f4d2b7

Monotone-Revision: b455e3dbb565524a23c4b2ef3e72bd3b118cc13a

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-06-19T17:59:09
Monotone-Branch: ca.inverse.sogo

ChangeLog

@@ -1,5 +1,8 @@
 2007-06-19  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* SoObjects/SOGo/AgenorUserDefaults.m ([AgenorUserDefaults
+	-jsonRepresentation]): new method with an explicit name.
+
 	* UI/PreferencesUI/product.plist: new bundle that provides a web
 	ui for handling user defaults.
 

SoObjects/SOGo/AgenorUserDefaults.h

@@ -78,6 +78,8 @@
 - (void) setFloat: (float) value forKey: (NSString *) key;
 - (void) setInteger: (int) value forKey: (NSString *) key;
 
+- (NSString *) jsonRepresentation;
+
 /* saving changes */
 
 - (BOOL) synchronize;

SoObjects/SOGo/AgenorUserDefaults.m

@@ -32,6 +32,8 @@
 #import <GDLAccess/EOAdaptorContext.h>
 #import <GDLAccess/EOAttribute.h>
 
+#import "NSObject+Utilities.h"
+
 #import "AgenorUserDefaults.h"
 
 @implementation AgenorUserDefaults
@@ -325,6 +327,13 @@ static NSString *uidColumnName = @"uid";
   return (values || [self primaryFetchProfile]);
 }
 
+- (NSString *) jsonRepresentation
+{
+  [self fetchProfile];
+
+  return [values jsonRepresentation];
+}
+
 /* value access */
 
 - (void) setObject: (id) value