From: <cod...@go...> - 2009-02-04 22:45:10
|
Author: M0...@gm... Date: Wed Feb 4 14:32:46 2009 New Revision: 485 Added: branches/speedy/images/done.png (contents, props changed) branches/speedy/images/now.png (contents, props changed) branches/speedy/images/square.png (contents, props changed) Modified: branches/speedy/.lang/.pot branches/speedy/.lang/FMain.pot branches/speedy/.lang/FMain0.pot branches/speedy/.lang/Step0.pot branches/speedy/.lang/Step1.pot branches/speedy/.lang/Step5.pot branches/speedy/ClsGlobal.class branches/speedy/FMain.class branches/speedy/FMain.form branches/speedy/FMain0.class branches/speedy/FMain0.form branches/speedy/MdlStartUp.module branches/speedy/Step0.class branches/speedy/Step1.class branches/speedy/Step5.class branches/speedy/Step5.form Log: Added visual navigation Modified: branches/speedy/.lang/.pot ============================================================================== --- branches/speedy/.lang/.pot (original) +++ branches/speedy/.lang/.pot Wed Feb 4 14:32:46 2009 @@ -14,19 +14,19 @@ msgid "VectorLinux Installer" msgstr "" -#: FMain.class:234 FMain0.class:230 +#: FMain.class:242 FMain0.class:232 msgid "Process Overview" msgstr "" -#: FMain.class:275 FMain0.class:267 +#: FMain.class:284 FMain0.class:270 msgid "Back" msgstr "" -#: FMain.class:286 FMain0.class:278 +#: FMain.class:295 FMain0.class:281 msgid "Next" msgstr "" -#: FMain.class:297 FMain0.class:289 +#: FMain.class:306 FMain0.class:292 msgid "Quit" msgstr "" @@ -42,19 +42,19 @@ msgid "English (US)" msgstr "" -#: Step0.class:249 +#: Step0.class:253 msgid "Select your language" msgstr "" -#: Step0.class:280 +#: Step0.class:284 msgid "Select your keyboard layout" msgstr "" -#: Step0.class:299 +#: Step0.class:303 msgid "Select your keyboard model" msgstr "" -#: Step0.class:321 +#: Step0.class:325 msgid "Use this box to test your keyboard settings" msgstr "" @@ -62,67 +62,67 @@ msgid "on" msgstr "" -#: Step1.class:128 +#: Step1.class:133 msgid "Scanning system partitions for installation files" msgstr "" -#: Step1.class:147 +#: Step1.class:152 msgid "Found" msgstr "" -#: Step1.class:147 +#: Step1.class:152 msgid "in partition" msgstr "" -#: Step1.class:188 +#: Step1.class:193 msgid "Scanning for CD Media ... Please wait" msgstr "" -#: Step1.class:201 +#: Step1.class:206 msgid "Scanning" msgstr "" -#: Step1.class:211 +#: Step1.class:216 msgid "in" msgstr "" -#: Step1.class:239 +#: Step1.class:244 msgid "Scanning system for installable ISO images" msgstr "" -#: Step1.class:332 +#: Step1.class:337 msgid "DISTRIBUTION" msgstr "" -#: Step1.class:335 +#: Step1.class:340 msgid "VERSION" msgstr "" -#: Step1.class:412 +#: Step1.class:417 msgid "This feature can help you avoid an unsuccesful installation." msgstr "" -#: Step1.class:412 +#: Step1.class:417 msgid "WARNING:" msgstr "" -#: Step1.class:412 +#: Step1.class:417 msgid "This process can take a long time to complete." msgstr "" -#: Step1.class:464 +#: Step1.class:469 msgid "Select Installation Source" msgstr "" -#: Step1.class:482 +#: Step1.class:487 msgid "Select Installation source from the list below" msgstr "" -#: Step1.class:503 +#: Step1.class:508 msgid "Search Again" msgstr "" -#: Step1.class:527 +#: Step1.class:532 msgid "Check Installation media before installing" msgstr "" @@ -322,16 +322,50 @@ msgid "menu" msgstr "" -#: Step5.class:130 +#: Step5.class:169 +msgid "SYSTEM RESTART SUGGESTED" +msgstr "" + +#: Step5.class:169 +msgid "" +"Your system still contains some non-linux partitions. If you still have a " +"Windows operating system installed, it is recomended " +msgstr "" + +#: Step5.class:169 +msgid "that you reboot your system at this time. " +msgstr "" + +#: Step5.class:169 +msgid "Click the" +msgstr "" + +#: Step5.class:169 +msgid "button to restart your computer now, or click" +msgstr "" + +#: Step5.class:169 +msgid "to continue without restarting." +msgstr "" + +#: Step5.class:174 msgid "PARTITIONING DONE" msgstr "" -#: Step5.class:130 +#: Step5.class:174 msgid "CLick next to continue" msgstr "" -#: Step5.class:194 +#: Step5.class:190 +msgid "Your computer will restart in 10 seconds" +msgstr "" + +#: Step5.class:247 msgid "Loading partitioning utility ... Please Wait" +msgstr "" + +#: Step5.class:256 +msgid "Restart Now" msgstr "" #: Step6.class:46 Modified: branches/speedy/.lang/FMain.pot ============================================================================== --- branches/speedy/.lang/FMain.pot (original) +++ branches/speedy/.lang/FMain.pot Wed Feb 4 14:32:46 2009 @@ -14,19 +14,19 @@ "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: FMain.class:234 +#: FMain.class:242 msgid "Process Overview" msgstr "" -#: FMain.class:275 +#: FMain.class:284 msgid "Back" msgstr "" -#: FMain.class:286 +#: FMain.class:295 msgid "Next" msgstr "" -#: FMain.class:297 +#: FMain.class:306 msgid "Quit" msgstr "" Modified: branches/speedy/.lang/FMain0.pot ============================================================================== --- branches/speedy/.lang/FMain0.pot (original) +++ branches/speedy/.lang/FMain0.pot Wed Feb 4 14:32:46 2009 @@ -14,19 +14,19 @@ "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: FMain0.class:230 +#: FMain0.class:232 msgid "Process Overview" msgstr "" -#: FMain0.class:267 +#: FMain0.class:270 msgid "Back" msgstr "" -#: FMain0.class:278 +#: FMain0.class:281 msgid "Next" msgstr "" -#: FMain0.class:289 +#: FMain0.class:292 msgid "Quit" msgstr "" Modified: branches/speedy/.lang/Step0.pot ============================================================================== --- branches/speedy/.lang/Step0.pot (original) +++ branches/speedy/.lang/Step0.pot Wed Feb 4 14:32:46 2009 @@ -26,19 +26,19 @@ msgid "English (US)" msgstr "" -#: Step0.class:249 +#: Step0.class:253 msgid "Select your language" msgstr "" -#: Step0.class:280 +#: Step0.class:284 msgid "Select your keyboard layout" msgstr "" -#: Step0.class:299 +#: Step0.class:303 msgid "Select your keyboard model" msgstr "" -#: Step0.class:321 +#: Step0.class:325 msgid "Use this box to test your keyboard settings" msgstr "" Modified: branches/speedy/.lang/Step1.pot ============================================================================== --- branches/speedy/.lang/Step1.pot (original) +++ branches/speedy/.lang/Step1.pot Wed Feb 4 14:32:46 2009 @@ -18,67 +18,67 @@ msgid "on" msgstr "" -#: Step1.class:128 +#: Step1.class:133 msgid "Scanning system partitions for installation files" msgstr "" -#: Step1.class:147 +#: Step1.class:152 msgid "Found" msgstr "" -#: Step1.class:147 +#: Step1.class:152 msgid "in partition" msgstr "" -#: Step1.class:188 +#: Step1.class:193 msgid "Scanning for CD Media ... Please wait" msgstr "" -#: Step1.class:201 +#: Step1.class:206 msgid "Scanning" msgstr "" -#: Step1.class:211 +#: Step1.class:216 msgid "in" msgstr "" -#: Step1.class:239 +#: Step1.class:244 msgid "Scanning system for installable ISO images" msgstr "" -#: Step1.class:332 +#: Step1.class:337 msgid "DISTRIBUTION" msgstr "" -#: Step1.class:335 +#: Step1.class:340 msgid "VERSION" msgstr "" -#: Step1.class:412 +#: Step1.class:417 msgid "This feature can help you avoid an unsuccesful installation." msgstr "" -#: Step1.class:412 +#: Step1.class:417 msgid "WARNING:" msgstr "" -#: Step1.class:412 +#: Step1.class:417 msgid "This process can take a long time to complete." msgstr "" -#: Step1.class:464 +#: Step1.class:469 msgid "Select Installation Source" msgstr "" -#: Step1.class:482 +#: Step1.class:487 msgid "Select Installation source from the list below" msgstr "" -#: Step1.class:503 +#: Step1.class:508 msgid "Search Again" msgstr "" -#: Step1.class:527 +#: Step1.class:532 msgid "Check Installation media before installing" msgstr "" Modified: branches/speedy/.lang/Step5.pot ============================================================================== --- branches/speedy/.lang/Step5.pot (original) +++ branches/speedy/.lang/Step5.pot Wed Feb 4 14:32:46 2009 @@ -58,15 +58,47 @@ msgid "menu" msgstr "" -#: Step5.class:130 +#: Step5.class:169 +msgid "SYSTEM RESTART SUGGESTED" +msgstr "" + +#: Step5.class:169 +msgid "Your system still contains some non-linux partitions. If you still have a Windows operating system installed, it is recomended " +msgstr "" + +#: Step5.class:169 +msgid "that you reboot your system at this time. " +msgstr "" + +#: Step5.class:169 +msgid "Click the" +msgstr "" + +#: Step5.class:169 +msgid "button to restart your computer now, or click" +msgstr "" + +#: Step5.class:169 +msgid "to continue without restarting." +msgstr "" + +#: Step5.class:174 msgid "PARTITIONING DONE" msgstr "" -#: Step5.class:130 +#: Step5.class:174 msgid "CLick next to continue" msgstr "" -#: Step5.class:194 +#: Step5.class:190 +msgid "Your computer will restart in 10 seconds" +msgstr "" + +#: Step5.class:247 msgid "Loading partitioning utility ... Please Wait" +msgstr "" + +#: Step5.class:256 +msgid "Restart Now" msgstr "" Modified: branches/speedy/ClsGlobal.class ============================================================================== --- branches/speedy/ClsGlobal.class (original) +++ branches/speedy/ClsGlobal.class Wed Feb 4 14:32:46 2009 @@ -15,6 +15,8 @@ ' You should have received a copy of the GNU General Public License ' along with vinstall-ng. If not, see <http://www.gnu.org/licenses/>. +STATIC PUBLIC fRunningMainForm AS Object + STATIC PUBLIC sDistroName AS String STATIC PUBLIC sDistroVer AS String Modified: branches/speedy/FMain.class ============================================================================== --- branches/speedy/FMain.class (original) +++ branches/speedy/FMain.class Wed Feb 4 14:32:46 2009 @@ -24,6 +24,7 @@ PUBLIC SUB Form_Open() +ClsGlobal.fRunningMainForm = ME IF Application.Args[1] THEN 'System.Language = Trim(Application.Args[1]) $oCurrent = NEW Step1(pnlStack) @@ -33,6 +34,12 @@ btBack.Enabled = FALSE ME.auto_setup_for_resolution() ME.Resize(1024, 600) +MdlStartUp.LAYOUT_NAVIGATION_VISUALS() + IF Application.Args[1] THEN + ClsGlobal.fRunningMainForm.ListView1["Step0"].picture = MdlStartUp.pDone + ClsGlobal.fRunningMainForm.ListView1["Step1"].picture = MdlStartUp.pNow + END IF + END PUBLIC SUB auto_setup_for_resolution() @@ -117,7 +124,8 @@ $oCurrent.width = pnlStack.Width $oCurrent.Height = pnlStack.Height $oCurrent.Startup() ' Call each form's startup sub - + +ME.ListView1.Refresh END @@ -127,7 +135,7 @@ $oCurrent.height = pnlStack.Height ME.SidePanel1.Height = pnlStack.Height 'hpanel1.Width = SidePanel1.Width - PRINT ME.ClientWidth & "X" & ME.ClientHeight + 'PRINT ME.ClientWidth & "X" & ME.ClientHeight END Modified: branches/speedy/FMain.form ============================================================================== --- branches/speedy/FMain.form (original) +++ branches/speedy/FMain.form Wed Feb 4 14:32:46 2009 @@ -42,8 +42,9 @@ } } { ListView1 ListView - MoveScaled(2,3,16,21) + MoveScaled(2,3,20,28) Expand = True + Mode = Select.None } { HBox6 HBox MoveScaled(3,34,13,1) Modified: branches/speedy/FMain0.class ============================================================================== --- branches/speedy/FMain0.class (original) +++ branches/speedy/FMain0.class Wed Feb 4 14:32:46 2009 @@ -28,6 +28,8 @@ ' 'System.Language = Trim(Application.Args[1]) ' $oCurrent = NEW Step1(pnlStack) ' ELSE +ClsGlobal.fRunningMainForm = ME + $oCurrent = NEW Step1(pnlStack) 'END IF btBack.Enabled = FALSE @@ -110,7 +112,7 @@ $oCurrent.Height = pnlStack.Height $oCurrent.Startup() ' Call each form's startup sub - +ME.ListView1.Refresh END PUBLIC SUB Form_Resize() @@ -119,7 +121,7 @@ $oCurrent.height = pnlStack.Height ME.SidePanel1.Height = pnlStack.Height 'hpanel1.Width = SidePanel1.Width - PRINT ME.ClientWidth & "X" & ME.ClientHeight + 'PRINT ME.ClientWidth & "X" & ME.ClientHeight END Modified: branches/speedy/FMain0.form ============================================================================== --- branches/speedy/FMain0.form (original) +++ branches/speedy/FMain0.form Wed Feb 4 14:32:46 2009 @@ -47,6 +47,7 @@ { ListView1 ListView MoveScaled(4,4,16,8) Expand = True + Mode = Select.None } { HBox6 HBox MoveScaled(2,34,13,1) Modified: branches/speedy/MdlStartUp.module ============================================================================== --- branches/speedy/MdlStartUp.module (original) +++ branches/speedy/MdlStartUp.module Wed Feb 4 14:32:46 2009 @@ -15,6 +15,10 @@ ' 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 pDone AS Picture +PUBLIC pNow AS Picture +PUBLIC pToDo AS Picture + PUBLIC SUB MAIN() IF Application.Args[1] THEN @@ -24,4 +28,30 @@ fmain.Show + +END + +PUBLIC SUB LAYOUT_NAVIGATION_VISUALS() + + pDone = Picture.Load("images/done.png") + pNow = Picture.Load("images/now.png") + pToDo = Picture.Load("images/square.png") + + ClsGlobal.fRunningMainForm.listview1.add("Step0", "Select Language", pNow) + ClsGlobal.fRunningMainForm.listview1.add("Step1", "Select Media", pToDo) + ClsGlobal.fRunningMainForm.listview1.add("Step2", "Disk Partitioning", pToDo) + ClsGlobal.fRunningMainForm.listview1.add("Step3", "Software Selection", pTodo) + ClsGlobal.fRunningMainForm.listview1.add("Step4", "Installation Summary", pToDo) + ClsGlobal.fRunningMainForm.listview1.add("Step5", "Install VectorLinux", pToDo) + ClsGlobal.fRunningMainForm.listview1.add("Step6", "System Boot Manager", pToDo) + ClsGlobal.fRunningMainForm.listview1.add("Step7", "Regional Settings", pToDo) + ClsGlobal.fRunningMainForm.listview1.add("Step8", "User Accounts", pToDo) + ClsGlobal.fRunningMainForm.listview1.add("Step9", "Network Settings", pToDo) + ClsGlobal.fRunningMainForm.listview1.add("Step10", "Startup Options", pToDo) + ClsGlobal.fRunningMainForm.listview1.add("Step11", "Final Configuration", pToDo) + + 'fmain.ListView1.Add( + END + + Modified: branches/speedy/Step0.class ============================================================================== --- branches/speedy/Step0.class (original) +++ branches/speedy/Step0.class Wed Feb 4 14:32:46 2009 @@ -141,6 +141,10 @@ PUBLIC FUNCTION GetNext() AS String 'Step1.Resize(FMain.pnlStack.Width, FMain.pnlStack.Height) + + ClsGlobal.fRunningMainForm.Listview1["Step0"].picture = MdlStartUp.pDone + ClsGlobal.fRunningMainForm.Listview1["Step1"].picture = MdlStartUp.pNow + IF System.Language = "en_US" THEN RETURN "Step1" ELSE Modified: branches/speedy/Step1.class ============================================================================== --- branches/speedy/Step1.class (original) +++ branches/speedy/Step1.class Wed Feb 4 14:32:46 2009 @@ -91,6 +91,9 @@ PUBLIC FUNCTION GetNext() AS String + ClsGlobal.fRunningMainForm.listview1["Step1"].picture = MdlStartUp.pDone + ClsGlobal.fRunningMainForm.listview1["Step2"].picture = MdlStartUp.pNow + IF bcheckmedia.Value = TRUE THEN RETURN "Step2" 'IF Step2.sLastChecked <> Trim(ME.ComboBox1.Text) THEN @@ -104,6 +107,8 @@ RETURN "Step3" END IF + + 'FMain.ListView1["step0"].pi Modified: branches/speedy/Step5.class ============================================================================== --- branches/speedy/Step5.class (original) +++ branches/speedy/Step5.class Wed Feb 4 14:32:46 2009 @@ -121,14 +121,58 @@ END +PUBLIC FUNCTION CHECK_IF_REBOOT_NEEDED() AS Boolean + + ' KNOWN BUG: + ' This will make the user restart if there are FAT* partitions anywhere on the box + ' even if that drive was not modified + ' END OF BUG -- FIX SOON + + DIM sWinPartList AS String + + 'SHELL "probepart | grep -e \"^/dev.*FAT32$\" | sed \'s/\\*/ /\' | grep -e \"/dev\"" TO sFAT32List + 'SHELL "probepart | grep -e \"^/dev.*FAT$\" | sed \'s/\\*/ /\'|grep -e \" /dev\"" TO sFATList + + SHELL "probepart | grep \"^/dev\" | grep -i \"FAT*\" | tr -s \' \',\"\"" TO sWinPartList + + sWinPartList = Trim(sWinPartList) + IF sWinPartList THEN RETURN TRUE + RETURN FALSE + + ' IF sFAT32List <> "" THEN + ' RETURN TRUE ' reboot needed + ' ELSE IF sFATList <> "" THEN + ' RETURN TRUE ' reboot needed + ' ELSE + ' RETURN FALSE ' no reboot needed + ' END IF + + +END + + + PUBLIC SUB Embedder1_Close() + ME.Panel1.Arrangement = Arrange.Row ME.HBox1.Visible = TRUE 'ME.HBox2.Visible = TRUE ME.tlEmbDone.Visible = TRUE - ME.tlEmbDone.Text = "<h3>" & ("PARTITIONING DONE") & "</h3>" & gb.NewLine & gb.NewLine & - ("CLick next to continue") + IF ME.CHECK_IF_REBOOT_NEEDED() = TRUE THEN + ME.HBox2.Visible = TRUE + ME.tlEmbDone.Text = "<h3>" & ("SYSTEM RESTART SUGGESTED") & "</H3>" & GB.NewLine & + "\n" & + ("Your system still contains some non-linux partitions. If you still have a Windows operating system installed, it is recomended ")& + ("that you reboot your system at this time. ") & "<br><br>" & + ("Click the") & Space(1) & "\"" & "<b>" & ME.btRestart.Text & "</b>" & "\"" & Space(1) & ("button to restart your computer now, or click") & Space(1) & "\n" & + "\"" & "<b>" & ClsGlobal.fRunningMainForm.btNext.text & "</b>" & "\"" & Space(1) & ("to continue without restarting.") + + + ELSE + ME.tlEmbDone.Text = "<h3>" & ("PARTITIONING DONE") & "</h3>" & gb.NewLine & gb.NewLine & + ("CLick next to continue") + END IF FMain.btNext.Enabled = TRUE @@ -137,5 +181,12 @@ FMain0.btBack.Enabled = TRUE FMain.btQuit.Enabled = TRUE FMain0.btQuit.Enabled = TRUE + +END + +PUBLIC SUB btRestart_Click() + + SHELL "shutdown -r -t 10 &" + Message.Warning(("Your computer will restart in 10 seconds")) END Modified: branches/speedy/Step5.form ============================================================================== --- branches/speedy/Step5.form (original) +++ branches/speedy/Step5.form Wed Feb 4 14:32:46 2009 @@ -33,8 +33,17 @@ Expand = True Text = ("Loading partitioning utility ... Please Wait") } + { HBox2 HBox + MoveScaled(2,6,36,3) + Visible = False + { btRestart Button + MoveScaled(0,0,34,3) + Text = ("Restart Now") + Picture = Picture["icon:/small/quit"] + } + } { Embedder1 Embedder - MoveScaled(3,6,52,18) + MoveScaled(3,8,52,18) Expand = True } } Added: branches/speedy/images/done.png ============================================================================== Binary file. No diff available. Added: branches/speedy/images/now.png ============================================================================== Binary file. No diff available. Added: branches/speedy/images/square.png ============================================================================== Binary file. No diff available. |