All pastes #566595 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-06-14 14:52 UTC
rendered paste body
PUBLIC SUB AboutLicense_Click()
  
  FMain.Enabled = FALSE
  FAbout.Show
   
  'Set the window title, frame caption and text area acordingly
  FAbout.Title = "About - License"
  FAbout.AboutFrame.Text = "License - GNU GPL"
  
  IF Exist(MLib.License) = FALSE THEN
    FAbout.AboutTxtArea.Text = "License file not found! Visit http://www.gnu.org/licenses/gpl.html"
  ELSE
    FAbout.AboutTxtArea.Text = File.Load(MLib.License)
  ENDIF
  

END


THIS IS GPL CODE.