[EXAMPLES]

* NEW: Add examples again. I hope correctly this time.


git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec

app/examples/Basic/Blights/.directory

@@ -0,0 +1,2 @@
+[Desktop Entry]
+Icon=./.icon.png

app/examples/Basic/Blights/.lang/ca.po

@@ -0,0 +1,28 @@
+# Catalan translation of Blights
+# Copyright (C) 2000-2010 Benoît Minisini.
+# This file is distributed under the same license as the Blights package.
+# Jordi Sayol <g.sayol@yahoo.es>, 2007-2010.
+#
+#
+msgid ""
+msgstr ""
+"Project-Id-Version: Blights\n"
+"POT-Creation-Date: 2002-11-01 04:27+0100\n"
+"PO-Revision-Date: 2010-12-16 23:31+0100\n"
+"Last-Translator: Jordi Sayol <g.sayol@yahoo.es>\n"
+"Language-Team: \n"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=n != 1;\n"
+"X-Poedit-Language: Catalan\n"
+
+#: win1.form:16
+msgid "Blinkenlights"
+msgstr "Llums perpallejants"
+
+#: .project:1
+msgid "Blinking lights example"
+msgstr "Enemple del Llums perpallejants"
+

app/examples/Basic/Blights/.lang/cs.po

@@ -0,0 +1,20 @@
+#, 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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Blinking lights example"
+msgstr "Příklad blikajícíh světel"
+
+#: win1.form:16
+msgid "Blinkenlights"
+msgstr "Blikající světla"

app/examples/Basic/Blights/.lang/de.po

@@ -0,0 +1,21 @@
+#, 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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Blinking lights example"
+msgstr "Beispiel für blinkende Lichter"
+
+#: win1.form:16
+msgid "Blinkenlights"
+msgstr "blinkende Lichter"
+

app/examples/Basic/Blights/.lang/es.po

@@ -0,0 +1,20 @@
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2014-11-11 23:48 UTC\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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Blinking lights example"
+msgstr "Ejemplo de luces parpadeantes"
+
+#: win1.form:16
+msgid "Blinkenlights"
+msgstr "Luces parpadeantes"

app/examples/Basic/Blights/.lang/fr.po

@@ -0,0 +1,3 @@
+#: win1.class:54
+msgid "Blinkenlights"
+msgstr ""

app/examples/Basic/Blights/.lang/nl.po

@@ -0,0 +1,20 @@
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2002-11-01 04:27+0100\n"
+"PO-Revision-Date: 2014-09-23 01:15+0100\n"
+"Last-Translator: Willy Raets <willy@develop.earthshipeurope.org>\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"
+
+#: .project:1
+msgid "Blinking lights example"
+msgstr "Blinking lights voorbeeld"
+
+#: win1.form:16
+msgid "Blinkenlights"
+msgstr "Blinkenlights"
+

app/examples/Basic/Blights/.lang/sv.po

@@ -0,0 +1,15 @@
+#, 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"
+
+#: win1.class:54
+msgid "Blinkenlights"
+msgstr "Blinkande lampor"

app/examples/Basic/Blights/.project

@@ -0,0 +1,17 @@
+# Gambas Project File 3.0
+# Compiled with Gambas 3.6.0
+Title=Blinking lights example
+Startup=win1
+Icon=ampoule.png
+Version=3.6.2
+VersionFile=1
+Component=gb.image
+Component=gb.gui
+TabSize=2
+Translate=1
+Language=fr
+Maintainer=benoit
+Vendor=Princeton
+Address=benoit@localhost
+License=General Public Licence
+Packager=1

app/examples/Basic/Blights/.src/win1.class

@@ -0,0 +1,36 @@
+' Gambas class file
+
+
+Public Sub Timer1_Timer()
+
+  Dim diode As PictureBox
+  Dim l As Integer
+
+  For Each diode In [l1, l2, l3, l4, l5, l6, l7, l8]
+    l = Rnd() * 2
+    If l = 0 Then
+        diode.Picture = Picture["bloff.xpm"]
+    Else
+        diode.Picture = Picture["blon.xpm"]
+    Endif
+  Next
+
+End
+
+
+
+Public Sub Form_Open()
+
+  Dim hPict As Picture
+  Dim diode As PictureBox
+
+  hPict = Picture["blon.xpm"]
+
+  For Each diode In [l1, l2, l3, l4, l5, l6, l7, l8]
+    diode.Resize(hPict.Width, hPict.Height)
+    diode.Background = Color.DarkGreen
+  Next
+  
+  Me.Resize(hPict.W * 8 + Me.W - Me.ClientW, hPict.H + Me.H - Me.ClientH)
+
+End

app/examples/Basic/Blights/.src/win1.form

@@ -0,0 +1,53 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(20,29.5714,65,7)
+  Text = ("Blinkenlights")
+  Icon = Picture["blon.xpm"]
+  Resizable = False
+  Arrangement = Arrange.Horizontal
+  { l1 PictureBox
+    MoveScaled(0,0,7,7)
+    Picture = Picture["bloff.xpm"]
+    Alignment = Align.Center
+  }
+  { l2 PictureBox
+    MoveScaled(7,0,7,7)
+    Picture = Picture["bloff.xpm"]
+    Alignment = Align.Center
+  }
+  { l3 PictureBox
+    MoveScaled(14,0,7,7)
+    Picture = Picture["bloff.xpm"]
+    Alignment = Align.Center
+  }
+  { l4 PictureBox
+    MoveScaled(21,0,7,7)
+    Picture = Picture["bloff.xpm"]
+    Alignment = Align.Center
+  }
+  { l5 PictureBox
+    MoveScaled(28,0,7,7)
+    Picture = Picture["bloff.xpm"]
+    Alignment = Align.Center
+  }
+  { l6 PictureBox
+    MoveScaled(35,0,7,7)
+    Picture = Picture["bloff.xpm"]
+    Alignment = Align.Center
+  }
+  { l7 PictureBox
+    MoveScaled(42,0,7,7)
+    Picture = Picture["bloff.xpm"]
+    Alignment = Align.Center
+  }
+  { l8 PictureBox
+    MoveScaled(49,0,7,7)
+    Picture = Picture["blon.xpm"]
+    Alignment = Align.Center
+  }
+  { Timer1 #Timer
+    Enabled = True
+    Delay = 200
+  }
+}

app/examples/Basic/Collection/.directory

@@ -0,0 +1,2 @@
+[Desktop Entry]
+Icon=./.icon.png

app/examples/Basic/Collection/.lang/ca.po

@@ -0,0 +1,48 @@
+# Catalan translation of Collection
+# Copyright (C) 2000-2010 Benoît Minisini.
+# This file is distributed under the same license as the Collection package.
+# Jordi Sayol <g.sayol@yahoo.es>, 2007-2010.
+#
+#
+msgid ""
+msgstr ""
+"Project-Id-Version: Collection\n"
+"POT-Creation-Date: 2002-11-01 04:27+0100\n"
+"PO-Revision-Date: 2011-03-20 17:14+0100\n"
+"Last-Translator: Jordi Sayol <g.sayol@yahoo.es>\n"
+"Language-Team: \n"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=n != 1;\n"
+"X-Poedit-Language: Catalan\n"
+
+#: FStart.form:26
+msgid "by juergen@zdero.com"
+msgstr "per juergen@zdero.com"
+
+#: FStart.form:10
+msgid "Collection"
+msgstr "Recoŀlecció"
+
+#: .project:1
+msgid "Collection example"
+msgstr "Exemple de recoŀlecció "
+
+#: FStart.form:16
+msgid "Create Collection"
+msgstr "Crea una recoŀlecció"
+
+#: FStart.class:18
+msgid "Item"
+msgstr "Element"
+
+#: FStart.class:27
+msgid "myThings"
+msgstr "CosesMeves"
+
+#: FStart.class:31
+msgid "Name = "
+msgstr "Nom = "
+

app/examples/Basic/Collection/.lang/cs.po

@@ -0,0 +1,40 @@
+#, 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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Collection example"
+msgstr "Příklad kolekcí"
+
+#: FStart.class:18
+msgid "Item"
+msgstr "Položka"
+
+#: FStart.class:27
+msgid "myThings"
+msgstr "moveVěci"
+
+#: FStart.class:31
+msgid "Name = "
+msgstr "Název ="
+
+#: FStart.form:10
+msgid "Collection"
+msgstr "Kolekce"
+
+#: FStart.form:16
+msgid "Create Collection"
+msgstr "Vytvoř kolekci"
+
+#: FStart.form:26
+msgid "by juergen@zdero.com"
+msgstr "-"

app/examples/Basic/Collection/.lang/de.po

@@ -0,0 +1,41 @@
+#, 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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Collection example"
+msgstr "Beispiel für Collection"
+
+#: FStart.class:18
+msgid "Item"
+msgstr "Ding"
+
+#: FStart.class:27
+msgid "myThings"
+msgstr "meine Sachen"
+
+#: FStart.class:31
+msgid "Name = "
+msgstr "-"
+
+#: FStart.form:10
+msgid "Collection"
+msgstr "-"
+
+#: FStart.form:16
+msgid "Create Collection"
+msgstr "Collection erstellen"
+
+#: FStart.form:26
+msgid "by juergen@zdero.com"
+msgstr "-"
+

app/examples/Basic/Collection/.lang/es.po

@@ -0,0 +1,41 @@
+#, 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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: FStart.form:26
+msgid "by juergen@zdero.com"
+msgstr "por juergen@zdero.com"
+
+#: FStart.form:10
+msgid "Collection"
+msgstr "Colección"
+
+#: .project:1
+msgid "Collection example"
+msgstr "Ejemplo de colección"
+
+#: FStart.form:16
+msgid "Create Collection"
+msgstr "Crear colección"
+
+#: FStart.class:18
+msgid "Item"
+msgstr "Artículo"
+
+#: FStart.class:27
+msgid "myThings"
+msgstr ""
+
+#: FStart.class:31
+msgid "Name = "
+msgstr "Nombre ="
+

app/examples/Basic/Collection/.lang/nl.po

@@ -0,0 +1,41 @@
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2002-11-01 04:27+0100\n"
+"PO-Revision-Date: 2014-09-23 01:16+0100\n"
+"Last-Translator: Willy Raets <willy@develop.earthshipeurope.org>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Collection example"
+msgstr "Collectie voorbeeld"
+
+#: FStart.class:18
+msgid "Item"
+msgstr "Element"
+
+#: FStart.class:27
+msgid "myThings"
+msgstr "myThings"
+
+#: FStart.class:31
+msgid "Name = "
+msgstr "Naam ="
+
+#: FStart.form:10
+msgid "Collection"
+msgstr "Collectie"
+
+#: FStart.form:16
+msgid "Create Collection"
+msgstr "Creëer collectie"
+
+#: FStart.form:26
+msgid "by juergen@zdero.com"
+msgstr "door juergen@zdero.com"
+

app/examples/Basic/Collection/.project

@@ -0,0 +1,17 @@
+# Gambas Project File 3.0
+# Compiled with Gambas 
+Title=Collection example
+Startup=FStart
+Icon=collection.png
+Version=3.6.2
+VersionFile=1
+Component=gb.image
+Component=gb.gui
+TabSize=2
+Translate=1
+Language=fr
+Maintainer=benoit
+Vendor=Princeton
+Address=benoit@localhost
+License=General Public Licence
+Packager=1

app/examples/Basic/Collection/.src/CThing.class

@@ -0,0 +1,6 @@
+' Gambas class file
+
+Public Name As String
+Public X As Integer
+Public Y As Integer
+Public ID As Integer

app/examples/Basic/Collection/.src/FStart.class

@@ -0,0 +1,40 @@
+' Gambas class file
+
+Static Public Sub Main()
+  Dim myForm As Form
+  myForm = New FStart
+  myForm.Show
+End
+
+Public myThings As Collection
+Public myThing As CThing
+
+Public Sub btnCreate_Click()
+'creating objects and add to collection
+  Dim i As Integer
+  myThings = New Collection
+  For i = 1 To 7
+    myThing = New CThing
+    myThing.Name = ("Item") & " " & CStr(i)
+    myThing.X = i
+    myThing.Y = i
+    myThing.ID = i 
+    myThings.Add(myThing, CStr(myThing.ID))
+  Next
+  
+'show the collectionmembers in treeview
+  
+  tvThings.Add("root", ("myThings"))
+    
+  For Each myThing In myThings
+    tvThings.Add(myThing.ID, myThing.Name,, "root")
+    tvThings.Add(myThing.ID & "Name", ("Name = ") & myThing.Name,, CStr(myThing.ID))
+    tvThings.Add(myThing.ID & "X", "X= " & myThing.X,, CStr(myThing.ID))
+    tvThings.Add(myThing.ID & "Y", "Y= " & myThing.Y,, CStr(myThing.ID))
+    tvThings.Add(myThing.ID & "ID", "ID= " & myThing.ID,, CStr(myThing.ID))
+  Next
+  
+  tvThings["root"].Expanded = True
+  btnCreate.Enabled = False
+End 
+ 

app/examples/Basic/Collection/.src/FStart.form

@@ -0,0 +1,20 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(33,14,61,40)
+  Text = ("Collection")
+  Icon = Picture["collection.png"]
+  Resizable = False
+  { btnCreate Button
+    MoveScaled(37,1,23,4)
+    Text = ("Create Collection")
+  }
+  { tvThings TreeView
+    MoveScaled(1,1,35,38)
+    Sorted = True
+  }
+  { Label1 Label
+    MoveScaled(37,35,24,4)
+    Text = ("by juergen@zdero.com")
+  }
+}

app/examples/Basic/DragNDrop/.directory

@@ -0,0 +1,2 @@
+[Desktop Entry]
+Icon=./.icon.png

app/examples/Basic/DragNDrop/.project

@@ -0,0 +1,18 @@
+# Gambas Project File 3.0
+# Compiled with Gambas 3.2.0
+Title=Drag & Drop
+Startup=FDragNDrop
+Icon=drop.png
+Version=3.6.2
+VersionFile=1
+Component=gb.image
+Component=gb.gui
+Component=gb.form
+Environment="GB_GUI=gb.gtk"
+TabSize=2
+ExecPath=/home/benoit/gambas/examples/Basic/DragNDrop/DragNDrop
+Maintainer=benoit
+Vendor=Princeton
+Address=benoit@localhost
+License=General Public Licence
+Packager=1

app/examples/Basic/DragNDrop/.src/FDragNDrop.class

@@ -0,0 +1,138 @@
+' Gambas class file
+
+Private $iKey As Integer
+Private Const MIME_TYPE As String = "text/x-gambas-dragndrop-example"
+
+Public Sub imgIcon_MouseDrag()
+
+  If Mouse.Left Then
+    Drag.Icon = Last.Picture
+    Last.Drag(Last.Picture.Image)
+    'LAST.Drag(LAST.Tag)
+  Endif
+
+End
+
+Public Sub TreeView1_Drag()
+
+  If Drag.Type <> Drag.Image Then Stop Event
+
+End
+
+Public Sub TreeView1_DragMove()
+
+  'IF Drag.Type <> Drag.Image THEN STOP EVENT
+
+  With TreeView1
+    If Not .FindAt(Drag.X, Drag.Y) Then
+      Drag.Show(TreeView1, .Item.X, .Item.Y, .Item.W, .Item.H)
+    Else 
+      Drag.Show(TreeView1)
+    Endif
+  End With
+
+End
+
+Public Sub TreeView1_Drop()
+
+  Dim sKey As String
+
+  With TreeView1
+
+    If Not .FindAt(Drag.X, Drag.Y) Then
+      sKey = .Item.Key
+    Endif
+    
+    Inc $iKey
+  
+    If Drag.Type = Drag.Image Then
+      .Add($iKey, "#" & $iKey, Drag.Data.Picture, sKey).EnsureVisible
+    ' ELSE IF Drag.Type = Drag.Text THEN 
+    '   .Add($iKey, Drag.Data,, sKey).EnsureVisible    
+    Endif
+
+  End With
+
+End
+
+Public Sub TreeView1_MouseDrag()
+
+  Dim hImage As Image
+
+  If Not Mouse.Left Then Return
+
+  With TreeView1
+    If .FindAt(Mouse.X, Mouse.Y) Then Return
+    If Not .Key Then Return
+
+    hImage = New Image(32 + 8 + .Font.TextWidth(.Current.Text), 32, Color.Transparent)
+    Paint.Begin(hImage)
+      Try Paint.DrawImage(.Current.Picture.Image, 0, 0)
+      'Try Draw.Picture(.Current.Picture, 0, 0)
+      Paint.Font = .Font
+      Paint.Text(.Current.Text, 34, 0, hImage.Width, 32, Align.Left)
+      Paint.Fill
+    Paint.End  
+
+    Drag.Icon = hImage.Picture
+    'hImage.Save("~/drag.png")
+    'Drag.Icon = .Current.Picture
+    .Drag(.Key, MIME_TYPE)
+  End With
+
+End
+
+Public Sub imgHole_Drag()
+
+  'DEBUG Drag.Type;; Drag.Format
+  If Drag.Type = Drag.Text Then
+    If Drag.Format = MIME_TYPE Then
+      Return
+    Endif
+  Endif
+
+  Stop Event
+
+End
+
+Public Sub imgHole_Drop()
+
+  TreeView1.Remove(Drag.Data)
+
+End
+
+Public Sub Form_Open()
+
+  Me.Center
+  TreeView1.Add("Test", "Test", Picture["drop.png"])
+
+End
+
+
+Public Sub imgHole_DragMove()
+
+  'DEBUG Drag.Type;; Drag.Format
+  If Drag.Type = Drag.Text Then
+    If Drag.Format = MIME_TYPE Then
+      Drag.Show(imgHole)
+      Return
+    Endif
+  Endif
+
+  Stop Event  
+
+End
+
+
+Public Sub Test_DragMove()
+
+  Drag.Show(Last)
+  'PRINT LAST.ScreenX;; LAST.ScreenY;; LAST.Window.ScreenX;; LAST.Window.ScreenY
+  
+End
+
+Public Sub Form_DragMove()
+
+  Test_DragMove
+
+End

app/examples/Basic/DragNDrop/.src/FDragNDrop.form

@@ -0,0 +1,107 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(56,27,44,56)
+  Text = ("Drag & Drop")
+  Icon = Picture["drop.png"]
+  Arrangement = Arrange.Horizontal
+  Spacing = True
+  Margin = True
+  { VBox2 VBox Test
+    Name = "VBox2"
+    MoveScaled(1,3,10,42)
+    Visible = False
+    Drop = True
+    Spacing = True
+    { Button1 Button Test
+      Name = "Button1"
+      MoveScaled(0,2,10,4)
+      Drop = True
+      Text = ("Button1")
+    }
+    { Panel2 Panel Test
+      Name = "Panel2"
+      MoveScaled(2,9,6,8)
+      Drop = True
+      Border = Border.Etched
+    }
+    { ScrollView1 ScrollView Test
+      Name = "ScrollView1"
+      MoveScaled(2,20,7,19)
+      Drop = True
+      { ScrollView2 ScrollView Test
+        Name = "ScrollView2"
+        MoveScaled(1,5,4,7)
+        Background = &HF7FFDF&
+        Drop = True
+      }
+    }
+  }
+  { TreeView1 TreeView
+    MoveScaled(14,2,20,41)
+    Drop = True
+    Expand = True
+  }
+  { VBox1 VBox
+    MoveScaled(36,2,6,44)
+    Spacing = True
+    { PictureBox1 PictureBox imgIcon
+      Name = "PictureBox1"
+      MoveScaled(0,0,6,6)
+      Tag = "Bicycle"
+      Picture = Picture["icon:/32/flag"]
+      Alignment = Align.Center
+      Border = Border.Raised
+    }
+    { PictureBox2 PictureBox imgIcon
+      Name = "PictureBox2"
+      MoveScaled(0,6,6,6)
+      Tag = "Eye"
+      Picture = Picture["icon:/32/lamp"]
+      Alignment = Align.Center
+      Border = Border.Raised
+    }
+    { PictureBox3 PictureBox imgIcon
+      Name = "PictureBox3"
+      MoveScaled(0,12,6,6)
+      Tag = "Map"
+      Picture = Picture["icon:/32/internet"]
+      Alignment = Align.Center
+      Border = Border.Raised
+    }
+    { PictureBox4 PictureBox imgIcon
+      Name = "PictureBox4"
+      MoveScaled(0,18,6,6)
+      Tag = "Happy"
+      Picture = Picture["icon:/32/bookmark"]
+      Alignment = Align.Center
+      Border = Border.Raised
+    }
+    { PictureBox5 PictureBox imgIcon
+      Name = "PictureBox5"
+      MoveScaled(0,24,6,6)
+      Tag = "Magnify"
+      Picture = Picture["icon:/32/phone"]
+      Alignment = Align.Center
+      Border = Border.Raised
+    }
+    { PictureBox6 PictureBox imgIcon
+      Name = "PictureBox6"
+      MoveScaled(0,30,6,6)
+      Tag = "Highlight"
+      Picture = Picture["icon:/32/book"]
+      Alignment = Align.Center
+      Border = Border.Raised
+    }
+    { Panel1 Panel
+      MoveScaled(1,36,4,3)
+      Expand = True
+    }
+    { imgHole PictureBox
+      MoveScaled(0,38,6,6)
+      Drop = True
+      Picture = Picture["icon:/48/trash"]
+      Stretch = True
+    }
+  }
+}

app/examples/Basic/Object/.directory

@@ -0,0 +1,2 @@
+[Desktop Entry]
+Icon=./.icon.png

app/examples/Basic/Object/.lang/ca.po

@@ -0,0 +1,43 @@
+# Catalan translation of Object
+# Copyright (C) 2000-2010 Benoît Minisini.
+# This file is distributed under the same license as the Object package.
+# Jordi Sayol <g.sayol@yahoo.es>, 2007-2010.
+#
+#
+msgid ""
+msgstr ""
+"Project-Id-Version: Object\n"
+"POT-Creation-Date: 2002-11-01 04:27+0100\n"
+"PO-Revision-Date: 2010-12-16 23:31+0100\n"
+"Last-Translator: Jordi Sayol <g.sayol@yahoo.es>\n"
+"Language-Team: \n"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=n != 1;\n"
+"X-Poedit-Language: Catalan\n"
+
+#: .project:1
+msgid "Object manipulation example"
+msgstr "Exemple de manipulacicó d'objectes"
+
+#: FStart.form:12
+msgid "Object "
+msgstr "Objecte"
+
+#: FStart.form:17
+msgid "create the Thing !"
+msgstr "crea l'objecte!"
+
+#: FStart.form:22
+msgid "check the Thing !"
+msgstr "verifica l'objecte!"
+
+#: FStart.form:33
+msgid "destroy the Thing !"
+msgstr "destrueix l'objecte!"
+
+#: FStart.form:38
+msgid " by juergen@zdero.com"
+msgstr "per juergen@zdero.com"

app/examples/Basic/Object/.lang/cs.po

@@ -0,0 +1,40 @@
+#, 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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Object manipulation example"
+msgstr "Příklad manipulace objeků"
+
+#: FStart.class:29
+msgid "You need to create the Thing first!"
+msgstr "Potřebujete první vytvořit objekt!"
+
+#: FStart.form:12
+msgid "Object "
+msgstr "Objekt"
+
+#: FStart.form:18
+msgid "create the Thing !"
+msgstr "vytvořit Věc !"
+
+#: FStart.form:23
+msgid "check the Thing !"
+msgstr "zkontroluj Věc !"
+
+#: FStart.form:33
+msgid "destroy the Thing !"
+msgstr "zničit Věc !"
+
+#: FStart.form:38
+msgid " by juergen@zdero.com"
+msgstr "-"

app/examples/Basic/Object/.lang/de.po

@@ -0,0 +1,41 @@
+#, 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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Object manipulation example"
+msgstr "Beispiel für Objekt-Manipulation"
+
+#: FStart.class:29
+msgid "You need to create the Thing first!"
+msgstr "Sie müssen das Objekt erst erstellen!"
+
+#: FStart.form:12
+msgid "Object "
+msgstr "-"
+
+#: FStart.form:18
+msgid "create the Thing !"
+msgstr "Objekt erstellen"
+
+#: FStart.form:23
+msgid "check the Thing !"
+msgstr "Objekt prüfen"
+
+#: FStart.form:33
+msgid "destroy the Thing !"
+msgstr "Objekt löschen"
+
+#: FStart.form:38
+msgid " by juergen@zdero.com"
+msgstr "-"
+

app/examples/Basic/Object/.lang/es.po

@@ -0,0 +1,37 @@
+#, 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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: FStart.form:38
+msgid " by juergen@zdero.com"
+msgstr "por juergen@zdero.com"
+
+#: FStart.form:22
+msgid "check the Thing !"
+msgstr "¡ Comprobar la cosa !"
+
+#: FStart.form:17
+msgid "create the Thing !"
+msgstr "¡ Crear la cosa !"
+
+#: FStart.form:33
+msgid "destroy the Thing !"
+msgstr "¡ Destruir la cosa !"
+
+#: FStart.form:12
+msgid "Object "
+msgstr "Objeto"
+
+#: .project:1
+msgid "Object manipulation example"
+msgstr "Ejemplo de manipulación de objetos"
+

app/examples/Basic/Object/.lang/nl.po

@@ -0,0 +1,41 @@
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2002-11-01 04:27+0100\n"
+"PO-Revision-Date: 2014-09-23 01:18+0100\n"
+"Last-Translator: Willy Raets <willy@develop.earthshipeurope.org>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Object manipulation example"
+msgstr "Object manipulatie voorbeeld"
+
+#: FStart.class:29
+msgid "You need to create the Thing first!"
+msgstr "Je dient het Ding! eerst te creëren!"
+
+#: FStart.form:12
+msgid "Object "
+msgstr "Object "
+
+#: FStart.form:18
+msgid "create the Thing !"
+msgstr "creëer het Ding!"
+
+#: FStart.form:23
+msgid "check the Thing !"
+msgstr "controleer het Ding!"
+
+#: FStart.form:33
+msgid "destroy the Thing !"
+msgstr "Vernietig het Ding!"
+
+#: FStart.form:38
+msgid " by juergen@zdero.com"
+msgstr " door juergen@zdero.com"
+

app/examples/Basic/Object/.project

@@ -0,0 +1,17 @@
+# Gambas Project File 3.0
+# Compiled with Gambas 3.5.90
+Title=Object manipulation example
+Startup=FStart
+Icon=object.png
+Version=3.6.2
+VersionFile=1
+Component=gb.image
+Component=gb.gui
+TabSize=2
+Translate=1
+Language=fr
+Maintainer=benoit
+Vendor=Princeton
+Address=benoit@localhost
+License=General Public Licence
+Packager=1

app/examples/Basic/Object/.src/CThing.class

@@ -0,0 +1,6 @@
+' Gambas class file
+
+Public Name As String
+Public X As Integer
+Public Y As Integer
+Public ID As Integer

app/examples/Basic/Object/.src/FStart.class

@@ -0,0 +1,44 @@
+' Gambas class file
+
+Public myThing As CThing
+
+Public Sub btnCreateThing_Click()
+
+  myThing = New CThing
+
+  With mything
+    .Name = "Dummy-Thing"
+    .X = 11
+    .Y = 22
+    .ID = 33
+  End With
+
+  txtCheckResult.Visible = True
+
+End
+
+Public Sub btnCheckThing_Click()
+
+  If myThing Then
+
+    With mything
+      txtCheckResult.Text = Subst("&1, X= &2, Y= &3, ID= &4", .Name, .X, .Y, .ID)
+    End With
+
+  Else
+    Message.Warning(("You need to create the Thing first!"))
+  Endif
+
+End
+
+Public Sub btnDestroy_Click()
+
+  If Not mything Then
+    Message.Warning(("You need to create the Thing first!"))
+    Return
+  Endif
+
+  myThing = Null
+  txtCheckResult.Visible = False
+
+End

app/examples/Basic/Object/.src/FStart.form

@@ -0,0 +1,28 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(35.7143,18.5714,67,17)
+  Text = ("Object ")
+  Icon = Picture["object.png"]
+  Resizable = False
+  { btnCreateThing Button
+    MoveScaled(1,1,21,4)
+    Text = ("create the Thing !")
+  }
+  { btnCheckThing Button
+    MoveScaled(23,1,21,4)
+    Text = ("check the Thing !")
+  }
+  { txtCheckResult TextBox
+    MoveScaled(1,7,65,4)
+    Visible = False
+  }
+  { btnDestroy Button
+    MoveScaled(45,1,21,4)
+    Text = ("destroy the Thing !")
+  }
+  { Label1 Label
+    MoveScaled(1,12,26,4)
+    Text = (" by juergen@zdero.com")
+  }
+}

app/examples/Basic/Timer/.directory

@@ -0,0 +1,2 @@
+[Desktop Entry]
+Icon=./.icon.png

app/examples/Basic/Timer/.lang/ca.po

@@ -0,0 +1,113 @@
+# Catalan translation of Timer
+# Copyright (C) 2000-2010 Benoît Minisini.
+# This file is distributed under the same license as the Timer package.
+# Jordi Sayol <g.sayol@yahoo.es>, 2007-2010.
+#
+#
+msgid ""
+msgstr ""
+"Project-Id-Version: Timer\n"
+"POT-Creation-Date: 2002-11-01 04:27+0100\n"
+"PO-Revision-Date: 2011-03-20 23:21+0100\n"
+"Last-Translator: Jordi Sayol <g.sayol@yahoo.es>\n"
+"Language-Team: \n"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=n != 1;\n"
+"X-Poedit-Language: Catalan\n"
+
+#: .project:1
+#: FTimer.class:74
+msgid "Timer example"
+msgstr "Exemple de temporitzador"
+
+#: FOtherTimer.class:38
+msgid "Please fill in valid values!"
+msgstr "Introduïu valors vàlids!"
+
+#: FOtherTimer.class:63
+msgid "Time is over!"
+msgstr "El temps ha acabat!"
+
+#: FOtherTimer.class:95
+msgid "Other Example"
+msgstr "Un altre exemple"
+
+#: FOtherTimer.class:103
+#: FTimer.class:80
+msgid "Start"
+msgstr "Inicia"
+
+#: FOtherTimer.class:110
+msgid "3"
+msgstr "-"
+
+#: FOtherTimer.class:117
+msgid ":"
+msgstr "-"
+
+#: FOtherTimer.class:125
+msgid "0"
+msgstr "-"
+
+#: FOtherTimer.class:131
+msgid "Another timer example by <b>Maxim Lapis</b> &lt;maxim_lapis@web.de&gt;"
+msgstr "Un altre exemple de temporitzador per <b>Maxim Lapis</b> &lt;maxim_lapis@web.de&gt;"
+
+#: FTimer.class:81
+msgid "Trigger"
+msgstr "Gatell"
+
+#: FTimer.class:94
+msgid "Reset"
+msgstr "Restableix"
+
+#: FTimer.class:100
+msgid "1500"
+msgstr "-"
+
+#: FTimer.class:106
+msgid "Start Timer in..."
+msgstr "Inicia temporitzador en..."
+
+#: FTimer.class:113
+msgid "Start delay"
+msgstr "Temps encès"
+
+#: FTimer.class:120
+msgid "Stop delay"
+msgstr "Temps apagat"
+
+#: FTimer.class:126
+msgid "200"
+msgstr "-"
+
+#: FTimer.class:132
+msgid "800"
+msgstr "-"
+
+#: FTimer.class:143
+msgid "Start/Stop"
+msgstr "Inicia/Atura"
+
+#: FTimer.class:154
+msgid "Timer example by <b>Juergen Zdero</b> &lt;juergen@zdero.com&gt;"
+msgstr "Exemple de temporitzador per <b>Juergen Zdero</b> &lt;juergen@zdero.com&gt;"
+
+#: FTimer.class:159
+msgid "ms"
+msgstr "-"
+
+#: FTimer.class:172
+msgid "Or start and stop Timer"
+msgstr "O temporitzador d'engega i apaga"
+
+#~ msgid "Delay"
+#~ msgstr "Retard"
+#~ msgid "High-Time"
+#~ msgstr "Temps en alta"
+#~ msgid "Low-Time"
+#~ msgstr "Temps en baixa"
+

app/examples/Basic/Timer/.lang/cs.po

@@ -0,0 +1,92 @@
+#, 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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1 FTimer.form:28
+msgid "Timer example"
+msgstr "Příklad časovače"
+
+#: FOtherTimer.class:16
+msgid "The counter is set to stop at 0 seconds!"
+msgstr "Počítadlo je nastaveno na 0 sekund!"
+
+#: FOtherTimer.class:44
+msgid "Stop"
+msgstr "Stop"
+
+#: FOtherTimer.class:64
+msgid "Time is over!"
+msgstr "Čas vypršel!"
+
+#: FOtherTimer.form:14
+msgid "Other Example"
+msgstr "Jiné příklady"
+
+#: FOtherTimer.form:22 FTimer.form:34
+msgid "Start"
+msgstr "-"
+
+#: FOtherTimer.form:35
+msgid ":"
+msgstr "-"
+
+#: FOtherTimer.form:48
+msgid "Another timer example by <b>Maxim Lapis</b> &lt;maxim_lapis@web.de&gt;"
+msgstr "Další příklad časovače od <b>Maxim Lapis</b> &lt;maxim_lapis@web.de&gt;"
+
+#: FTimer.form:35
+msgid "Trigger"
+msgstr "-"
+
+#: FTimer.form:45
+msgid "Reset"
+msgstr "-"
+
+#: FTimer.form:51
+msgid "1500"
+msgstr "-"
+
+#: FTimer.form:57
+msgid "Start Timer in..."
+msgstr "Start Časovače v..."
+
+#: FTimer.form:64
+msgid "Start delay"
+msgstr "Start čas"
+
+#: FTimer.form:71
+msgid "Stop delay"
+msgstr "Stop čas"
+
+#: FTimer.form:77
+msgid "200"
+msgstr "-"
+
+#: FTimer.form:83
+msgid "800"
+msgstr "-"
+
+#: FTimer.form:94
+msgid "Start/Stop"
+msgstr "-"
+
+#: FTimer.form:102
+msgid "Timer example by <b>Juergen Zdero</b> &lt;juergen@zdero.com&gt;"
+msgstr "Příklad časovače od <b>Juergen Zdero</b> &lt;juergen@zdero.com&gt;"
+
+#: FTimer.form:107
+msgid "ms"
+msgstr "-"
+
+#: FTimer.form:120
+msgid "Or start and stop Timer"
+msgstr "Nebo start a konec Časovače"

app/examples/Basic/Timer/.lang/de.po

@@ -0,0 +1,93 @@
+#, 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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1 FTimer.form:28
+msgid "Timer example"
+msgstr "Timer-Beispiel"
+
+#: FOtherTimer.class:16
+msgid "The counter is set to stop at 0 seconds!"
+msgstr "Der Timer soll in 0 Sekunden stoppen!"
+
+#: FOtherTimer.class:44
+msgid "Stop"
+msgstr "-"
+
+#: FOtherTimer.class:64
+msgid "Time is over!"
+msgstr "Zeit ist abgelaufen !"
+
+#: FOtherTimer.form:14
+msgid "Other Example"
+msgstr "Noch ein Beispiel"
+
+#: FOtherTimer.form:22 FTimer.form:34
+msgid "Start"
+msgstr "-"
+
+#: FOtherTimer.form:35
+msgid ":"
+msgstr "-"
+
+#: FOtherTimer.form:48
+msgid "Another timer example by <b>Maxim Lapis</b> &lt;maxim_lapis@web.de&gt;"
+msgstr "Noch ein Timer-Beispiel von <b>Maxim Lapis</b> &lt;maxim_lapis@web.de&gt;"
+
+#: FTimer.form:35
+msgid "Trigger"
+msgstr "Auslösen"
+
+#: FTimer.form:45
+msgid "Reset"
+msgstr "Zurücksetzen"
+
+#: FTimer.form:51
+msgid "1500"
+msgstr "-"
+
+#: FTimer.form:57
+msgid "Start Timer in..."
+msgstr "Timer starten in..."
+
+#: FTimer.form:64
+msgid "Start delay"
+msgstr "Start nach"
+
+#: FTimer.form:71
+msgid "Stop delay"
+msgstr "Stop nach"
+
+#: FTimer.form:77
+msgid "200"
+msgstr "-"
+
+#: FTimer.form:83
+msgid "800"
+msgstr "-"
+
+#: FTimer.form:94
+msgid "Start/Stop"
+msgstr "-"
+
+#: FTimer.form:102
+msgid "Timer example by <b>Juergen Zdero</b> &lt;juergen@zdero.com&gt;"
+msgstr "Timer-Beispiel von <b>Juergen Zdero</b> &lt;juergen@zdero.com&gt;"
+
+#: FTimer.form:107
+msgid "ms"
+msgstr "-"
+
+#: FTimer.form:120
+msgid "Or start and stop Timer"
+msgstr "Oder Timer starten und stoppen"
+

app/examples/Basic/Timer/.lang/es.po

@@ -0,0 +1,96 @@
+#, 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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1 FTimer.form:28
+msgid "Timer example"
+msgstr "Ejemplo de Temporizador"
+
+#: FOtherTimer.class:38
+msgid "Please fill in valid values!"
+msgstr "Ingrese valores validos!"
+
+#: FOtherTimer.class:63
+msgid "Time is over!"
+msgstr "El tiempo ha terminado"
+
+#: FOtherTimer.form:14
+msgid "Other Example"
+msgstr "Otro ejemplo"
+
+#: FOtherTimer.form:22 FTimer.form:34
+msgid "Start"
+msgstr "Iniciar"
+
+#: FOtherTimer.form:29
+msgid "3"
+msgstr "-"
+
+#: FOtherTimer.form:36
+msgid ":"
+msgstr "-"
+
+#: FOtherTimer.form:44
+msgid "0"
+msgstr "-"
+
+#: FOtherTimer.form:50
+msgid "Another timer example by <b>Maxim Lapis</b> &lt;maxim_lapis@web.de&gt;"
+msgstr "Otro ejemplo de Temporizador por <b>Maxim Lapis</b> &lt;maxim_lapis@web.de&gt;"
+
+#: FTimer.form:35
+msgid "Trigger"
+msgstr "Disparador"
+
+#: FTimer.form:48
+msgid "Reset"
+msgstr "Reiniciar"
+
+#: FTimer.form:54
+msgid "1500"
+msgstr "-"
+
+#: FTimer.form:60
+msgid "Start Timer in..."
+msgstr "Iniciar temporizador en..."
+
+#: FTimer.form:67
+msgid "Start delay"
+msgstr "Retardar inicio"
+
+#: FTimer.form:74
+msgid "Stop delay"
+msgstr "Retardar parada"
+
+#: FTimer.form:80
+msgid "200"
+msgstr "-"
+
+#: FTimer.form:86
+msgid "800"
+msgstr "-"
+
+#: FTimer.form:97
+msgid "Start/Stop"
+msgstr "Iniciar/Parar"
+
+#: FTimer.form:108
+msgid "Timer example by <b>Juergen Zdero</b> &lt;juergen@zdero.com&gt;"
+msgstr "Ejemplo de Temporizador por <b>Juergen Zdero</b> &lt;juergen@zdero.com&gt;"
+
+#: FTimer.form:113
+msgid "ms"
+msgstr "-"
+
+#: FTimer.form:126
+msgid "Or start and stop Timer"
+msgstr "O iniciar y detener el Temporizador"

app/examples/Basic/Timer/.lang/nl.po

@@ -0,0 +1,92 @@
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2002-11-01 04:27+0100\n"
+"PO-Revision-Date: 2014-09-23 01:22+0100\n"
+"Last-Translator: Willy Raets <willy@develop.earthshipeurope.org>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1 FTimer.form:28
+msgid "Timer example"
+msgstr "Timer voorbeeld"
+
+#: FOtherTimer.class:16
+msgid "The counter is set to stop at 0 seconds!"
+msgstr "The teller is ingestelt om bij 0 seconden te stoppen!"
+
+#: FOtherTimer.class:44
+msgid "Stop"
+msgstr "Stop"
+
+#: FOtherTimer.class:64
+msgid "Time is over!"
+msgstr "Tijd is voorbij!"
+
+#: FOtherTimer.form:14
+msgid "Other Example"
+msgstr "Ander Voorbeeld"
+
+#: FOtherTimer.form:22 FTimer.form:34
+msgid "Start"
+msgstr "Start"
+
+#: FOtherTimer.form:35
+msgid ":"
+msgstr "-"
+
+#: FOtherTimer.form:48
+msgid "Another timer example by <b>Maxim Lapis</b> &lt;maxim_lapis@web.de&gt;"
+msgstr "Een ander timer voorbeeld door <b> Maxim Lapsis </b> &lt;maxil_lapis@web.de&gt;"
+
+#: FTimer.form:35
+msgid "Trigger"
+msgstr "-"
+
+#: FTimer.form:45
+msgid "Reset"
+msgstr ""
+
+#: FTimer.form:51
+msgid "1500"
+msgstr "-"
+
+#: FTimer.form:57
+msgid "Start Timer in..."
+msgstr "Start Timer in..."
+
+#: FTimer.form:64
+msgid "Start delay"
+msgstr "Start uitstel"
+
+#: FTimer.form:71
+msgid "Stop delay"
+msgstr "Stop uitstel"
+
+#: FTimer.form:77
+msgid "200"
+msgstr "-"
+
+#: FTimer.form:83
+msgid "800"
+msgstr "-"
+
+#: FTimer.form:94
+msgid "Start/Stop"
+msgstr "Start/Stop"
+
+#: FTimer.form:102
+msgid "Timer example by <b>Juergen Zdero</b> &lt;juergen@zdero.com&gt;"
+msgstr "Timer voorbeeld door <b>Juergen Zdero</b> &lt;juergen@zdero.com&gt;"
+
+#: FTimer.form:107
+msgid "ms"
+msgstr "-"
+
+#: FTimer.form:120
+msgid "Or start and stop Timer"
+msgstr "Of start en stop Timer"

app/examples/Basic/Timer/.project

@@ -0,0 +1,20 @@
+# Gambas Project File 3.0
+# Compiled with Gambas 3.5.90
+Title=Timer example
+Startup=FTimer
+Icon=timer.png
+Version=3.6.2
+VersionFile=1
+Component=gb.image
+Component=gb.gui
+Component=gb.form
+Authors="Maxim Lapis"
+TabSize=2
+Translate=1
+Language=fr
+ExecPath=/home/benoit/gambas/gambas.link/share/gambas/examples/Basic/Timer/Timer
+Maintainer=benoit
+Vendor=Princeton
+Address=benoit@localhost
+License=General Public Licence
+Packager=1

app/examples/Basic/Timer/.src/FOtherTimer.class

@@ -0,0 +1,85 @@
+' Gambas class file
+
+'&HC00F47& = red
+'&H4BC021& = green
+
+Private $iCounter As Integer
+
+Public Sub Button1_Click()
+
+  Dim iSeconds, iMinutes As Integer
+
+  iSeconds = vbSeconds.Value
+  iMinutes = vbMinutes.Value
+
+  If iSeconds = 0 And iMinutes = 0 Then
+    Message.Info(("The counter is set to stop at 0 seconds!"))
+    Return
+  Endif
+
+  If Not Timer1.enabled Then
+
+    'Normalize minutes and seconds
+    If iSeconds >= 60 Then
+
+      While iSeconds > 59
+
+        Inc iMinutes
+        iSeconds = iSeconds - 60
+
+      Wend
+
+    Endif
+
+    'Update normalized values
+    vbSeconds.Value = iSeconds
+    vbMinutes.Value = iMinutes
+
+    'Store the total count to simplify code
+    $iCounter = iSeconds + iMinutes * 60
+
+    'Let the timer start!
+    Timer1.enabled = True
+
+    Button1.Text = ("Stop")
+    Button1.Background = &HC00F47&
+
+  Else
+
+    Button1.Text = ("Start")
+    Button1.Background = &H4BC021&
+    Timer1.enabled = False
+  Endif
+
+  'thank you Benoit, that is just a great thing
+End
+
+Public Sub Timer1_Timer()
+
+  'The counter has reached 0. Stop it and update the window
+  If $iCounter = 0 Then
+    Timer1.Enabled = False
+    Button1.Text = ("Start")
+    Button1.Background = &H4BC021&
+    Message.Info(("Time is over!"))
+  Else
+
+    'Seconds are over, decrease the minute count by 1 and reset the seconds count
+    If vbSeconds.Value = 0 Then
+
+      Dec vbMinutes.Value
+
+      vbSeconds.Value = 59
+
+    Else
+
+      Dec vbSeconds.Value
+
+    Endif
+
+  Endif
+
+  'Also decrease the global counter
+  Dec $iCounter
+
+End

app/examples/Basic/Timer/.src/FOtherTimer.form

@@ -0,0 +1,40 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(52.7143,62.4286,32,18)
+  Background = &HB1C00E&
+  Text = ("Other Example")
+  Icon = Picture["timer.png"]
+  Resizable = False
+  { Button1 Button
+    MoveScaled(17,11,11,5)
+    Font = Font["14"]
+    Background = &H4BC021&
+    Text = ("Start")
+  }
+  { vbSeconds ValueBox
+    MoveScaled(10,11,6,5)
+    Font = Font["18"]
+    Background = &H93B8B0&
+    Value = "3"
+  }
+  { TextLabel2 TextLabel
+    MoveScaled(7,11,3,4)
+    Font = Font["Adobe Courier,18,Bold"]
+    Text = (":")
+    Alignment = Align.Center
+  }
+  { vbMinutes ValueBox
+    MoveScaled(1,11,6,5)
+    Font = Font["18"]
+    Background = &H93B8B0&
+    Value = "0"
+  }
+  { TextLabel1 TextLabel
+    MoveScaled(1,1,29,9)
+    Text = ("Another timer example by <b>Maxim Lapis</b> &lt;maxim_lapis@web.de&gt;")
+  }
+  { Timer1 #Timer
+    #MoveScaled(23,2)
+  }
+}

app/examples/Basic/Timer/.src/FTimer.class

@@ -0,0 +1,56 @@
+' Gambas class file
+
+Public Sub Form_Open()
+
+  FOtherTimer.Show
+
+End
+
+Public Sub Button1_Click()
+
+  Timer1.Delay = CInt(TextBox1.Text)
+  Timer1.Enabled = True
+
+End
+
+Public Sub Timer1_Timer()
+
+  Label1.Background = &HFF0000&
+
+End
+
+Public Sub Button2_Click()
+
+  Timer1.Enabled = False 'try without this line
+  Label1.Background = &HDCDCDC&
+
+End
+
+Public Sub ToggleButton1_Click()
+
+  If ToggleButton1.Value = True Then
+    Timer2.Delay = CInt(TextBox2.Text) 'low
+    Timer3.Delay = CInt(TextBox3.Text) 'high
+    Timer2.Enabled = True
+  Else
+    Timer2.Enabled = False
+    Timer3.Enabled = False
+  Endif
+
+End
+
+Public Sub Timer2_Timer()
+
+  Label5.Background = &HFF0000&
+  Timer3.Enabled = True
+  Timer2.Enabled = False
+
+End
+
+Public Sub Timer3_Timer()
+
+  Label5.Background = &H00FF00&
+  Timer2.Enabled = True
+  Timer3.Enabled = False
+
+End

app/examples/Basic/Timer/.src/FTimer.form

@@ -0,0 +1,97 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(33.5714,24,52,33)
+  Text = ("Timer example")
+  Icon = Picture["timer.png"]
+  Resizable = False
+  { Button1 Button
+    MoveScaled(35,14,15,4)
+    ToolTip = ("Start")
+    Text = ("Trigger")
+  }
+  { Label1 Label
+    MoveScaled(30,14,3.5714,4)
+    Border = Border.Etched
+  }
+  { Button2 Button
+    MoveScaled(14,14,14,4)
+    ToolTip = ("Reset")
+    Text = ("Reset")
+  }
+  { TextBox1 TextBox
+    MoveScaled(2,14,8,4)
+    Text = ("1500")
+    Alignment = Align.Right
+  }
+  { Label2 Label
+    MoveScaled(2,10,34,3)
+    Text = ("Start Timer in...")
+    Alignment = Align.Left
+  }
+  { Label3 Label
+    MoveScaled(2,24,11,3)
+    Foreground = &H00AA00&
+    Text = ("Start delay")
+    Alignment = Align.Left
+  }
+  { Label4 Label
+    MoveScaled(15,24,13,3)
+    Foreground = &HFF0000&
+    Text = ("Stop delay")
+    Alignment = Align.Left
+  }
+  { TextBox2 TextBox
+    MoveScaled(2,27,8,4)
+    Text = ("200")
+    Alignment = Align.Right
+  }
+  { TextBox3 TextBox
+    MoveScaled(15,27,8,4)
+    Text = ("800")
+    Alignment = Align.Right
+  }
+  { Label5 Label
+    MoveScaled(30,27,3.5714,4)
+    Border = Border.Etched
+  }
+  { ToggleButton1 ToggleButton
+    MoveScaled(35,27,15,4)
+    Text = ("Start/Stop")
+  }
+  { Timer2 #Timer
+    #MoveScaled(36,1)
+  }
+  { TextLabel1 TextLabel
+    MoveScaled(2,1,33,6)
+    Text = ("Timer example by <b>Juergen Zdero</b> &lt;juergen@zdero.com&gt;")
+  }
+  { Label6 Label
+    MoveScaled(10,14,4,4)
+    Text = ("ms")
+  }
+  { Separator1 Separator
+    MoveScaled(2,9,48,1)
+  }
+  { Separator2 Separator
+    MoveScaled(2,18,48,3)
+  }
+  { Label7 Label
+    MoveScaled(2,21,33,3)
+    Text = ("Or start and stop Timer")
+  }
+  { Label8 Label
+    MoveScaled(10,27,4,4)
+    Text = ("ms")
+  }
+  { Label9 Label
+    MoveScaled(23,27,4,4)
+    Text = ("ms")
+  }
+  { Timer1 #Timer
+    #MoveScaled(41,1)
+  }
+  { Timer3 #Timer
+    #MoveScaled(45,1)
+  }
+}

app/examples/Control/ArrayOfControls/.directory

@@ -0,0 +1,2 @@
+[Desktop Entry]
+Icon=./.icon.png

app/examples/Control/ArrayOfControls/.lang/ca.po

@@ -0,0 +1,45 @@
+msgid ""
+msgstr ""
+"Project-Id-Version: ArrayOfControls\n"
+"POT-Creation-Date: 2002-11-01 04:27+0100\n"
+"PO-Revision-Date: 2011-03-20 16:53+0100\n"
+"Last-Translator: Jordi Sayol <g.sayol@yahoo.es>\n"
+"Language-Team: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=2; plural=n != 1;\n"
+"X-Poedit-Language: Catalan\n"
+
+#: .project:1
+msgid "Array of Controls"
+msgstr "Matriu de controls"
+
+#: FMain.class:70
+msgid "Clear"
+msgstr "Neteja"
+
+#: FMain.class:112
+msgid "Dial"
+msgstr "Marcador"
+
+#: FMain.class:80
+msgid "Dialing "
+msgstr "Marcant"
+
+#: .project:2
+msgid "Example how to use an array of controls"
+msgstr "Exemple de com fer servir una matriu de controls"
+
+#: FMain.class:8
+msgid "Quit"
+msgstr "Surt"
+
+#: FMain.class:78
+msgid "There is no number I could dial."
+msgstr "No hi ha cap número que pugui marcar."
+
+#: FMain.class:45
+msgid "You have clicked the button &1"
+msgstr "Heu fet clic al botó &1"
+

app/examples/Control/ArrayOfControls/.lang/cs.po

@@ -0,0 +1,44 @@
+#, 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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Array of Controls"
+msgstr "Řízení pole"
+
+#: .project:2
+msgid "Example how to use an array of controls"
+msgstr "Příklad jak použít řízení pole"
+
+#: FMain.class:8
+msgid "Quit"
+msgstr "Ukončit"
+
+#: FMain.class:45
+msgid "You have clicked the button &1"
+msgstr "Kliknul si na tlačítko &1"
+
+#: FMain.class:70
+msgid "Clear"
+msgstr "Vyčsti"
+
+#: FMain.class:78
+msgid "There is no number I could dial."
+msgstr "Toto není číslo, nelze volat."
+
+#: FMain.class:80
+msgid "Dialing "
+msgstr "Vytáčení "
+
+#: FMain.form:25
+msgid "Dial"
+msgstr "Vytočit"

app/examples/Control/ArrayOfControls/.lang/de.po

@@ -0,0 +1,44 @@
+#, 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"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Array of Controls"
+msgstr "Steuerelement-Array"
+
+#: .project:2
+msgid "Example how to use an array of controls"
+msgstr "Beispiel, wie man einen Array von Steuerelementen benutzt"
+
+#: FMain.class:8
+msgid "Quit"
+msgstr "Beenden"
+
+#: FMain.class:45
+msgid "You have clicked the button &1"
+msgstr "Du hast die Taste &1 angeklickt"
+
+#: FMain.class:70
+msgid "Clear"
+msgstr "Löschen"
+
+#: FMain.class:78
+msgid "There is no number I could dial."
+msgstr "Es gibt keine Nummer zum Wählen."
+
+#: FMain.class:80
+msgid "Dialing "
+msgstr "Wähle "
+
+#: FMain.form:25
+msgid "Dial"
+msgstr "Wählen"

app/examples/Control/ArrayOfControls/.lang/nl.po

@@ -0,0 +1,43 @@
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: ArrayOfControls 3.5.90\n"
+"PO-Revision-Date: 2014-10-02 15:13 UTC\n"
+"Last-Translator: Willy Raets <willy@develop.earthshipeurope.org>\n"
+"Language: nl\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: .project:1
+msgid "Array of Controls"
+msgstr "Reeks van controles"
+
+#: .project:2
+msgid "Example how to use an array of controls"
+msgstr "Voorbeeld in hoe een 'Reeks van controles' te gebruiken"
+
+#: FMain.form:25
+msgid "Dial"
+msgstr "Draai"
+
+#: FMain.class:8
+msgid "Quit"
+msgstr "Afsluiten"
+
+#: FMain.class:45
+msgid "You have clicked the button &1"
+msgstr "Je hebt op de knop &1 geklikt"
+
+#: FMain.class:70
+msgid "Clear"
+msgstr "Opschonen"
+
+#: FMain.class:78
+msgid "There is no number I could dial."
+msgstr "Er is geen nummer wat ik kan draaien"
+
+#: FMain.class:80
+msgid "Dialing "
+msgstr "Nummer kiezen"
+

app/examples/Control/ArrayOfControls/.project

@@ -0,0 +1,18 @@
+# Gambas Project File 3.0
+# Compiled with Gambas 3.5.90
+Title=Array of Controls
+Startup=FMain
+Icon=phone.png
+Version=3.6.2
+VersionFile=1
+Component=gb.image
+Component=gb.gui
+Component=gb.form
+Description="Example how to use an array of controls"
+Authors="Matti (math.eber@t-online.de)"
+TabSize=2
+Translate=1
+Language=de
+ControlPublic=1
+SourcePath=/home/mathias/Basic
+Packager=1

app/examples/Control/ArrayOfControls/.src/FMain.class

@@ -0,0 +1,83 @@
+' Gambas class file
+
+Private aButtons[13] As Button  ' Dim the array of controls
+
+Public Sub Form_Open()
+  Dim i As Integer
+
+  btnClose.Tooltip = ("Quit")
+  Me.Center
+  For i = 1 To 12
+    aButtons[i] = New Button(Me) As "Buttongroup"    ' Create a new button in the array and store it in an action group
+    With aButtons[i]
+      .X = (i - Int((i - 1) / 3) * 3) * 60 - 30
+      .Y = Int((i - 1) / 3) * 60 + 170
+      .Width = 42
+      .Height = 42
+      .Font.Grade = 5
+      If i = 10 Then
+        .Text = "*"
+      Else If i = 11 Then
+        .Text = "0"
+      Else If i = 12 Then
+        .Text = "#"
+      Else
+        .Text = i
+      Endif
+    End With
+  Next
+  
+End
+
+
+Public Sub Buttongroup_Click() ' This is an event of the action group. This event is fired if any of the buttons is clicked
+  ' You see a list of available events if you type "Buttongroup_"
+'   Dim w As Integer
+  
+  tbNumber.Text = tbNumber.Text & Last.Text  ' find out with LAST which button was clicked and hand its text over to TextBox
+  
+  ' w = Last.Width  ' this would return the width of the last button
+  ' Print w
+End
+
+Public Sub Buttongroup_Menu()   ' Another event of the action group: Right-click on any of the buttons
+  
+  Message.Info(Subst(("You have clicked the button &1"), Last.Text))
+  
+End
+
+Public Sub btnClose_Click()
+  
+  If tbNumber.Text = "" Then
+    Me.Close
+  Else
+    tbNumber.Text = ""
+  Endif
+
+End
+
+Public Sub Form_KeyPress()
+
+  If Key.code = Key.Esc Then Me.Close
+
+End
+
+Public Sub tbNumber_Change()
+
+  If tbNumber.Text = "" Then
+    btnClose.Tooltip = ("Quit")
+  Else
+    btnClose.Tooltip = ("Clear")
+  Endif
+
+End
+
+Public Sub btnDial_Click()
+  
+  If tbNumber.Text = "" Then
+    Message.Warning(("There is no number I could dial."))
+  Else
+    Message.Info(("Dialing ") & tbNumber.Text)
+  Endif
+  
+End

app/examples/Control/ArrayOfControls/.src/FMain.form

@@ -0,0 +1,25 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,32,61)
+  Background = &H525252&
+  Icon = Picture["Phone,.png"]
+  Resizable = False
+  Utility = True
+  { tbNumber TextBox
+    MoveScaled(3,5,26,6)
+    Font = Font["Bold,+4"]
+    Background = &HBBBFB7&
+    Alignment = Align.Right
+    ReadOnly = True
+  }
+  { btnDial Button
+    MoveScaled(3,15,12,6)
+    ToolTip = ("Dial")
+    Picture = Picture["green.png"]
+  }
+  { btnClose Button
+    MoveScaled(17,15,12,6)
+    Picture = Picture["red.png"]
+  }
+}

app/examples/Control/ArrayOfControls/.startup

@@ -0,0 +1,10 @@
+FMain
+Array of Controls
+0
+0
+3.5.90
+
+gb.image
+gb.gui
+gb.form
+

app/examples/Control/Embedder/.directory

@@ -0,0 +1,2 @@
+[Desktop Entry]
+Icon=./.icon.png