[EXAMPLES]

* BUG: Lighttable: Correct renaming of files if ScrollView is expanded
* OPT: Lighttable: Allow double-click on DirChooser



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

examples/examples/Image/Lighttable/.project

@@ -1,10 +1,9 @@
 # Gambas Project File 3.0
-# Compiled with Gambas 3.1.0
+# Compiled with Gambas 3.4.0
 Title=Lighttable
 Startup=MMain
 Icon=lighttable.png
-Version=3.0.90
-VersionFile=1
+Version=3.4.1
 Component=gb.image
 Component=gb.qt4
 Component=gb.form
@@ -17,13 +16,13 @@ Authors="Matti, with tips and some changes from Benoît"
 TabSize=2
 Translate=1
 Language=en
+ExecPath=/home/mathias/aaaTemp/Lighttable.gambas
 SourcePath=/home/mathias/Basic
 Maintainer=mathias
 Address=mathias@mattitux
 License=General Public Licence
+Packager=1
 Systems=suse
-Menus=Graphics/Photograph
-Categories=Graphics
-Groups=Productivity/Graphics/Viewers
-ExtraDependencies=
-ExtraFiles=
+Menus=suse:"Graphics/Photograph"
+Categories=suse:"Graphics"
+Groups=suse:"Productivity/Graphics/Viewers"

examples/examples/Image/Lighttable/.settings

@@ -17,7 +17,7 @@ SearchString=True
 [OpenFile]
 File[1]=".src/FMain.form"
 Active=2
-File[2]=".src/FMain.class:377.0"
+File[2]=".src/FMain.class:634.11"
 Count=2
 
 [Watches]

examples/examples/Image/Lighttable/.src/FMain.class

@@ -10,7 +10,6 @@ Private aPicture As New Object[]
 Private aOri As New String[]
 Private alblFile As New Object[]
 Private alblTime As New Object[]
-Private bNothumb As Boolean
 Private bStop As Boolean = False
 Private hCurClose As Cursor
 Private hCurHand As Cursor
@@ -419,7 +418,7 @@ End
 
 Public Sub mnuDelete_Click()  ' Delete a picture
 
-  Dim i, j, x, y, posx As Integer
+  Dim i, x, y As Integer
   Dim sPicState As String
   
   If iMark = -1 Then Return   ' Only if a picture is selected
@@ -487,7 +486,6 @@ End
 
 Public Sub mnuInfo_Click()  ' Show picture infos
 
-  Dim sExif As String
   Dim posx, posy As Integer
   
   If iMark = -1 Then Return
@@ -633,7 +631,7 @@ Public Function FindNextFrame(x As Integer, y As Integer) As Boolean
   
   Do
     x = x + 70
-    If x > (Me.Width - 150) Then   ' if we are at the end of a line, go to next line
+    If x > (ScrollView1.ScrollWidth - 150) Then   ' if we are at the end of a line, go to next line
       x = 0
       y = y + 210
     Endif 

examples/examples/Image/Lighttable/.src/FStart.class

@@ -127,3 +127,9 @@ Public Sub DirChooser1_Change()
   Next
 
 End
+
+Public Sub DirChooser1_Activate()
+
+  btnOK_Click
+
+End

examples/examples/Image/Lighttable/.src/FTime.class

@@ -13,9 +13,6 @@ Public Sub btnCancel_Click()
 End
 
 Public Sub btnOK_Click()
-
-  Dim aOrigs As String[]
-  Dim i As Integer
   
   If SpinDay.Value + SpinHrs.Value + SpinMins.Value = 0 Then
     Message.Info(("There is no time correction selected."))

examples/examples/Image/Lighttable/.startup

@@ -2,7 +2,7 @@ MMain
 Lighttable
 0
 0
-3.0.90
+3.4.1
 
 gb.image
 gb.qt4