[GB.FORM.TERMINAL]

* BUG: Found a workaround for the dblclick event.


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

comp/src/gb.form.terminal/.project

@@ -9,7 +9,6 @@ Component=gb.image
 Component=gb.gui
 Component=gb.form
 Authors="Benoît Minisini\nFabien Bodard"
-Environment="GB_GUI=gb.qt5"
 TabSize=2
 Language=fr
 Type=Component

comp/src/gb.form.terminal/.src/TerminalView/Form1.class

@@ -0,0 +1,44 @@
+' Gambas class file
+
+
+Public Sub Form_MouseUp()
+
+  Print "MouseUp"
+
+End
+
+Public Sub Form_MouseDown()
+
+  Print "MouseDown"
+
+End
+
+Public Sub Form_DblClick()
+
+  Print "DblClick"
+
+End
+
+Public Sub Form_Open()
+
+  
+
+End
+
+Public Sub DrawingArea1_Draw()
+
+  
+
+End
+
+Public Sub DrawingArea1_MouseDown()
+
+  Print "MouseDown"
+
+End
+
+Public Sub DrawingArea1_MouseUp()
+
+  Print "MouseUp"
+
+End

comp/src/gb.form.terminal/.src/TerminalView/Form1.form

@@ -0,0 +1,9 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,64,64)
+  { DrawingArea1 DrawingArea
+    MoveScaled(20,6,34,37)
+    Background = Color.DarkGray
+  }
+}

comp/src/gb.form.terminal/.src/TerminalView/TerminalView.class

@@ -351,7 +351,7 @@ Public Sub View_MouseDown()
     GetMouseXY(ByRef X, ByRef Y)
     $hFilter.SendMouseEvent($hProcess, X, Y, $hFilter.MouseDown)
   Endif
-
+  'Print "MouseDown"
 End
 
 Public Sub View_MouseMove()
@@ -408,7 +408,7 @@ Public Sub View_MouseUp()
     GetMouseXY(ByRef X, ByRef Y)
     $hFilter.SendMouseEvent($hProcess, X, Y, $hFilter.MouseUp)
   Endif
-
+  'Print "MouseUp"
 End
 
 Public Sub View_MouseWheel()
@@ -443,6 +443,20 @@ Public Sub View_KeyPress()
 
 End
 
+Public Sub View_DblClick()
+  Dim X As Integer
+  Dim Y As Integer
+  If $hFilter.MouseActive Then
+    If Not $bMouseDown Then 
+      GetMouseXY(ByRef X, ByRef Y)
+      $hFilter.SendMouseEvent($hProcess, X, Y, $hFilter.MouseDown)
+    Endif
+    
+  Endif
+  
+End
+
+
 Private Function Column_Read() As Integer
 
   Return $hScreen.Column