Browse Source

Fixed more args.

Brucey 5 years ago
parent
commit
3ba2df449c
1 changed files with 18 additions and 18 deletions
  1. 18 18
      gtk3maxgui.mod/gtkgadget.bmx

+ 18 - 18
gtk3maxgui.mod/gtkgadget.bmx

@@ -2100,14 +2100,14 @@ Type TGTKLabel Extends TGTKGadget
 		
 		If button = 3 Then ' right mouse button
 
-			PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),,,x,y)
+			PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),,,Int(x),Int(y))
 
 		Else ' other mouse buttons
 			If button = 2 Then
 				button = 3
 			End If
 
-			PostGuiEvent(EVENT_MOUSEDOWN, TGadget(obj),button,,x,y)
+			PostGuiEvent(EVENT_MOUSEDOWN, TGadget(obj),button,,Int(x),Int(y))
 		End If
 		
 		Return True
@@ -2293,7 +2293,7 @@ Type TGTKTextField Extends TGTKEditable
 
 		If button = 3 Then ' right mouse button
 
-			PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),,,x,y)
+			PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),,,Int(x),Int(y))
 
 			Return True
 		End If
@@ -2489,9 +2489,9 @@ Type TGTKComboBox Extends TGTKList
 			Local row:Int = TGTKComboBox(obj).SelectedItem()
 			
 			If row >= 0 Then
-				PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),row,,x,y,TGTKList(obj).items[row].extra)
+				PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),row,,Int(x),Int(y),TGTKList(obj).items[row].extra)
 			Else
-				PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),row,,x,y)
+				PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),row,,Int(x),Int(y))
 			End If
 			Return True
 		End If
@@ -2821,9 +2821,9 @@ Type TGTKListbox Extends TGTKListWithScrollWindow
 			End If
 		
 			If row >= 0 Then
-				PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),row,,x,y,TGTKList(obj).items[row].extra)
+				PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),row,,Int(x),Int(y),TGTKList(obj).items[row].extra)
 			Else
-				PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),row,,x,y)
+				PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),row,,Int(x),Int(y))
 			End If
 			Return True
 		End If
@@ -3275,7 +3275,7 @@ Type TGTKTreeView Extends TGTKTreeViewNode
 				gtk_tree_path_free(treePath)
 			End If
 		
-			PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),,,x,y,node)
+			PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),,,Int(x),Int(y),node)
 
 			Return True
 		End If
@@ -4208,7 +4208,7 @@ Type TGTKPanel Extends TGTKContainer
 				button = 3
 			End If
 
-			PostGuiEvent(EVENT_MOUSEDOWN, TGadget(obj),button,,x,y)
+			PostGuiEvent(EVENT_MOUSEDOWN, TGadget(obj),button,,Int(x),Int(y))
 		End If
 		Return True
 	End Function
@@ -4227,7 +4227,7 @@ Type TGTKPanel Extends TGTKContainer
 				button = 3
 			End If
 			
-			PostGuiEvent(EVENT_MOUSEUP, TGadget(obj),button,,x,y)
+			PostGuiEvent(EVENT_MOUSEUP, TGadget(obj),button,,Int(x),Int(y))
 		End If
 		Return True
 	End Function
@@ -4308,9 +4308,9 @@ Type TGTKPanel Extends TGTKContainer
 			bmx_gtk3maxgui_gdkeventscroll(event, Varptr x, Varptr y, Varptr direction)
 
 			If direction = GDK_SCROLL_UP Or direction = GDK_SCROLL_LEFT Then
-				PostGuiEvent(EVENT_MOUSEWHEEL, TGadget(obj),-1,,x,y)
+				PostGuiEvent(EVENT_MOUSEWHEEL, TGadget(obj),-1,,Int(x),Int(y))
 			Else
-				PostGuiEvent(EVENT_MOUSEWHEEL, TGadget(obj),1,,x,y)
+				PostGuiEvent(EVENT_MOUSEWHEEL, TGadget(obj),1,,Int(x),Int(y))
 			End If
 		End If
 	End Function
@@ -4680,7 +4680,7 @@ Type TGTKCanvas Extends TGTKGadget
 			button = 3
 		End If
 
-		PostGuiEvent(EVENT_MOUSEDOWN, TGadget(obj),button,,x,y)
+		PostGuiEvent(EVENT_MOUSEDOWN, TGadget(obj),button,,Int(x),Int(y))
 
 		Return True
 	End Function
@@ -4690,9 +4690,9 @@ Type TGTKCanvas Extends TGTKGadget
 		bmx_gtk3maxgui_gdkeventscroll(event, Varptr x, Varptr y, Varptr direction)
 
 		If direction = GDK_SCROLL_UP Or direction = GDK_SCROLL_LEFT Then
-			PostGuiEvent(EVENT_MOUSEWHEEL, TGadget(obj),-1,,x,y)
+			PostGuiEvent(EVENT_MOUSEWHEEL, TGadget(obj),-1,,Int(x),Int(y))
 		Else
-			PostGuiEvent(EVENT_MOUSEWHEEL, TGadget(obj),1,,x,y)
+			PostGuiEvent(EVENT_MOUSEWHEEL, TGadget(obj),1,,Int(x),Int(y))
 		End If
 	End Function
 
@@ -4706,7 +4706,7 @@ Type TGTKCanvas Extends TGTKGadget
 			button = 3
 		End If
 
-		PostGuiEvent(EVENT_MOUSEUP, TGadget(obj),button,,x,y)
+		PostGuiEvent(EVENT_MOUSEUP, TGadget(obj),button,,Int(x),Int(y))
 
 		Return True
 	End Function
@@ -4740,7 +4740,7 @@ Type TGTKCanvas Extends TGTKGadget
 		Else
 			button = 0
 		End If
-		PostGuiEvent(EVENT_MOUSEMOVE, TGadget(obj),button,,x,y)
+		PostGuiEvent(EVENT_MOUSEMOVE, TGadget(obj),button,,Int(x),Int(y))
 
 		Return True
 	End Function
@@ -4909,7 +4909,7 @@ Type TGTKDefaultTextArea Extends TGTKTextArea
 		bmx_gtk3maxgui_gdkeventbutton(event, Varptr x, Varptr y, Varptr button)
 
 		If button = 3 Then ' right mouse button
-			PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),,,x,y)
+			PostGuiEvent(EVENT_GADGETMENU, TGadget(obj),,,Int(x),Int(y))
 			Return True
 		End If