[DEVELOPMENT ENVIRONMENT]

* BUG: Add a limit to the history size.

[GB.FORM.STOCK]
* BUG: Do not require gb.gtk, so that compilation does not fail if gb.gtk 
  is not available.


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

app/src/gambas3/.src/Editor/CPosition.class

@@ -4,6 +4,8 @@ Static Private $aPositions As New CPosition[]
 Static Private $iCurrent As Integer
 Static Private $iDisable As Integer
 
+Private Const MAX_POS As Integer = 40
+
 Public Path As String
 Public {Line} As Integer
 Public Column As Integer
@@ -57,6 +59,11 @@ Static Public Sub SaveCurrent()
     End With
   Endif
 
+  If $iCurrent > MAX_POS Then
+    $aPositions.Remove(0)
+    Dec $iCurrent
+  Endif
+
   $aPositions.Resize($iCurrent)
   $aPositions.Add(hPos)
   Inc $iCurrent

app/src/gambas3/.src/Project.module

@@ -269,7 +269,7 @@ Public Sub Main()
 
   InitVersion
   InitWebView
-  CRecentFile.Load
+  'CRecentFile.Load
   FMain.Load
   Application.MainWindow = FMain
 

comp/src/gb.form.stock/.component

@@ -1,5 +1,5 @@
 [Component]
 Key=gb.form.stock
-Version=3.0.0
+Version=3.0.90
 Hidden=True
 

comp/src/gb.form.stock/.project

@@ -1,10 +1,8 @@
 # Gambas Project File 3.0
-# Compiled with Gambas 3.0.0
+# Compiled with Gambas 3.0.90
 Title=Default stock icons
 Startup=Main
-Version=3.0.0
+Version=3.0.90
 VersionFile=1
-Component=gb.image
-Component=gb.gtk
 TabSize=2
 MakeComponent=1

comp/src/gb.form.stock/.src/Main.module

@@ -2,6 +2,11 @@
 
 ' Pour récupérer les icônes manquantes depuis subversion :
 ' $ for i in `svn status | grep "! " | cut -b 9-`; do svn revert $i; done
+' 
+Class Image 
+Class SvgImage 
+Class Color
+Class Paint
 
 Private Sub Copy(sSrc As String, sDest As String) As Boolean
 
@@ -28,6 +33,8 @@ Public Sub Main()
   Dim hSvgImage As SvgImage
   Dim bOK As Boolean
   
+  Component.Load("gb.gtk")
+  
   hFile = Open "~/gambas/3.0/trunk/comp/src/gb.form.stock/.hidden/map"
   
   Try Mkdir "~/gambas/3.0/trunk/comp/src/gb.form.stock/stock/16"