frename.class

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

' Gambas class file

STATIC PRIVATE $sName AS String

PRIVATE $bClass AS String

STATIC PUBLIC FUNCTION Run(sName AS String, sTitle AS String, OPTIONAL bClass AS Boolean) AS String
  
  DIM hForm AS FRename
  
  $sName = sName
  hForm = NEW FRename(sTitle, bClass)
  IF hForm.ShowModal() THEN RETURN $sName
  
END

PUBLIC SUB _new(sTitle AS String, bClass AS Boolean)

  IF NOT sTitle THEN sTitle = ("Rename")  
  ME.Title = sTitle
  $bClass = bClass
  
  txtFile.Text = $sName
  txtFile.SetFocus
  txtFile.Selection
  
END

PUBLIC SUB btnOK_Click()

  DIM sNewName AS String

  sNewName = Trim(txtFile.Text)

  IF sNewName = $sName THEN RETURN

  IF $bClass THEN
    IF Project.CheckClassName(sNewName) THEN
      txtFile.SetFocus
      RETURN
    ENDIF
  ELSE
    IF Project.CheckFileName(sNewName) THEN
      txtFile.SetFocus
      RETURN
    ENDIF
  ENDIF
  
  $sName = sNewName

  ME.Close(TRUE)

END

PUBLIC SUB btnCancel_Click()

  ME.Close

END