Nowy formularz wyświetlający informacje o pakietach

src/Silicon/.lang/Packages.pot

@@ -0,0 +1,20 @@
+# /home/michal/Pulpit/i-nex/Silicon/src/Silicon/Packages.class
+# Generated by Gambas compiler
+
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n""POT-Creation-Date: 2002-11-01 04:27+0100\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: Packages.class:56
+msgid "Zainstalowane pakiety:"
+msgstr ""
+

src/Silicon/.project

@@ -3,7 +3,7 @@
 Title=Silicon
 Startup=Finfosys
 Icon=siliconlogo.png
-Version=0.2.2
+Version=0.2.3
 Library=gb.gtk
 Library=gb.form
 Library=gb.desktop

src/Silicon/.settings

@@ -13,8 +13,7 @@ SearchString=True
 
 [OpenFile]
 File[1]="Finfosys.form"
-File[2]="Finfosys.class:343.25"
-Active=2
+File[2]="Finfosys.class:411.94"
 File[3]="Global.class:76.34"
 File[4]="linuxmint.png"
 File[5]="intellogo.gif"
@@ -32,7 +31,10 @@ File[16]="730143272452F11.jpg"
 File[17]="Last1.form"
 File[18]="Last1.class:5.32"
 File[19]="11068_9016_16_network_globe_icon.png"
-Count=19
+File[20]="Packages.form"
+Active=20
+File[21]="Packages.class:34.17"
+Count=21
 
 [Watches]
 Count=0

src/Silicon/About.form

@@ -26,7 +26,7 @@
   }
   { TextLabel1 TextLabel
     Move(7,231,245,112)
-    Text = ("Silicon to aplikacja maj\xC4\x85ca na celu danie u\xC5\xBCytkownikowi pe\xC5\x82nego GUI wy\xC5\x9Bwietlaj\xC4\x85cego r\xC3\xB3\xC5\xBCne informacje o podzespo\xC5\x82ach komputera oraz informacje na temat zainstalowanego systemu.")
+    Text = ("I-nex to aplikacja maj\xC4\x85ca na celu danie u\xC5\xBCytkownikowi pe\xC5\x82nego GUI wy\xC5\x9Bwietlaj\xC4\x85cego r\xC3\xB3\xC5\xBCne informacje o podzespo\xC5\x82ach komputera oraz informacje na temat zainstalowanego systemu.")
   }
   { Button4 Button
     Move(77,336,105,21)

src/Silicon/Finfosys.class

@@ -3,7 +3,6 @@
 
 PUBLIC SUB Form_Open()
   DIM cpuz0, cpuz1, cpuz2, cpuz3, cpuz4, cpuz5, cpuz6, cpuz7, cpuz8, cpuz9, cpuz10, cpuz11 AS String
-  TextLabel10.Visible = FALSE
   TextArea28.Visible = FALSE 
   TextLabel21.Visible = FALSE
   'End dpkg installed
@@ -411,7 +410,6 @@ END
 PUBLIC SUB Button7_Click()
   DIM dpkg AS String
   SHELL "cat /var/lib/dpkg/status | grep '^Status: install ok installed' | wc -l" WAIT TO dpkg
-  TextLabel10.Visible = TRUE
   TextArea28.Visible = TRUE
   TextLabel21.Visible = TRUE
   TextArea28.Text = dpkg
@@ -420,7 +418,7 @@ END
 
 PUBLIC SUB Button9_Click()
 
-  Last1.Show
+  Packages.Show
 
 END
 

src/Silicon/Finfosys.form

@@ -488,29 +488,20 @@
         Move(7,21,112,21)
         Text = ("Sprawd\xC5\xBA")
       }
-      { TextLabel10 TextLabel
-        Move(126,21,203,21)
-        Text = ("Obecnie masz zainstalowane")
-      }
       { TextLabel21 TextLabel
-        Move(392,21,63,21)
-        Text = ("pakiet\xC3\xB3w.")
+        Move(189,21,203,21)
+        Text = ("Pakiet\xC3\xB3w jest zainstalowane")
       }
       { TextArea28 TextArea
-        Move(322,21,63,21)
+        Move(119,21,63,21)
         Text = ("N/A")
         ReadOnly = True
         ScrollBar = Scroll.None
       }
-    }
-    { Button9 Button
-      Move(133,427,77,21)
-      Text = ("Poka\xC5\xBC")
-    }
-    { TextLabel43 TextLabel
-      Move(7,371,329,49)
-      Text = ("pokazuje kiedy, na jakie konto i sk\xC4\x85d mia\xC5\x82y miejsce logowania do systemu, jak r\xC3\xB3wnie\xC5\xBC restarty maszyny")
-      Alignment = Align.Center
+      { Button9 Button
+        Move(392,21,63,21)
+        Text = ("Poka\xC5\xBC")
+      }
     }
     Index = 6
     Text = ("Kernel")
@@ -707,7 +698,7 @@
     Text = ("Label25")
   }
   { Label27 Label
-    Move(238,497,63,21)
-    Text = ("Silicon v:")
+    Move(245,497,49,21)
+    Text = ("i-nex v:")
   }
 }

src/Silicon/Flicencja.form

@@ -8,7 +8,7 @@
   Border = Window.Fixed
   { TextArea1 TextArea
     Move(0,0,371,224)
-    Text = ("Program Silicon jest wolnym oprogramowaniem; mo\xC5\xBCna go rozprowadza\xC4\x87 dalej i/lub modyfikowa\xC4\x87 na warunkach Powszechnej Licencji Publicznej GNU, wydanej przez Fundacj\xC4\x99 Wolnego Oprogramowania - wed\xC5\x82ug wersji drugiej tej Licencji lub kt\xC3\xB3rej\xC5\x9B z p\xC3\xB3\xC5\xBAniejszych wersji.\n\nProgram Silicon rozpowszechniany jest z nadziej\xC4\x85, i\xC5\xBC b\xC4\x99dzie on u\xC5\xBCyteczny - jednak BEZ JAKIEJKOLWIEK GWARANCJI, nawet domy\xC5\x9Blnej gwarancji PRZYDATNO\xC5\x9ACI HANDLOWEJ albo PRZYDATNO\xC5\x9ACI DO OKRE\xC5\x9ALONYCH ZASTOSOWA\xC5\x83. W celu uzyskania bli\xC5\xBCszych informacji nale\xC5\xBCy zapozna\xC4\x87 si\xC4\x99 z Powszechn\xC4\x85 Licencj\xC4\x85 Publiczn\xC4\x85 GNU.")
+    Text = ("Program I-nex jest wolnym oprogramowaniem; mo\xC5\xBCna go rozprowadza\xC4\x87 dalej i/lub modyfikowa\xC4\x87 na warunkach Powszechnej Licencji Publicznej GNU, wydanej przez Fundacj\xC4\x99 Wolnego Oprogramowania - wed\xC5\x82ug wersji drugiej tej Licencji lub kt\xC3\xB3rej\xC5\x9B z p\xC3\xB3\xC5\xBAniejszych wersji.\n\nProgram I-nex rozpowszechniany jest z nadziej\xC4\x85, i\xC5\xBC b\xC4\x99dzie on u\xC5\xBCyteczny - jednak BEZ JAKIEJKOLWIEK GWARANCJI, nawet domy\xC5\x9Blnej gwarancji PRZYDATNO\xC5\x9ACI HANDLOWEJ albo PRZYDATNO\xC5\x9ACI DO OKRE\xC5\x9ALONYCH ZASTOSOWA\xC5\x83. W celu uzyskania bli\xC5\xBCszych informacji nale\xC5\xBCy zapozna\xC4\x87 si\xC4\x99 z Powszechn\xC4\x85 Licencj\xC4\x85 Publiczn\xC4\x85 GNU.")
     ReadOnly = True
     Wrap = True
   }

src/Silicon/Packages.class

@@ -0,0 +1,44 @@
+' Gambas class file
+
+
+PUBLIC SUB Form_Open()
+  DIM TempFile AS File
+  DIM textLine AS String
+  DIM items AS String[]
+  DIM i AS Integer
+  DIM key AS Integer
+
+  ME.Center
+
+  SHELL "dpkg-query -W --showformat='${Package},${Version},${Priority},${Installed-Size}\n' | tee /tmp/PACKAGESLIST" WAIT
+
+  OPEN "/tmp/PACKAGESLIST" FOR READ AS #TempFile
+  ' Setup ColumnView
+  ColumnView1.Columns.Count = 4
+  ColumnView1.Columns[0].Text = "Pakiet"
+  ColumnView1.Columns[1].Text = "Wersja"
+  ColumnView1.Columns[2].Text = "Priorytet"
+  ColumnView1.Columns[3].Text = "Rozmiar"
+
+
+  WHILE NOT Eof(TempFile)
+    LINE INPUT #TempFile, textLine
+
+
+    items = Split(textLine, ",", "\"")
+    INC key
+    ColumnView1.Add(key, items[0])
+    FOR i = 1 TO items.Count - 1
+      ColumnView1[key][i] = items[i]
+    NEXT
+  WEND
+  CLOSE #TempFile
+  CATCH
+    TRY CLOSE #TempFile
+END
+
+PUBLIC SUB ColumnView1_Select()
+
+  Message.Info("Funkcja wybierania nie została jeszcze wprowadzona")
+
+END

src/Silicon/Packages.form

@@ -0,0 +1,11 @@
+# Gambas Form File 2.0
+
+{ Form Form
+  Move(0,0,630,448)
+  #(Scaled) = False
+  Text = ("Zainstalowane pakiety:")
+  Border = Window.Fixed
+  { ColumnView1 ColumnView
+    Move(0,0,630,448)
+  }
+}