# SimpleEdit
# 2009-02-23
# Chieh Cheng
# http://www.CynosureX.com/

# GNU General Public License (GPL), Version 2, June 1991

  progName = "SimpleEdit"
  configDir = "\Application Data"
  config = configDir \ progName & ".ini"

  If (not DirExists (configDir))
    MkDir (configDir)
  EndIf

  if (file eq "")
    If (FileExists (config))
      last = IniRead (config, "Path", "LastDir")
      file = SelectFile ("Edit Text . . .", false, "*", "Load a text file to edit:", last)
    Else
      file = SelectFile ("Edit Text . . .", false, "*", "Load a text file to edit:")
    EndIf
  Endif

  if (file ne "")
    IniWrite (config, "Path", "LastDir", file)
    default = ReadFile (file)
    content = Input (file, progName, false, true, default)
    If (content ne "")
      WriteFile (file, content, false)
    Endif
  Endif