-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathfrmChooseFB.class
59 lines (51 loc) · 1.6 KB
/
frmChooseFB.class
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
' Gambas class file
PUBLIC SUB btNext_Click()
DIM sel AS String
sel = Trim(fblist.text)
IF InStr(sel, "Standard") THEN
global.CONSOLENUM = "normal"
ELSE IF InStr(sel, "Bootsplash - high") THEN
global.CONSOLENUM = "791"
' Need to add more code to take care of the splash
'SPLASH = "plash=silent"
'RAMDISK="/boot/initrd"
ELSE IF InStr(sel, "Bootsplash - med") THEN
Global.CONSOLENUM = "788"
'SPLASH = "splash=silent"
'RAMDISK = "/boot/initrd"
ELSE IF InStr(sel, "Bootsplash - low") THEN
Global.CONSOLENUM = "785"
'SPLASH="splash=silent"
'RAMDISK="/boot/initrd"
ELSE IF InStr(sel, "640 x 480 @ 256") THEN
Global.CONSOLENUM = "769"
ELSE IF InStr(sel, "800 x 600 @ 256") THEN
Global.CONSOLENUM = "771"
ELSE IF InStr(sel, "1024 x 768 @ 256") THEN
Global.CONSOLENUM = "773"
ELSE IF InStr(sel, "640 x 480 @ 32k") THEN
Global.CONSOLENUM = "784"
ELSE IF InStr(sel, "800 x 600 @ 32k") THEN
Global.CONSOLENUM = "787"
ELSE IF InStr(sel, "1024 x 768 @ 32k") THEN
Global.CONSOLENUM = "790"
ELSE IF InStr(sel, "640 x 480 @ 64k") THEN
Global.CONSOLENUM = "785"
ELSE IF InStr(sel, "800 x 600 @ 64k") THEN
Global.CONSOLENUM = "788"
ELSE IF InStr(sel, "1024 x 768 @ 64k") THEN
Global.CONSOLENUM = "791"
ELSE
message.Error("Please select from the list!")
END IF
'message.Info(Trim(fblist.text))
'message.Info(Global.CONSOLENUM)
Message.Info("Found your root partition : " & global.RootPart & gb.newline &
"Found your kernel in : " & global.KernelLoc & gb.newline &
"Video mode to use for boot: " & global.CONSOLENUM & gb.NewLine &
"Installing Boot manager to : " & global.MBRSel)
ME.Close
END
PUBLIC SUB btCancel_Click()
ME.close
END