~sebikul/mundus/mundus-git

' Gambas class file

 

' Mundus

' Copyright(C)2012 sebikul <sebikul@gmail.com>

 

' This program is free software: you can redistribute it and/or modify

' it under the terms of the GNU General Public License as published by

' the Free Software Foundation, either version 3 of the License, or

' (at your option) any later version.

 

' This program is distributed in the hope that it will be useful,

' but WITHOUT ANY WARRANTY; without even the implied warranty of

' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

' GNU General Public License for more details.

 

' You should have received a copy of the GNU General Public License

' along with this program.  If not, see <http://www.gnu.org/licenses/>.

 

Public Sub Form_Open()

 

  Me.Center

 

  lblAbout.Text = Subst(("<h2>Mundus Home Folder Cleaner v&1</h2><p><h4> by sebikul</h4><p><p>Includes icon from the Faenza Icons Theme"),

    Application.Version)

 

End

 

Public Sub btOK_Click()

 

  Me.Close

 

End

 

Public Sub Form_KeyPress()

 

  If Key.Code = Key.Escape Then Me.Close

 

End