Merge branch 'release/1.0'

Conflicts:
	.gitignore
	README.md

.gitignore

@@ -1 +1,6 @@
 *.xojo_uistate
+*.debug.app
+Update Test App/Builds - Kaju Update Test.xojo_project
+DebugKaju Update Test.tar.gz
+DebugKaju Admin.tar.gz
+Kaju Admin App/Builds - Kaju Admin.xojo_project

Kaju Admin App/App.xojo_code

@@ -0,0 +1,216 @@
+#tag Class
+Protected Class App
+Inherits Application
+	#tag Event
+		Sub NewDocument()
+		  dim w as new WndAdmin
+		  w.Show
+		End Sub
+	#tag EndEvent
+
+	#tag Event
+		Sub Open()
+		  return
+
+		  //
+		  // Some test code below
+		  //
+
+		  //
+		  // Create the pref folder
+		  //
+
+		  dim f as FolderItem = PrefFolder
+
+		  dim u as new Kaju.UpdateChecker( f )
+		  #pragma unused u
+
+		  dim r as double
+
+		  r = Kaju.VersionToDouble( "1.2a999" )
+		  r = Kaju.VersionToDouble( "1.2b3" )
+		  r = Kaju.VersionToDouble( "1.2" )
+		  r = Kaju.VersionToDouble( "1.3.999d777" )
+
+		  dim vers as string = Kaju.AppVersionString
+		  vers = Kaju.VersionStringFor( 1, 3, 44 )
+
+		  'u.TestUpdate( kTestJSON1 )
+		  'u.TestUpdate( kTestJSON2 )
+		  'u.TestUpdate( kTestJSON2 )
+
+		  'dim sh as new Kaju.ZipShell
+		  'dim zipFile as FolderItem = SpecialFolder.Desktop.Child( f.Name + ".zip" )
+		  'sh.Compress( f, zipFile )
+		  '
+		  'sh.Decompress( zipFile )
+		  '
+		  'MsgBox sh.ContentsOf( zipFile )
+
+
+		End Sub
+	#tag EndEvent
+
+	#tag Event
+		Sub OpenDocument(item As FolderItem)
+		  //
+		  // See if this document is open already
+		  //
+
+		  dim firstAdminWindow as WndAdmin
+
+		  dim lastIndex as integer = WindowCount - 1
+		  for i as integer = 0 to lastIndex
+		    dim thisWnd as Window = Window( i )
+		    if thisWnd IsA WndAdmin then
+
+		      dim adminWnd as WndAdmin = WndAdmin( thisWnd )
+
+		      if adminWnd.Document <> nil and adminWnd.Document.NativePath = item.NativePath then
+		        adminWnd.Show
+		        return
+		      end if
+
+		      if firstAdminWindow is nil then
+		        firstAdminWindow = adminWnd
+		      end if
+
+		    end if
+		  next
+
+		  //
+		  // If we get here, it's not already open
+		  // so see if the front window can be used
+		  //
+
+		  if firstAdminWindow <> nil and firstAdminWindow.Document is nil and not firstAdminWindow.ContentsChanged then
+		    //
+		    // It's an empty window
+		    //
+		    firstAdminWindow.OpenDocument( item )
+
+		  else
+		    //
+		    // Create a new window
+		    //
+		    dim w as new WndAdmin
+		    w.OpenDocument( item )
+
+		  end if
+		End Sub
+	#tag EndEvent
+
+
+	#tag MenuHandler
+		Function FileNew() As Boolean Handles FileNew.Action
+			NewDocument
+
+			Return True
+
+		End Function
+	#tag EndMenuHandler
+
+	#tag MenuHandler
+		Function FileOpen() As Boolean Handles FileOpen.Action
+			dim dlg as new OpenDialog
+			dlg.MultiSelect = true
+			dlg.PromptText = "Choose a Kaju document:"
+
+			dim f as FolderItem = dlg.ShowModal
+
+			if f <> nil then
+			for i as integer = 1 to dlg.Count
+			OpenDocument( dlg.Item( i - 1 ) )
+			next
+			end if
+
+			Return True
+
+		End Function
+	#tag EndMenuHandler
+
+
+	#tag ComputedProperty, Flags = &h0
+		#tag Getter
+			Get
+			  dim f as FolderItem = SpecialFolder.ApplicationData.Child( "Kaju Admin" )
+
+			  if not f.Exists then
+			    f.CreateAsFolder
+			  end if
+
+			  return f
+
+			End Get
+		#tag EndGetter
+		PrefFolder As FolderItem
+	#tag EndComputedProperty
+
+	#tag Property, Flags = &h0
+		UpdateInitiater As Kaju.UpdateInitiater
+	#tag EndProperty
+
+
+	#tag Constant, Name = kEditClear, Type = String, Dynamic = False, Default = \"&Delete", Scope = Public
+		#Tag Instance, Platform = Windows, Language = Default, Definition  = \"&Delete"
+		#Tag Instance, Platform = Linux, Language = Default, Definition  = \"&Delete"
+	#tag EndConstant
+
+	#tag Constant, Name = kFileClose, Type = String, Dynamic = False, Default = \"Close &Window", Scope = Public
+	#tag EndConstant
+
+	#tag Constant, Name = kFileCloseShortcut, Type = String, Dynamic = False, Default = \"", Scope = Public
+		#Tag Instance, Platform = Mac OS, Language = Default, Definition  = \"Cmd+W"
+		#Tag Instance, Platform = Windows, Language = Default, Definition  = \"Ctrl+W"
+		#Tag Instance, Platform = Linux, Language = Default, Definition  = \"Ctrl+W"
+	#tag EndConstant
+
+	#tag Constant, Name = kFileNew, Type = String, Dynamic = False, Default = \"&New Kaju Document", Scope = Public
+	#tag EndConstant
+
+	#tag Constant, Name = kFileNewShortcut, Type = String, Dynamic = False, Default = \"", Scope = Public
+		#Tag Instance, Platform = Mac OS, Language = Default, Definition  = \"Cmd+N"
+		#Tag Instance, Platform = Windows, Language = Default, Definition  = \"Ctrl+N"
+		#Tag Instance, Platform = Linux, Language = Default, Definition  = \"Ctrl+N"
+	#tag EndConstant
+
+	#tag Constant, Name = kFileOpen, Type = String, Dynamic = False, Default = \"&Open Kaju Document...", Scope = Public
+	#tag EndConstant
+
+	#tag Constant, Name = kFileOpenShortcut, Type = String, Dynamic = False, Default = \"", Scope = Public
+		#Tag Instance, Platform = Windows, Language = Default, Definition  = \"Ctrl+O"
+		#Tag Instance, Platform = Mac OS, Language = Default, Definition  = \"Cmd+O"
+		#Tag Instance, Platform = Linux, Language = Default, Definition  = \"Ctrl+O"
+	#tag EndConstant
+
+	#tag Constant, Name = kFileQuit, Type = String, Dynamic = False, Default = \"&Quit", Scope = Public
+		#Tag Instance, Platform = Windows, Language = Default, Definition  = \"E&xit"
+	#tag EndConstant
+
+	#tag Constant, Name = kFileQuitShortcut, Type = String, Dynamic = False, Default = \"", Scope = Public
+		#Tag Instance, Platform = Mac OS, Language = Default, Definition  = \"Cmd+Q"
+		#Tag Instance, Platform = Linux, Language = Default, Definition  = \"Ctrl+Q"
+		#Tag Instance, Platform = Windows, Language = Default, Definition  = \"Ctrl+Q"
+	#tag EndConstant
+
+	#tag Constant, Name = kFileSave, Type = String, Dynamic = False, Default = \"&Save", Scope = Public
+	#tag EndConstant
+
+	#tag Constant, Name = kFileSaveAs, Type = String, Dynamic = False, Default = \"Sav&e As...", Scope = Public
+	#tag EndConstant
+
+	#tag Constant, Name = kFileSaveShortcut, Type = String, Dynamic = False, Default = \"", Scope = Public
+		#Tag Instance, Platform = Mac OS, Language = Default, Definition  = \"Cmd+S"
+		#Tag Instance, Platform = Windows, Language = Default, Definition  = \"Ctrl+S"
+		#Tag Instance, Platform = Linux, Language = Default, Definition  = \"Ctrl+S"
+	#tag EndConstant
+
+	#tag Constant, Name = kTestJSON1, Type = String, Dynamic = False, Default = \"[\n\t{\n\t\"Version\" : \"1.0.3\"\x2C\n\t\"MacBinary\" : \n\t\t{\n\t\t\"URL\" : \"http://www.sample.com/macdownload\"\x2C\n\t\t\"Signature\" : \"123456\"\n\t\t}\n\t} \n]", Scope = Private
+	#tag EndConstant
+
+	#tag Constant, Name = kTestJSON2, Type = String, Dynamic = False, Default = \"[\n\t{\n\t\"Version\" : \"1.0.3\"\x2C\n\t\"MacBinary\" : \n\t\t{\n\t\t\"URL\" : \"http://www.sample.com/macdownload\"\x2C\n\t\t\"Signature\" : \"123456\"\n\t\t}\x2C\n\t\"ReleaseNotes\" : \"<b>Version 1.0.3</b><br /><br /><p>This is a <i>really</i> important update that you should have.\"\n\t} \x2C\n\t{\n\t\"Version\" : \"1.1b1\"\x2C\n\t\"MacBinary\" : \n\t\t{\n\t\t\"URL\" : \"http://www.sample.com/macdownload\"\x2C\n\t\t\"Signature\" : \"123456\"\n\t\t}\x2C\n\t\"InfoURL\" : \"http://www.sample.com/moreinfo\"\n\t}\n]", Scope = Private
+	#tag EndConstant
+
+
+End Class
+#tag EndClass

Kaju Admin App/Controls/CheckBoxChanger.xojo_code

@@ -0,0 +1,18 @@
+#tag Class
+Protected Class CheckBoxChanger
+Inherits CheckBox
+	#tag Event
+		Sub Action()
+		  self.Window.ContentsChanged = true
+		  RaiseEvent Action()
+		End Sub
+	#tag EndEvent
+
+
+	#tag Hook, Flags = &h0
+		Event Action()
+	#tag EndHook
+
+
+End Class
+#tag EndClass

Kaju Admin App/Controls/TextAreaChanger.xojo_code

@@ -0,0 +1,18 @@
+#tag Class
+Protected Class TextAreaChanger
+Inherits TextArea
+	#tag Event
+		Sub TextChange()
+		  self.Window.ContentsChanged = true
+		  RaiseEvent TextChange()
+		End Sub
+	#tag EndEvent
+
+
+	#tag Hook, Flags = &h0
+		Event TextChange()
+	#tag EndHook
+
+
+End Class
+#tag EndClass