Author: uelsk8s
Date: Sun Feb 1 00:22:32 2009
New Revision: 477
Modified:
branches/iVL/.lang/FrmPkgSel.pot
branches/iVL/.project
branches/iVL/FrmDone.class
branches/iVL/FrmDone.form
branches/iVL/FrmPkgSel.class
branches/iVL/FrmPkgSel.form
branches/iVL/installer.gambas
Log:
added throbber to final config form updated binary
Modified: branches/iVL/.lang/FrmPkgSel.pot
==============================================================================
--- branches/iVL/.lang/FrmPkgSel.pot (original)
+++ branches/iVL/.lang/FrmPkgSel.pot Sun Feb 1 00:22:32 2009
@@ -30,23 +30,23 @@
msgid "Size"
msgstr ""
-#: FrmPkgSel.class:81
+#: FrmPkgSel.class:83
msgid "Installs all optional components in your VectorLinux media to your
system"
msgstr ""
-#: FrmPkgSel.class:91
+#: FrmPkgSel.class:93
msgid "Choose your optional components to install."
msgstr ""
-#: FrmPkgSel.class:203
+#: FrmPkgSel.class:201
msgid "TextLabel1"
msgstr ""
-#: FrmPkgSel.class:213
+#: FrmPkgSel.class:211
msgid "Full Install"
msgstr ""
-#: FrmPkgSel.class:218
+#: FrmPkgSel.class:216
msgid "Custom Install"
msgstr ""
Modified: branches/iVL/.project
==============================================================================
--- branches/iVL/.project (original)
+++ branches/iVL/.project Sun Feb 1 00:22:32 2009
@@ -2,7 +2,7 @@
# Compiled with Gambas 2.10.2
Title=VectorLinux Installer
Startup=MdlCore
-Version=0.1.35
+Version=0.1.39
Library=gb.gtk
Library=gb.form
Library=gb.debug
Modified: branches/iVL/FrmDone.class
==============================================================================
--- branches/iVL/FrmDone.class (original)
+++ branches/iVL/FrmDone.class Sun Feb 1 00:22:32 2009
@@ -20,7 +20,8 @@
PUBLIC SUB Form_Open()
DIM sText AS String
-
+ME.MovieBox1.Path = "images/throbber.gif"
+ME.icon = picture["images/throbber.gif"]
FMain.FrmCurr = ME
Fmain.tvPlan["Conf4"].Picture = MdlCore.sDonePic
Fmain.tvPlan["Conf5"].Picture = MdlCore.sNowPic
@@ -50,8 +51,11 @@
sText = "<br><br><br>" & ClsGlobal.DISTRO & Space(1) & ("is
performing final system configuration. Please wait a moment.")
FMain.btnext.Enabled = FALSE
FMain.btQuit.Enabled = FALSE
+ ME.MovieBox1.Playing = TRUE
ELSE
'Message.Info("Found /tmp/status")
+ ME.MovieBox1.Playing = FALSE
+ ME.MovieBox1.Visible = FALSE
FMain.btnext.Text = ("Restart")
FMain.btnext.Width =
MdlObjSizer.get_object_width(FMain.btnext.Text) + 36
ME.tlBanner.Text = "<b>" & ("Installation is complete") & "</b>"
Modified: branches/iVL/FrmDone.form
==============================================================================
--- branches/iVL/FrmDone.form (original)
+++ branches/iVL/FrmDone.form Sun Feb 1 00:22:32 2009
@@ -22,6 +22,9 @@
Text = ("")
}
}
+ { MovieBox1 MovieBox
+ MoveScaled(4,18,17,19)
+ }
{ tmBgMon #Timer
#X = 203
#Y = 231
Modified: branches/iVL/FrmPkgSel.class
==============================================================================
--- branches/iVL/FrmPkgSel.class (original)
+++ branches/iVL/FrmPkgSel.class Sun Feb 1 00:22:32 2009
@@ -17,7 +17,7 @@
PUBLIC pYes AS picture = Picture.load("images/16px-check.png")
PUBLIC pNo AS Picture = picture.load("images/16px-Nocheck.png")
-
+PRIVATE bWarninigShown AS Boolean = FALSE
PUBLIC SUB Form_Open()
@@ -58,6 +58,8 @@
MdlCore.warn_status_off()
+'PRINT Message("Welcom to the Software selection. \n This consists of 2
parts: \n 1)Bulk packages selection. \n If you do not select all bulks
you may have some dependancy problems. \n They can be resolved with
gslapt or slapt-get. \n You will need the X11 bulk for any GUI program.
\n The kernel-src Bulk is needed for the ATI or Nvidia drivers. \n
2)Optional package selection. \n choose only the apropriate video drivers
for your system.")
+
END
PUBLIC SUB Form_Resize()
@@ -131,12 +133,6 @@
'Message.Info(sBulk)
END IF
NEXT
-
-
-
-
-
-
END
@@ -165,7 +161,10 @@
END
PUBLIC SUB scrlInstallOpts_Click()
-
+ IF bWarninigShown = FALSE THEN
+ PRINT Message("If you dont install all Bulks you may have dependancy
problems. \n \n The X11 bulk is needed for any GUI program. \n The
kernel-src Bulk is needed to compile kernel drivers.")
+ bWarninigShown = TRUE
+ ENDIF
IF LAST.column = 0 THEN
IF scrlInstallOpts[LAST.row, LAST.column].Picture = pyes THEN
scrlInstallOpts[LAST.row, LAST.column].Picture = pNo
@@ -177,6 +176,5 @@
'Message(GridView1[LAST.row, 4].Text)
scrlInstallOpts.Refresh()
-
END
Modified: branches/iVL/FrmPkgSel.form
==============================================================================
--- branches/iVL/FrmPkgSel.form (original)
+++ branches/iVL/FrmPkgSel.form Sun Feb 1 00:22:32 2009
@@ -25,7 +25,7 @@
Text = ("")
}
{ scrlInstallOpts GridView
- MoveScaled(1,27,56,23)
+ MoveScaled(1,25,56,28)
Expand = True
}
}
Modified: branches/iVL/installer.gambas
==============================================================================
Binary files. No diff available.
|
