Source

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

' Gambas class file
'    This file is part of vinstall-ng

'    vinstall-ng 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 2 of the License, or
'    (at your option) any later version.

'    vinstall-ng  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 vinstall-ng.  If not, see <http://www.gnu.org/licenses/>.

PUBLIC SUB Form_Open()

  ME.tlbanner.Text = "<h2>" & ("Automatic Partitioning Options") & "</h2>"
  ME.tlActionExp.Text = ("Select one of the following options")
  ME.tlEntireDisc.Text = ("Allow") & Space(1) & ClsGlobal.sDistroName & Space(1) & ("to use an entire hard disk in your system.") & "<br>" &
  "<b>" & ("This option will wipe out any data on the disk you select.") & "</b>"
  ME.tlFreeSpace.Text = ("Locate free (unpartitioned) space on hard disk and install") & Space(1) & ClsGlobal.sDistroName & Space(1) & ("there.") & "<br>" &
  "<i>" & ("This option will not harm any data on your hard drive") & "</i>"
  ME.tlFreeSpace2.Text = ("Resize your existing partitions to make room for a") & Space(1) & ClsGlobal.sDistroName & Space(1) & ("partition scheme") & "<br>" &
  "<i>" & ("This option will not harm any existing data on your hard drive") & "</i>"
  

END
PUBLIC SUB StartUp()
  
  
  
END

PUBLIC SUB OnExit()
  
  
  
END


PUBLIC FUNCTION GetNext() AS String
  
  IF ME.rbEntireDisk.Value = TRUE THEN 
    
      RETURN "Step3a1"
  ELSE IF ME.rbunpartitioned.Value = TRUE THEN 
    RETURN "Step3a2"
  ELSE IF ME.rbResizeParts.Value = TRUE THEN 
    RETURN "Step3a3"
  END IF
  
  
  
END