Preferences class

[nerobotParticipant]

This class allow us to store params inside of single class-container with load/save stuff.

Class is based on Json format. You can extend it by adding new methods like GetFloat() if needed.

You put any supported values using PutValue and get values using GetXxx methods like GetString, GetColor…

Monkey

Namespace jentos.prefs Class Preferences Final ' globals ' Function Get:Preferences( path:String ) If _prefs.Contains( path ) Return _prefs[path] Local p:=New Preferences( path ) _prefs[path]=p Return p End Function SaveAll() For Local p:=Eachin _prefs.Values p.Save() Next End ' signals ' Field Changed:Void( key:String,value:Variant ) ' setters ' Method PutValue( key:String,value:String ) _data[key]=New JsonString( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Bool ) _data[key]=New JsonBool( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Double ) _data[key]=New JsonNumber( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:JsonValue ) _data[key]=value _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Color ) _data[key]=value.ToJson() _dirty=True Changed( key,value ) End ' getters ' Method GetString:String( key:String,defValue:String="" ) Return _data.GetString( key,defValue ) End Method GetBool:Bool( key:String,defValue:Bool=False ) Return _data.GetBool( key,defValue ) End Method GetNumber:Double( key:String,defValue:Double=0 ) Return _data.GetNumber( key,defValue ) End Method GetJson:JsonValue( key:String,defValue:JsonValue=Null ) Return _data.GetJson( key,defValue ) End Method GetColor:Color( key:String,defValue:Color=Color.Magenta ) If _data.Contains( key ) Return Color.FromJson( _data[key] ) Endif Return defValue End ' load ' Method Load( path:String ) _path=path _data=JsonObject.Load( path ) ?Else New JsonObject _dirty=False End ' save ' Method Save( path:String="" ) If Not _dirty Return If Not path Then path=_path If Not path Return SaveString( _data.ToJson(),path ) _dirty=False End ' raw data ' Property Json:JsonObject() Return _data End Method Contains:Bool( key:String ) Return _data.Contains( key ) End Private Field _data:JsonObject Field _path:String Field _dirty:Bool Global _prefs:=New StringMap<Preferences> ' private constructors ' Method New( path:String ) Load( path ) End Method New() End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151

Namespace jentos.prefs     Class Preferences Final ' globals ' Function Get:Preferences( path:String ) If _prefs.Contains( path ) Return _prefs[path] Local p:=New Preferences( path ) _prefs[path]=p Return p End Function SaveAll() For Local p:=Eachin _prefs.Values p.Save() Next End ' signals ' Field Changed:Void( key:String,value:Variant ) ' setters ' Method PutValue( key:String,value:String ) _data[key]=New JsonString( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Bool ) _data[key]=New JsonBool( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Double ) _data[key]=New JsonNumber( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:JsonValue ) _data[key]=value _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Color ) _data[key]=value.ToJson() _dirty=True Changed( key,value ) End ' getters ' Method GetString:String( key:String,defValue:String="" ) Return _data.GetString( key,defValue ) End Method GetBool:Bool( key:String,defValue:Bool=False ) Return _data.GetBool( key,defValue ) End Method GetNumber:Double( key:String,defValue:Double=0 ) Return _data.GetNumber( key,defValue ) End Method GetJson:JsonValue( key:String,defValue:JsonValue=Null ) Return _data.GetJson( key,defValue ) End Method GetColor:Color( key:String,defValue:Color=Color.Magenta ) If _data.Contains( key ) Return Color.FromJson( _data[key] ) Endif Return defValue End ' load ' Method Load( path:String ) _path=path _data=JsonObject.Load( path ) ?Else New JsonObject _dirty=False End ' save ' Method Save( path:String="" ) If Not _dirty Return If Not path Then path=_path If Not path Return SaveString( _data.ToJson(),path ) _dirty=False End ' raw data ' Property Json:JsonObject() Return _data End Method Contains:Bool( key:String ) Return _data.Contains( key ) End Private Field _data:JsonObject Field _path:String Field _dirty:Bool Global _prefs:=New StringMap<Preferences> ' private constructors ' Method New( path:String ) Load( path ) End Method New() End End

How do I use it:

Monkey

#Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. ' imports ' #Import "MyWindow" #Import "Preferences" #Import "assets/" ' try to load prefs from file Const Prefs:=Preferences.Get( AppDir()+"prefs.json" ) Function Main() New AppInstance() ' try to get windowRect from prefs Local rect:Recti Local flags:=WindowFlags.Resizable If Prefs.Contains( "windowRect" ) rect=ToRecti( Prefs.GetJson( "windowRect" ) ) Else ' not found in prefs, set to defaults rect=New Recti( 0,0,900,800 ) flags|=WindowFlags.Center Endif Local wnd:=New MainWindow( "Prefs test",rect,flags ) wnd.CloseRequested+=Lambda() Prefs.PutValue( "windowRect",ToJson( wnd.Frame ) ) Preferences.SaveAll() End App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

#Import "<std>" #Import "<mojo>" #Import "<mojox>"   Using std.. Using mojo.. Using mojox..   ' imports ' #Import "MyWindow" #Import "Preferences"   #Import "assets/"   ' try to load prefs from file Const Prefs:=Preferences.Get( AppDir()+"prefs.json" )   Function Main() New AppInstance() ' try to get windowRect from prefs Local rect:Recti Local flags:=WindowFlags.Resizable If Prefs.Contains( "windowRect" ) rect=ToRecti( Prefs.GetJson( "windowRect" ) ) Else ' not found in prefs, set to defaults rect=New Recti( 0,0,900,800 ) flags|=WindowFlags.Center Endif Local wnd:=New MainWindow( "Prefs test",rect,flags ) wnd.CloseRequested+=Lambda() Prefs.PutValue( "windowRect",ToJson( wnd.Frame ) ) Preferences.SaveAll() End App.Run() End

wnd.CloseRequested is my own signal:

Monkey

Class MainWindow Extends Window Field CloseRequested:Void() ........ Protected Method OnWindowEvent( event:WindowEvent ) Override If event.Type=EventType.WindowClose CloseRequested() Endif Super.OnWindowEvent( event ) End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Class MainWindow Extends Window Field CloseRequested:Void()   ........   Protected Method OnWindowEvent( event:WindowEvent ) Override If event.Type=EventType.WindowClose CloseRequested() Endif Super.OnWindowEvent( event ) End   End

[nerobotParticipant]

Also there is Changed( key,value ) signal which helps us to be notified about values changes.

Note: you should to cast value to concrete type from its Variant type.

[nerobotParticipant]

I forgot one thing.

There is Color extension class to be able to convert colors from/to Json format:

Monkey

Struct Color Extension Function FromHex:Color( hex:String ) Local str:=hex Local a:=1.0,r:=0.0,g:=0.0,b:=0.0 If str.Length=4 '#RGB r=StringToULong( str.Slice( 1,2 ),16 )/15.0 g=StringToULong( str.Slice( 2,3 ),16 )/15.0 b=StringToULong( str.Slice( 3,4 ),16 )/15.0 Else If str.Length=5 '#ARGB a=StringToULong( str.Slice( 1,2 ),16 )/15.0 r=StringToULong( str.Slice( 2,3 ),16 )/15.0 g=StringToULong( str.Slice( 3,4 ),16 )/15.0 b=StringToULong( str.Slice( 4,5 ),16 )/15.0 Else If str.Length=7 '#RRGGBB r=StringToULong( str.Slice( 1,3 ),16 )/255.0 g=StringToULong( str.Slice( 3,5 ),16 )/255.0 b=StringToULong( str.Slice( 5,7 ),16 )/255.0 Else If str.Length=9 '#AARRGGBB a=StringToULong( str.Slice( 1,3 ),16 )/255.0 r=StringToULong( str.Slice( 3,5 ),16 )/255.0 g=StringToULong( str.Slice( 5,7 ),16 )/255.0 b=StringToULong( str.Slice( 7,9 ),16 )/255.0 Else Return Color.Magenta Endif Return New Color( r,g,b,a ) End Method ToJson:JsonValue() Return New JsonArray( New JsonValue[]( New JsonNumber( r ),New JsonNumber( g ),New JsonNumber( b ),New JsonNumber( a ) ) ) End Function FromJson:Color( json:JsonValue ) If json.IsArray Local arr:=json.ToArray() Return New Color( arr[0].ToNumber(),arr[1].ToNumber(),arr[2].ToNumber(),arr[3].ToNumber() ) Else Return FromHex( json.ToString() ) Endif End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

Struct Color Extension Function FromHex:Color( hex:String ) Local str:=hex Local a:=1.0,r:=0.0,g:=0.0,b:=0.0 If str.Length=4 '#RGB r=StringToULong( str.Slice( 1,2 ),16 )/15.0 g=StringToULong( str.Slice( 2,3 ),16 )/15.0 b=StringToULong( str.Slice( 3,4 ),16 )/15.0 Else If str.Length=5 '#ARGB a=StringToULong( str.Slice( 1,2 ),16 )/15.0 r=StringToULong( str.Slice( 2,3 ),16 )/15.0 g=StringToULong( str.Slice( 3,4 ),16 )/15.0 b=StringToULong( str.Slice( 4,5 ),16 )/15.0 Else If str.Length=7 '#RRGGBB r=StringToULong( str.Slice( 1,3 ),16 )/255.0 g=StringToULong( str.Slice( 3,5 ),16 )/255.0 b=StringToULong( str.Slice( 5,7 ),16 )/255.0 Else If str.Length=9 '#AARRGGBB a=StringToULong( str.Slice( 1,3 ),16 )/255.0 r=StringToULong( str.Slice( 3,5 ),16 )/255.0 g=StringToULong( str.Slice( 5,7 ),16 )/255.0 b=StringToULong( str.Slice( 7,9 ),16 )/255.0 Else Return Color.Magenta Endif Return New Color( r,g,b,a ) End Method ToJson:JsonValue() Return New JsonArray( New JsonValue[]( New JsonNumber( r ),New JsonNumber( g ),New JsonNumber( b ),New JsonNumber( a ) ) ) End Function FromJson:Color( json:JsonValue ) If json.IsArray Local arr:=json.ToArray() Return New Color( arr[0].ToNumber(),arr[1].ToNumber(),arr[2].ToNumber(),arr[3].ToNumber() ) Else Return FromHex( json.ToString() ) Endif End End

[therevillsParticipant]

Cool!

I dont know if its in MX2 yet, but for Windows we need a way to save to the “correct” Microsoft approved folder locations.

[DiffrenzyKeymaster]

Very useful,  thanks!

I’m thinking a good place to store the file would be in SDL_GetPrefPath() (is in MX2 now)  like in

A simple Applet framework

What do you think?

[nerobotParticipant]

I still hope that the best way is to use pure monkey2’s path..

But I didn’t use mobile targets yet.

You can write own Function GetPrefsFile:String( file:String,author:String="defValue",name:String="defValue" ) that will use sdl prefs or what you want else, and you can change single place if needed to make changes for a whole project.

And to link with my code:

Const AppPrefs:=Preferences.Get( GetPrefsFile( "app.json" ) )

[therevillsParticipant]

Note: The code from nerobot, needs the extensions from this post: http://monkeycoder.co.nz/forums/topic/json-extensions/

I’m also getting run time error: “Attempt to invoke method on null instance” on the “If _prefs.Contains( path ) Return _prefs[path]” line…

Test code, I had to “hack” some of the features to crappy returns etc:

Monkey

#Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. ' imports ' #Import "assets/" ' try to load prefs from file Const Prefs:=Preferences.Get( AppDir()+"prefs.json" ) Function Main() New AppInstance() ' try to get windowRect from prefs Local rect:Recti Local flags:=WindowFlags.Resizable If Prefs.Contains( "windowRect" ) rect=ToRecti( Prefs.GetJson( "windowRect" ) ) Else ' not found in prefs, set to defaults rect=New Recti( 0,0,900,800 ) flags|=WindowFlags.Center Endif Local wnd:=New MainWindow() ' "Prefs test",rect,flags ) ' <----- Main Window CTOR doesnt have params wnd.CloseRequested+=Lambda() Prefs.PutValue( "windowRect",ToJson( wnd.Frame ) ) Preferences.SaveAll() End App.Run() End Class MainWindow Extends Window Field CloseRequested:Void() Protected Method OnWindowEvent( event:WindowEvent ) Override If event.Type=EventType.WindowClose CloseRequested() Endif Super.OnWindowEvent( event ) End End Class Preferences Final ' globals ' Function Get:Preferences( path:String ) If _prefs.Contains( path ) Return _prefs[path] Local p:=New Preferences( path ) _prefs[path]=p Return p End Function SaveAll() For Local p:=Eachin _prefs.Values p.Save() Next End ' signals ' Field Changed:Void( key:String,value:Variant ) ' setters ' Method PutValue( key:String,value:String ) _data[key]=New JsonString( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Bool ) _data[key]=New JsonBool( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Double ) _data[key]=New JsonNumber( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:JsonValue ) _data[key]=value _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Color ) _data[key]=value.ToJson() _dirty=True Changed( key,value ) End ' getters ' Method GetString:String( key:String,defValue:String="" ) Return _data.GetString( key,defValue ) End Method GetBool:Bool( key:String,defValue:Bool=False ) Return _data.GetBool( key,defValue ) End Method GetNumber:Double( key:String,defValue:Double=0 ) Return _data.GetNumber( key,defValue ) End Method GetJson:JsonValue( key:String,defValue:JsonValue=Null ) Return _data.GetJson( key,defValue ) End Method GetColor:Color( key:String,defValue:Color=Color.Magenta ) If _data.Contains( key ) Return Color.FromJson( _data[key] ) Endif Return defValue End ' load ' Method Load( path:String ) _path=path _data=JsonObject.Load( path ) ?Else New JsonObject _dirty=False End ' save ' Method Save( path:String="" ) If Not _dirty Return If Not path Then path=_path If Not path Return SaveString( _data.ToJson(),path ) _dirty=False End ' raw data ' Property Json:JsonObject() Return _data End Method Contains:Bool( key:String ) Return _data.Contains( key ) End Private Field _data:JsonObject Field _path:String Field _dirty:Bool Global _prefs:=New StringMap<Preferences> ' private constructors ' Method New( path:String ) Load( path ) End Method New() End End Struct Color Extension Function FromHex:Color( hex:String ) Local str:=hex Local a:=1.0,r:=0.0,g:=0.0,b:=0.0 If str.Length=4 '#RGB r=StringToULong( str.Slice( 1,2 ),16 )/15.0 g=StringToULong( str.Slice( 2,3 ),16 )/15.0 b=StringToULong( str.Slice( 3,4 ),16 )/15.0 Else If str.Length=5 '#ARGB a=StringToULong( str.Slice( 1,2 ),16 )/15.0 r=StringToULong( str.Slice( 2,3 ),16 )/15.0 g=StringToULong( str.Slice( 3,4 ),16 )/15.0 b=StringToULong( str.Slice( 4,5 ),16 )/15.0 Else If str.Length=7 '#RRGGBB r=StringToULong( str.Slice( 1,3 ),16 )/255.0 g=StringToULong( str.Slice( 3,5 ),16 )/255.0 b=StringToULong( str.Slice( 5,7 ),16 )/255.0 Else If str.Length=9 '#AARRGGBB a=StringToULong( str.Slice( 1,3 ),16 )/255.0 r=StringToULong( str.Slice( 3,5 ),16 )/255.0 g=StringToULong( str.Slice( 5,7 ),16 )/255.0 b=StringToULong( str.Slice( 7,9 ),16 )/255.0 Else Return Color.Magenta Endif Return New Color( r,g,b,a ) End Method ToJson:JsonValue() Return New JsonArray( New JsonValue[]( New JsonNumber( r ),New JsonNumber( g ),New JsonNumber( b ),New JsonNumber( a ) ) ) End Function FromJson:Color( json:JsonValue ) If json.IsArray Local arr:=json.ToArray() Return New Color( arr[0].ToNumber(),arr[1].ToNumber(),arr[2].ToNumber(),arr[3].ToNumber() ) Else Return FromHex( json.ToString() ) Endif End End Class JsonObject Extension Method GetJson:JsonValue( key:String,defValue:Bool ) Local json:=Self Return New JsonValue ' <------- crap Return value FIXME End Method GetBool:Bool( key:String,defValue:Bool ) Local json:=Self Return json.Contains( key ) ? json[key].ToBool() Else defValue End Method GetString:String( key:String,defValue:String ) Local json:=Self Return json.Contains( key ) ? json[key].ToString() Else defValue End Method GetInt:Int( key:String,defValue:Int ) Local json:=Self Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue End Method GetNumber:Double( key:String,defValue:Int ) Local json:=Self Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue End Method FindValue:JsonValue( key:String ) key=key.Replace( "\","/" ) Local keys:=key.Split( "/" ) Local json:=Self.Data Local jval:JsonValue For Local k:=0 Until keys.Length If Not json.Contains( keys[k] ) Return Null jval=json[ keys[k] ] If k=keys.Length-1 Exit If Not jval.IsObject Return Null json=jval.ToObject() Next Return jval End End Class JsonArray Extension Function FromStrings:JsonArray( values:String[] ) Local jvals:=New JsonValue[values.Length] For Local i:=0 Until values.Length jvals[i]=New JsonString( values[i] ) Next Return New JsonArray( jvals ) End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326

#Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. ' imports '     #Import "assets/" ' try to load prefs from file Const Prefs:=Preferences.Get( AppDir()+"prefs.json" ) Function Main() New AppInstance() ' try to get windowRect from prefs Local rect:Recti Local flags:=WindowFlags.Resizable If Prefs.Contains( "windowRect" ) rect=ToRecti( Prefs.GetJson( "windowRect" ) ) Else ' not found in prefs, set to defaults rect=New Recti( 0,0,900,800 ) flags|=WindowFlags.Center Endif Local wnd:=New MainWindow() ' "Prefs test",rect,flags ) ' <----- Main Window CTOR doesnt have params wnd.CloseRequested+=Lambda() Prefs.PutValue( "windowRect",ToJson( wnd.Frame ) ) Preferences.SaveAll() End App.Run() End   Class MainWindow Extends Window Field CloseRequested:Void()   Protected Method OnWindowEvent( event:WindowEvent ) Override If event.Type=EventType.WindowClose CloseRequested() Endif Super.OnWindowEvent( event ) End End   Class Preferences Final ' globals ' Function Get:Preferences( path:String ) If _prefs.Contains( path ) Return _prefs[path] Local p:=New Preferences( path ) _prefs[path]=p Return p End Function SaveAll() For Local p:=Eachin _prefs.Values p.Save() Next End ' signals ' Field Changed:Void( key:String,value:Variant ) ' setters ' Method PutValue( key:String,value:String ) _data[key]=New JsonString( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Bool ) _data[key]=New JsonBool( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Double ) _data[key]=New JsonNumber( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:JsonValue ) _data[key]=value _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Color ) _data[key]=value.ToJson() _dirty=True Changed( key,value ) End ' getters ' Method GetString:String( key:String,defValue:String="" ) Return _data.GetString( key,defValue ) End Method GetBool:Bool( key:String,defValue:Bool=False ) Return _data.GetBool( key,defValue ) End Method GetNumber:Double( key:String,defValue:Double=0 ) Return _data.GetNumber( key,defValue ) End Method GetJson:JsonValue( key:String,defValue:JsonValue=Null ) Return _data.GetJson( key,defValue ) End Method GetColor:Color( key:String,defValue:Color=Color.Magenta ) If _data.Contains( key ) Return Color.FromJson( _data[key] ) Endif Return defValue End ' load ' Method Load( path:String ) _path=path _data=JsonObject.Load( path ) ?Else New JsonObject _dirty=False End ' save ' Method Save( path:String="" ) If Not _dirty Return If Not path Then path=_path If Not path Return SaveString( _data.ToJson(),path ) _dirty=False End ' raw data ' Property Json:JsonObject() Return _data End Method Contains:Bool( key:String ) Return _data.Contains( key ) End Private Field _data:JsonObject Field _path:String Field _dirty:Bool Global _prefs:=New StringMap<Preferences> ' private constructors ' Method New( path:String ) Load( path ) End Method New() End End   Struct Color Extension Function FromHex:Color( hex:String ) Local str:=hex Local a:=1.0,r:=0.0,g:=0.0,b:=0.0 If str.Length=4 '#RGB r=StringToULong( str.Slice( 1,2 ),16 )/15.0 g=StringToULong( str.Slice( 2,3 ),16 )/15.0 b=StringToULong( str.Slice( 3,4 ),16 )/15.0 Else If str.Length=5 '#ARGB a=StringToULong( str.Slice( 1,2 ),16 )/15.0 r=StringToULong( str.Slice( 2,3 ),16 )/15.0 g=StringToULong( str.Slice( 3,4 ),16 )/15.0 b=StringToULong( str.Slice( 4,5 ),16 )/15.0 Else If str.Length=7 '#RRGGBB r=StringToULong( str.Slice( 1,3 ),16 )/255.0 g=StringToULong( str.Slice( 3,5 ),16 )/255.0 b=StringToULong( str.Slice( 5,7 ),16 )/255.0 Else If str.Length=9 '#AARRGGBB a=StringToULong( str.Slice( 1,3 ),16 )/255.0 r=StringToULong( str.Slice( 3,5 ),16 )/255.0 g=StringToULong( str.Slice( 5,7 ),16 )/255.0 b=StringToULong( str.Slice( 7,9 ),16 )/255.0 Else Return Color.Magenta Endif Return New Color( r,g,b,a ) End Method ToJson:JsonValue() Return New JsonArray( New JsonValue[]( New JsonNumber( r ),New JsonNumber( g ),New JsonNumber( b ),New JsonNumber( a ) ) ) End Function FromJson:Color( json:JsonValue ) If json.IsArray Local arr:=json.ToArray() Return New Color( arr[0].ToNumber(),arr[1].ToNumber(),arr[2].ToNumber(),arr[3].ToNumber() ) Else Return FromHex( json.ToString() ) Endif End End   Class JsonObject Extension Method GetJson:JsonValue( key:String,defValue:Bool ) Local json:=Self Return New JsonValue ' <------- crap Return value FIXME End Method GetBool:Bool( key:String,defValue:Bool ) Local json:=Self Return json.Contains( key ) ? json[key].ToBool() Else defValue End Method GetString:String( key:String,defValue:String ) Local json:=Self Return json.Contains( key ) ? json[key].ToString() Else defValue End Method GetInt:Int( key:String,defValue:Int ) Local json:=Self Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue End Method GetNumber:Double( key:String,defValue:Int ) Local json:=Self Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue End Method FindValue:JsonValue( key:String ) key=key.Replace( "\","/" ) Local keys:=key.Split( "/" ) Local json:=Self.Data Local jval:JsonValue For Local k:=0 Until keys.Length If Not json.Contains( keys[k] ) Return Null jval=json[ keys[k] ] If k=keys.Length-1 Exit If Not jval.IsObject Return Null json=jval.ToObject() Next Return jval End End   Class JsonArray Extension Function FromStrings:JsonArray( values:String[] ) Local jvals:=New JsonValue[values.Length] For Local i:=0 Until values.Length jvals[i]=New JsonString( values[i] ) Next Return New JsonArray( jvals ) End End

[therevillsParticipant]

Here is a slightly fixed simpler runnable example:

Monkey

#Import "<std>" Using std.. Const Prefs := New Preferences().Get(AppDir() + "prefs.json") Function Main() Print "Start" ' try to get windowRect from prefs Local x:Int Prefs.Get( AppDir()+"prefs.json" ) If Prefs.Contains( "x" ) Print "Prefs contains x" x= Prefs.GetInt("x") Print x Else ' not found in prefs, set to defaults Print "Prefs does not contains x" x = Rnd(0, 100) Print x End Prefs.PutValue("x", x) Preferences.SaveAll() Print "Finished" End Class Preferences Final ' globals ' Function Get:Preferences( path:String ) If _prefs.Contains( path ) Return _prefs[path] Local p:=New Preferences( path ) _prefs[path]=p Return p End Function SaveAll() For Local p:=Eachin _prefs.Values p.Save() Next End ' signals ' Field Changed:Void( key:String,value:Variant ) ' setters ' Method PutValue( key:String,value:String ) _data[key]=New JsonString( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Bool ) _data[key]=New JsonBool( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Double ) _data[key]=New JsonNumber( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Int) _data[key]=New JsonNumber( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:JsonValue ) _data[key]=value _dirty=True Changed( key,value ) End ' getters ' Method GetString:String( key:String,defValue:String="" ) Return _data.GetString( key,defValue ) End Method GetBool:Bool( key:String,defValue:Bool=False ) Return _data.GetBool( key,defValue ) End Method GetInt:Double( key:String,defValue:Int=0 ) Return _data.GetInt( key,defValue ) End Method GetNumber:Double( key:String,defValue:Double=0 ) Return _data.GetNumber( key,defValue ) End ' load ' Method Load( path:String ) _path=path _data=JsonObject.Load( path ) ?Else New JsonObject _dirty=False End ' save ' Method Save( path:String="" ) If Not _dirty Return If Not path Then path=_path If Not path Return SaveString( _data.ToJson(),path ) _dirty=False End ' raw data ' Property Json:JsonObject() Return _data End Method Contains:Bool( key:String ) Return _data.Contains( key ) End Private Field _data:JsonObject Field _path:String Field _dirty:Bool Global _prefs:=New StringMap<Preferences> ' private constructors ' Method New( path:String ) Load( path ) End Method New() End End Class JsonObject Extension Method GetBool:Bool( key:String,defValue:Bool ) Local json:=Self Return json.Contains( key ) ? json[key].ToBool() Else defValue End Method GetString:String( key:String,defValue:String ) Local json:=Self Return json.Contains( key ) ? json[key].ToString() Else defValue End Method GetInt:Int( key:String,defValue:Int ) Local json:=Self Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue End Method GetNumber:Double( key:String,defValue:Int ) Local json:=Self Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue End Method FindValue:JsonValue( key:String ) key=key.Replace( "\","/" ) Local keys:=key.Split( "/" ) Local json:=Self.Data Local jval:JsonValue For Local k:=0 Until keys.Length If Not json.Contains( keys[k] ) Return Null jval=json[ keys[k] ] If k=keys.Length-1 Exit If Not jval.IsObject Return Null json=jval.ToObject() Next Return jval End End Class JsonArray Extension Function FromStrings:JsonArray( values:String[] ) Local jvals:=New JsonValue[values.Length] For Local i:=0 Until values.Length jvals[i]=New JsonString( values[i] ) Next Return New JsonArray( jvals ) End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215

#Import "<std>" Using std..   Const Prefs := New Preferences().Get(AppDir() + "prefs.json")   Function Main() Print "Start" ' try to get windowRect from prefs Local x:Int   Prefs.Get( AppDir()+"prefs.json" ) If Prefs.Contains( "x" ) Print "Prefs contains x" x= Prefs.GetInt("x") Print x Else ' not found in prefs, set to defaults Print "Prefs does not contains x" x = Rnd(0, 100) Print x End Prefs.PutValue("x", x) Preferences.SaveAll() Print "Finished" End   Class Preferences Final ' globals ' Function Get:Preferences( path:String ) If _prefs.Contains( path ) Return _prefs[path] Local p:=New Preferences( path ) _prefs[path]=p Return p End Function SaveAll() For Local p:=Eachin _prefs.Values p.Save() Next End ' signals ' Field Changed:Void( key:String,value:Variant ) ' setters ' Method PutValue( key:String,value:String ) _data[key]=New JsonString( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Bool ) _data[key]=New JsonBool( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Double ) _data[key]=New JsonNumber( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:Int) _data[key]=New JsonNumber( value ) _dirty=True Changed( key,value ) End Method PutValue( key:String,value:JsonValue ) _data[key]=value _dirty=True Changed( key,value ) End ' getters ' Method GetString:String( key:String,defValue:String="" ) Return _data.GetString( key,defValue ) End Method GetBool:Bool( key:String,defValue:Bool=False ) Return _data.GetBool( key,defValue ) End Method GetInt:Double( key:String,defValue:Int=0 ) Return _data.GetInt( key,defValue ) End Method GetNumber:Double( key:String,defValue:Double=0 ) Return _data.GetNumber( key,defValue ) End ' load ' Method Load( path:String ) _path=path _data=JsonObject.Load( path ) ?Else New JsonObject _dirty=False End ' save ' Method Save( path:String="" ) If Not _dirty Return If Not path Then path=_path If Not path Return SaveString( _data.ToJson(),path ) _dirty=False End ' raw data ' Property Json:JsonObject() Return _data End Method Contains:Bool( key:String ) Return _data.Contains( key ) End Private Field _data:JsonObject Field _path:String Field _dirty:Bool Global _prefs:=New StringMap<Preferences> ' private constructors ' Method New( path:String ) Load( path ) End Method New() End End   Class JsonObject Extension Method GetBool:Bool( key:String,defValue:Bool ) Local json:=Self Return json.Contains( key ) ? json[key].ToBool() Else defValue End Method GetString:String( key:String,defValue:String ) Local json:=Self Return json.Contains( key ) ? json[key].ToString() Else defValue End Method GetInt:Int( key:String,defValue:Int ) Local json:=Self Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue End Method GetNumber:Double( key:String,defValue:Int ) Local json:=Self Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue End Method FindValue:JsonValue( key:String ) key=key.Replace( "\","/" ) Local keys:=key.Split( "/" ) Local json:=Self.Data Local jval:JsonValue For Local k:=0 Until keys.Length If Not json.Contains( keys[k] ) Return Null jval=json[ keys[k] ] If k=keys.Length-1 Exit If Not jval.IsObject Return Null json=jval.ToObject() Next Return jval End End   Class JsonArray Extension Function FromStrings:JsonArray( values:String[] ) Local jvals:=New JsonValue[values.Length] For Local i:=0 Until values.Length jvals[i]=New JsonString( values[i] ) Next Return New JsonArray( jvals ) End End

[nerobotParticipant]

Thanks for concatenating all related parts here!

Note: “New Preferences().Get(…” – you needn’t to use New here because Get is a function not a method and it can be accessed by class name not an instance.

Syntax in my first post is correct.

[therevillsParticipant]

That’s what I thought, but without the new you get “Attempt to invoke method on null instance” error…

[nerobotParticipant]

Did you check line with error by debugger?

[therevillsParticipant]

I’m also getting run time error: “Attempt to invoke method on null instance” on the “If _prefs.Contains( path ) Return _prefs[path]” line…

[Author]

Posts