Source

vlocity-vinstall-gambas / src / Conf1.class

' 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()

    DIM sRes AS String
    DIM i AS Integer
    ME.tlbanner.Text = "<h3>" & tlbanner.Text & "</h3>"
    MdlMain.ADVANCE_STATUS_TREE("Step6", "Step7")
    MdlMain.DISPLAY_TIME_ZONES(ME.lbTmZone)
      ' default the time zone to us/central
      
      ME.lbTmZone["US/Central"].Selected = TRUE
      ME.lbTmZone["US/Central"].EnsureVisible
      
      ' run a check to make sure partitions are bound
    REPEAT 
    SHELL "mount | grep bind" TO sRes
      IF Len(Trim(sres)) <= 0 THEN 
        MdlBootMngr.DO_BIND_MOUNTING()
      END IF
      INC i
    UNTIL Len(Trim(sres)) > 0 OR i = 3
    
END

PUBLIC FUNCTION GetNext() AS String
  
  RETURN "Conf2"
  
  
END
PUBLIC SUB StartUp()
  
  'ME.lbTmZone["US/Central"].EnsureVisible()
  ME.lbTmZone.Current.EnsureVisible()
  ClsGlobal.fRunningMainForm.btnext.enabled = TRUE
  
END
PUBLIC SUB OnExit()
  
  MdlMain.Set_App_Status(("Saving regional settings."), 10)
  MdlMain.SET_TIME_ZONE(lbTmZone.Current.Text, Trim(ME.cbHwClock.Text))
  
  
END



PUBLIC SUB lbTmZone_Click()

  'Message(ME.lbTmZone.Text)
  FMain.btnext.Enabled = TRUE

END



PUBLIC SUB Form_Resize()

 ME.hbox4.Height = ME.ClientHeight - (ME.HBox4.Top + 24)

END

PUBLIC SUB cbHwClock_Click()

  

END



PUBLIC SUB TextLabel1_MouseDown()

  

END

PUBLIC SUB lbTmZone_Select()

  ClsGlobal.fRunningMainForm.btnext.Enabled = TRUE

END
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.