Source

vlocity-vinstall-gambas / Vlocity / .svn / text-base / FrmHelp.class.svn-base

' Gambas class file

PUBLIC SUB Run() AS Boolean

  RETURN NOT ME.ShowModal()

END

PUBLIC SUB btnOK_Click()

  ME.Close(TRUE)
  

END

PUBLIC SUB btnCancel_Click()

  ME.Close

END


PUBLIC SUB Form_Open()
ClsGlobal.fRunningMainForm.enabled = FALSE
  ME.TextLabel1.Text = "<b>" & UCase(MdlHelpSystem.Get_Step_Title(ClsGlobal.fRunningMainForm.$oCurrent)) & "</b>"
  ME.tlText.Text = MdlHelpSystem.TRIGGER_HELP(ClsGlobal.fRunningMainForm.$oCurrent)
  ME.Center

END

PUBLIC SUB Form_Close()

  ClsGlobal.fRunningMainForm.enabled = TRUE

END