From 04c165250d7a4b45f99fc013a64d234db170dc0e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <gambas@users.sourceforge.net>
Date: Fri, 13 Mar 2015 21:24:51 +0000
Subject: [PATCH] [DEVELOPMENT ENVIRONMENT] * BUG: Default IDE window size
 should be big enough now.

git-svn-id: svn://localhost/gambas/trunk@6983 867c0c6c-44f3-4631-809d-bfa615b0a4ec
---
 app/src/gambas3/.src/FMain.class | 11 +++--------
 app/src/gambas3/.src/FMain.form  |  2 +-
 2 files changed, 4 insertions(+), 9 deletions(-)

diff --git a/app/src/gambas3/.src/FMain.class b/app/src/gambas3/.src/FMain.class
index 845402ae9..3223d190c 100644
--- a/app/src/gambas3/.src/FMain.class
+++ b/app/src/gambas3/.src/FMain.class
@@ -31,7 +31,7 @@ Static Private $sCompressMessage As String
 
 Public Sub _new()
   
-  Me.Resize(800, 600)
+  Me.ResizeScaled(86, 97)
   
   Project.ProjectTree = tvwProject
   Project.Workspace = wrkProject
@@ -1823,12 +1823,6 @@ End
 '   
 ' End
 
-Public Sub panProperty_Arrange()
-  
-  'tabProperty_Click  
-  
-End
-
 Public Sub tvwProject_Leave()
   
   $bInTreeView = False
@@ -2362,7 +2356,7 @@ Public Sub Form_Resize()
   If dwgWelcome.Visible Then
     W = Desktop.Scale * 106 + 64
     If W > Me.ClientW Then W = Max(Me.ClientW, Desktop.Scale * 80 + 64)
-    H = Max(Desktop.Scale * 80 + 64, Me.ClientH - 64)
+    H = Max(Desktop.Scale * 90 + 64, Me.ClientH - 64)
     dwgWelcome.Move((Me.ClientW - W) \ 2, (Me.ClientH - H) \ 2, W, H)
     
   Endif
@@ -2624,3 +2618,4 @@ Public Sub txtSearchProject_Click()
   mnuCloseAll_Click
 
 End
+
diff --git a/app/src/gambas3/.src/FMain.form b/app/src/gambas3/.src/FMain.form
index 6bdedc466..ecc2769fd 100644
--- a/app/src/gambas3/.src/FMain.form
+++ b/app/src/gambas3/.src/FMain.form
@@ -1,7 +1,7 @@
 # Gambas Form File 3.0
 
 { Form Form
-  MoveScaled(0,0,176,123)
+  MoveScaled(0,0,174,100)
   Icon = Picture["img/logo/logo-ide.png"]
   Arrangement = Arrange.Vertical
   { mnuFile Menu