From ab1f13eb50824b5f0f768d06d633e432358e81af Mon Sep 17 00:00:00 2001
From: David Villalobos Cambronero <david_villalobos_c@yahoo.com>
Date: Tue, 3 Jun 2008 14:31:59 +0000
Subject: [PATCH] [GB.DB.MYSQL] * BUG: Quoted symbols in Table::INSERT

[GB.DESKTOP]
* BUG: Commented line 193 in Desktop class. Terminal
  opens on KDE desktops.

git-svn-id: svn://localhost/gambas/trunk@1398 867c0c6c-44f3-4631-809d-bfa615b0a4ec
---
 comp/src/gb.form/.info                   | 16 ++++++++--------
 gb.db.mysql/src/gb.db.mysql/.info        |  4 ++++
 gb.db.mysql/src/gb.db.mysql/_Table.class |  2 +-
 gb.desktop/src/gb.desktop/Desktop.class  |  2 +-
 4 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/comp/src/gb.form/.info b/comp/src/gb.form/.info
index a14189012..471da11d1 100644
--- a/comp/src/gb.form/.info
+++ b/comp/src/gb.form/.info
@@ -293,6 +293,10 @@ LstForm_Show
 m
 
 
+OBS_Move
+m
+
+
 LstForm_Hide
 m
 
@@ -321,10 +325,6 @@ DateChooser_Change
 m
 
 
-OBS_Move
-m
-
-
 #DirChooser
 UserControl
 C
@@ -1284,6 +1284,10 @@ LstForm_Show
 m
 
 
+OBS_Move
+m
+
+
 LstForm_Hide
 m
 
@@ -1300,10 +1304,6 @@ DateChooser_Change
 m
 
 
-OBS_Move
-m
-
-
 #Wizard
 UserContainer
 C
diff --git a/gb.db.mysql/src/gb.db.mysql/.info b/gb.db.mysql/src/gb.db.mysql/.info
index 12b7dde27..4b5c1a6f6 100644
--- a/gb.db.mysql/src/gb.db.mysql/.info
+++ b/gb.db.mysql/src/gb.db.mysql/.info
@@ -130,6 +130,10 @@ LongBlob
 C
 s
 LONGBLOB
+Null
+C
+s
+NULL
 Bit
 m
 s
diff --git a/gb.db.mysql/src/gb.db.mysql/_Table.class b/gb.db.mysql/src/gb.db.mysql/_Table.class
index 7ab8ba41e..ddbe05b37 100644
--- a/gb.db.mysql/src/gb.db.mysql/_Table.class
+++ b/gb.db.mysql/src/gb.db.mysql/_Table.class
@@ -67,7 +67,7 @@ Public Procedure Insert(Table As String, Fields As String[], Values As String[])
   If Upper(Fields[0]) = "ALL" Then
     modMain.$Query &= " VALUES ("
   Else
-    modMain.$Query &= " (" & modMain.ArrayToString(Fields, False) & ") VALUES ("
+    modMain.$Query &= " (" & modMain.ArrayToString(Fields, True) & ") VALUES ("
   Endif
   'If the Value is string type, we need to use the Apostrophe caracter
   For iCounter = 0 To Values.Count - 1
diff --git a/gb.desktop/src/gb.desktop/Desktop.class b/gb.desktop/src/gb.desktop/Desktop.class
index f4a831d85..259060676 100644
--- a/gb.desktop/src/gb.desktop/Desktop.class
+++ b/gb.desktop/src/gb.desktop/Desktop.class
@@ -190,7 +190,7 @@ Static Private Sub GetDesktop() As String
     
   Endif
   
-  $sDesktop = "GNOME"
+  '$sDesktop = "GNOME"
   Return $sDesktop
   
 End