fnewdirectory.class

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

' Gambas class file

STATIC PUBLIC Name AS String
STATIC PUBLIC ParentDir AS String

PRIVATE selParent AS FSupSelector

STATIC PUBLIC FUNCTION Run(sParent AS String) AS Boolean

  DIM hForm AS FNewDirectory

  ParentDir = sParent

  hForm = NEW FNewDirectory

  RETURN NOT hForm.ShowModal()

END

PUBLIC SUB _new()

  'ME.Title = "New " & $sType
  'txtFile.Text = Name
  txtFile.SetFocus

  selParent = NEW FSupSelector(ME)

  WITH selParent

    .DialogType = FSupSelector.SHOW_DIRECTORY
    .ShowProjectTab = TRUE
    .DoNotShowCustomTabs = TRUE
    .Root = File.Dir(Project.Path)
    .Path = If(ParentDir, ParentDir, selParent.Root)
    .Init()
    .Move(lblParent.X, lblParent.Y, lblParent.W, lblParent.H)

  END WITH

  btnOK.Raise
  btnCancel.Raise

END


PUBLIC SUB btnOK_Click()

  DIM sPath AS String

  Name = Trim(txtFile.Text)

  IF Project.CheckFileName(Name, ParentDir) THEN
    txtFile.SetFocus
    RETURN
  ENDIF

  IF NOT selParent.Validate() THEN RETURN
  ParentDir = selParent.Path

  ME.Close(TRUE)

END


PUBLIC SUB btnCancel_Click()

  ME.Close

END