Import cocoaext.userdefaults

Graphics (800, 600, 0)


Local UD:TCocoaUserDefaults = New TCocoaUserDefaults

SeedRnd MilliSecs ()

Local output:String
Local stringcount:Int

Repeat

	DrawText ("chaos.cocoauserdefaults sample", 10, 10)
	DrawText ("Open ~~/Library/Preferences/cud_sample.plist to see the result", 10, 25)
	DrawText ("A Array / B Bool / D Double / F Float / I Int / S String / Y Byte", 10, 40) 

	DrawText (output, 10, 60) 

	If KeyHit (KEY_A)
		UD.setStringArrayForKey ("cud_StringArray", ["Hello", "World", "World1", "World2", "World3", "and World4"] ).synchronize ()
		Local _resultarray:String[] = UD.stringArrayForKey ("cud_StringArray")
		output = "String[] = "
		For Local _value:String = EachIn _resultarray
			output:+_value
			output:+"|"
		Next
		output = output[0..output.length-1]
	EndIf

	If KeyHit (KEY_B)
		If UD.boolForKey ("cud_Bool")
			UD.setBoolForKey ("cud_Bool", False).synchronize ()
		Else
			UD.setBoolForKey ("cud_Bool", True).synchronize ()
		EndIf
		output = "Bool = "+UD.boolForKey ("cud_Bool")
	EndIf

	If KeyHit (KEY_S)
		stringcount:+1
		UD.setStringForKey ("cud_String", "Hello World "+stringcount).synchronize ()
		output = "String = "+UD.stringForKey ("cud_String")
	EndIf

	If KeyHit (KEY_I)
		If UD.integerForKey ("cud_Integer")
			UD.setIntegerForKey ("cud_Integer", 0).synchronize ()
		Else
			UD.setIntegerForKey ("cud_Integer", Rand(1,1000000000)).synchronize ()
		EndIf
		output = "Integer = "+UD.integerForKey ("cud_Integer")
	EndIf

	If KeyHit (KEY_Z) 'whats wrong with the key mapping :O
		If UD.byteForKey ("cud_Byte")
			UD.setByteForKey ("cud_Byte", 0).synchronize ()
		Else
			UD.setByteForKey ("cud_Byte", Rand(1, 255)).synchronize ()
		EndIf
		output = "Byte = "+UD.byteForKey ("cud_Byte")
	EndIf

	If KeyHit (KEY_F)
		UD.setFloatForKey ("cud_Float", Rnd(1.0, 1000000.0)).synchronize ()
		output = "Float = "+UD.floatForKey ("cud_Float")
	EndIf

	If KeyHit (KEY_D)
		UD.setDoubleForKey ("cud_Double", Rnd(1.0, 1000000.0)).synchronize ()
		output = "Double = "+UD.doubleForKey ("cud_Double")
	EndIf

	Flip (1)
	Cls ()

Until AppTerminate () Or KeyHit (KEY_ESCAPE)