Source

vlocity-vinstall-gambas / src / Step7.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()

  ME.tlbanner.Text = "<h2>" & ("Select Installation Mode") & "</h2>"
  
  MdlMain.ADVANCE_STATUS_TREE("Step2", "Step3")
  ' ClsGlobal.fRunningMainForm.listview1["Step2"].picture = MdlStartUp.pDone
  ' ClsGlobal.fRunningMainForm.listview1["Step3"].picture = MdlStartUp.pNow
  ClsGlobal.objMinComponents.Add(ME.rbCliMin)
  ClsGlobal.objMinComponents.Add(ME.rbMinDev)
END

PUBLIC FUNCTION GetNext() AS String
  
  IF ME.rbCustomInstall.Value = TRUE THEN 
    ClsGlobal.iInstallMethod = rbCustomInstall.Tag ' SHOULD BE 1
    RETURN "Step7a" ' CUSTOM INSTALL (FULLY AUTOMATED)
  ELSE IF ME.rbFullInstall.Value = TRUE THEN 
    ClsGlobal.iInstallMethod = rbFullInstall.Tag ' SHOULD BE 0
    RETURN "Step8" ' FULL INSTALL WINDOW
  ELSE IF ME.rbMinimal.Value = TRUE THEN 
    ClsGlobal.iInstallMethod = rbMinimal.Tag ' SHOULD BE 2
    RETURN "Step8" ' MINIMAL INSTALL LOCATION (FULLY AUTOMATED)
  END IF
  
END
PUBLIC SUB StartUp()
  
  'ClsGlobal.fRunningMainForm.btnext.enabled = TRUE
  
END
PUBLIC SUB OnExit()
  
  ' set the install type to clsglobal.
  Main.Install.BulkObjects.Clear()
  Main.Install.CD2BulkObjects.Clear()
  IF ME.rbFullInstall.Value = TRUE THEN ClsGlobal.sInstallType = rbFullInstall.Tag
  IF ME.rbCustomInstall.Value = TRUE THEN ClsGlobal.sInstallType = rbCustomInstall.Tag
  IF ME.rbMinimal.Value = TRUE THEN 
    ClsGlobal.sInstallType = rbMinimal.Tag
      IF ME.rbCliMin.Value = TRUE THEN ClsGlobal.MinOptions.Push(Trim(rbCliMin.Tag))
      IF ME.rbMinDev.Value = TRUE THEN ClsGlobal.MinOptions.Push(Trim(rbMinDev.Tag))
  ELSE IF rbFullInstall.Value = TRUE THEN 
    MdlInstall.Create_Required_Bulks()
    MdlInstall.make_bulks_for_full_install() ' This also takes care of the bulks from CD2 and language packs (if any)
    MdlInstall.create_Optionals_Bulk(TRUE)
    
  END IF
END


PUBLIC SUB Panel4_MouseDown()

  

END

PUBLIC SUB rbMinimal_Click()

ME.rbCliMin.Visible = TRUE
ME.rbMinDev.Visible = TRUE

END

PUBLIC SUB rbCustomInstall_Click()

  ME.rbCliMin.Visible = FALSE
ME.rbMinDev.Visible = FALSE

END

PUBLIC SUB rbFullInstall_Click()

  ME.rbCliMin.Visible = FALSE
ME.rbMinDev.Visible = FALSE

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.