fsave.class

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

' Gambas class file

STATIC cFile AS NEW String[]

STATIC PUBLIC FUNCTION Run(OPTIONAL bQuit AS Boolean) AS Boolean

  DIM hForm AS Form
  
  hForm = NEW FSave(bQuit)
  RETURN NOT hForm.ShowModal()

END

PUBLIC SUB _new(bQuit AS Boolean)

  DIM hFile AS Object
  DIM iInd AS Integer

  FOR EACH hFile IN Project.Files
    IF hFile.IsModified() THEN
      lstFile.Add(File.Name(hFile.Path))
      lstFile[iInd].Selected = TRUE
      iInd = iInd + 1
    ENDIF
  NEXT

  FOR iInd = 0 TO lstFile.Count - 1
    lstFile[iInd].Selected = TRUE
  NEXT
  
  IF bQuit THEN btnQuit.Text = ("Quit")

END


PUBLIC SUB btnSave_Click()

  DIM bSaved AS Boolean
  DIM iInd AS Integer
  DIM hFile AS Object
  
  FOR EACH hFile IN Project.Files
    IF hFile.IsModified() THEN

      IF lstFile[iInd].Selected THEN
        IF hFile.Save() THEN
          bSaved = FALSE
          RETURN
        ENDIF
        bSaved = TRUE
      ENDIF
      
      INC iInd
 
    ENDIF
  NEXT

  IF bSaved THEN ME.Close(TRUE)

END


PUBLIC SUB btnQuit_Click()

  ME.Close(TRUE)

END


PUBLIC SUB btnCancel_Click()

  ME.Close()

END