Conversion gambas2 -> gambas3

.project

@@ -1,14 +1,13 @@
-# Gambas Project File 2.0
+# Gambas Project File 3.0
-# Compiled with Gambas 2.23.1
+# Compiled with Gambas 3.1.1
 Title=RatBox
 Startup=FMain
-Version=0.0.9
+Version=0.0.10
-Library=gb.gui
+Component=gb.gui
-Library=gb.form
+Component=gb.form
-Library=gb.net
+Component=gb.net
 TabSize=2
-ExecPath=/home/tomsuch/Desktop/RatBox.gambas
-SourcePath=/home/tomsuch/Desktop
 Maintainer=tomsuch
 Address=tomsuch@IceSpirit
 License=General Public Licence
+Packager=1

.settings

@@ -15,11 +15,11 @@ SearchComment=False
 SearchString=True
 
 [OpenFile]
-File[1]="FMain.form"
+File[1]=".src/FMain.form"
-File[2]="FMain.class:1393.12"
 Active=2
-File[3]="Form1.form"
+File[2]=".src/FMain.class:1381.71"
-File[4]="Form1.class:0.2"
+File[3]=".src/Form1.form"
+File[4]=".src/Form1.class:14.3"
 Count=4
 
 [Watches]

.src/FMain.form

@@ -1,10 +1,8 @@
-# Gambas Form File 2.0
+# Gambas Form File 3.0
-
 { Form Form 
   Move(0,0,1400,798)
-  #(Scaled) = False
+  #Scaled = False
-  Text = ("")
+  Border = False
-  Border = Window.None
   FullScreen = True
   { BtnKonec Button 
     Move(1162,7,70,21)
@@ -12,18 +10,15 @@
   }
   { TxtSysTime TextBox 
     Move(1015,7,140,21)
-    Text = ("")
     Alignment = Align.Center
   }
   { TimerSystime #Timer 
-    #X = 644
+    #MoveScaled(0,0)
-    #Y = 315
     Enabled = True
     Delay = 250
   }
   { TxtSysLog TextArea 
     Move(14,49,679,112)
-    Text = ("")
     ReadOnly = True
     Wrap = True
     ScrollBar = Scroll.Vertical
@@ -344,8 +339,7 @@
     Alignment = Align.Center
   }
   { TmrCasovac #Timer 
-    #X = 602
+    #MoveScaled(1,1)
-    #Y = 315
   }
   { TxtInfoTimeout TextBox 
     Move(532,7,70,21)
@@ -365,8 +359,7 @@
     Text = ("Pripoj / Odpoj")
   }
   { SerialPort1 #SerialPort 
-    #X = 518
+    #MoveScaled(2,2)
-    #Y = 315
   }
   { Separator1 Separator 
     Move(14,35,1218,7)
@@ -605,7 +598,6 @@
   }
   { TxtKonfigNazev TextBox 
     Move(896,77,175,21)
-    Text = ("")
   }
   { Label34 Label 
     Move(896,49,175,21)
@@ -629,8 +621,7 @@
     Text = ("ExperimentID")
   }
   { TmrTimeout #Timer 
-    #X = 644
+    #MoveScaled(3,3)
-    #Y = 273
   }
   { ListBox1 ListBox 
     Move(1085,49,147,259)
@@ -649,8 +640,7 @@
     Alignment = Align.Center
   }
   { TimerExperimentMils #Timer 
-    #X = 644
+    #MoveScaled(4,4)
-    #Y = 231
     Delay = 10
   }
   { PictureLogo1 PictureBox 
@@ -682,8 +672,7 @@
     Text = ("ObjectID")
   }
   { TimerMilis #Timer 
-    #X = 560
+    #MoveScaled(5,5)
-    #Y = 315
     Delay = 10
   }
   { Label41 Label 

.src/Form1.class

@@ -0,0 +1,46 @@
+' Gambas class file
+
+
+Public Sub Form_Open()
+Wait
+  PictureBox1.Width = Form1.Width
+  PictureBox1.Height = Form1.Height
+Wait
+End
+
+Public Sub stimul(xxx As String)
+  Wait
+  PictureBox1.Picture = Picture.Load(xxx)
+  Wait
+End
+
+Public Sub loginfo(aaa As String)
+  Label1.Text = aaa
+End
+Public Sub cyklusinfo(bbb As String)
+  label2.Text = bbb
+End
+
+Public Sub PictureBox1_DblClick()
+  Form1.FullScreen = False
+  Form1.Visible = False
+  FMain.Visible = True
+  Form1.Close
+Wait
+End
+
+Public Sub Form_Resize()
+  PictureBox1.Width = Form1.Width
+  PictureBox1.Height = Form1.Height
+End
+
+Public Sub Form_Show()
+  Wait
+    PictureBox1.Width = Form1.Width
+    PictureBox1.Height = Form1.Height
+  Wait
+End
+
+Public Sub PictureBox1_Menu()
+  FMain.remstart()
+End

.src/Form1.form

@@ -1,11 +1,9 @@
-# Gambas Form File 2.0
+# Gambas Form File 3.0
-
 { Form Form 
   MoveScaled(0,0,149,64)
   Background = &H000000&
   Mouse = Mouse.Blank
-  Text = ("")
+  Border = False
-  Border = Window.None
   FullScreen = True
   { PictureBox1 PictureBox 
     MoveScaled(2,2,34,31)
@@ -14,15 +12,13 @@
     Alignment = Align.Center
   }
   { Label1 Label 
-    MoveScaled(1,1,60,2)
+    MoveScaled(1,1,60,3)
     Font = Font["-1"]
     Foreground = &HE0E0E0&
-    Text = ("")
   }
   { Label2 Label 
-    MoveScaled(62,1,45,2)
+    MoveScaled(62,1,45,3)
     Font = Font["-1"]
     Foreground = &HE0E0E0&
-    Text = ("")
   }
 }

.startup

@@ -0,0 +1,10 @@
+FMain
+RatBox
+0
+0
+0.0.9
+
+gb.gui
+gb.form
+gb.net
+

Form1.class

@@ -1,46 +0,0 @@
-' Gambas class file
-
-
-PUBLIC SUB Form_Open()
-WAIT 
-  PictureBox1.Width = Form1.Width
-  PictureBox1.Height = Form1.Height
-WAIT 
-END
-
-PUBLIC SUB stimul(xxx AS String)
-  WAIT 
-  PictureBox1.Picture = Picture.Load(xxx)
-  WAIT 
-END
-
-PUBLIC SUB loginfo(aaa AS String)
-  Label1.Text = aaa
-END
-PUBLIC SUB cyklusinfo(bbb AS String)
-  label2.Text = bbb
-END
-
-PUBLIC SUB PictureBox1_DblClick()
-  Form1.FullScreen = FALSE
-  Form1.Visible = FALSE
-  FMain.Visible = TRUE
-  Form1.Close
-WAIT 
-END
-
-PUBLIC SUB Form_Resize()
-  PictureBox1.Width = Form1.Width
-  PictureBox1.Height = Form1.Height
-END
-
-PUBLIC SUB Form_Show()
-  WAIT 
-    PictureBox1.Width = Form1.Width
-    PictureBox1.Height = Form1.Height
-  WAIT 
-END
-
-PUBLIC SUB PictureBox1_Menu()
-  FMain.remstart()
-END