Linux: Set Window Icon

Author: jo-tools

Components/Modules/Controls.xojo_code

@@ -113,6 +113,32 @@ Protected Module Controls
 		End Sub
 	#tag EndMethod
 
+	#tag Method, Flags = &h0, CompatibilityFlags = TargetHasGUI
+		Sub SetWindowIcon_Linux(Extends poWindow As Window, Assigns poIcon As Picture)
+		  'Set Icon for a Window
+		  'in order to show the Icon in the 'Launch Bar'
+		  
+		  #If TargetLinux And TargetDesktop Then 'GTK3
+		    If (poIcon = Nil) Then Return
+		    
+		    Declare Sub gtk_window_set_icon Lib "libgtk-3" (windowHandle As Integer, icon As Ptr)
+		    Declare Sub g_object_unref Lib "libgtk-3" (Object As Ptr)
+		    
+		    Try
+		      Dim ptrToIcon As Ptr = poIcon.CopyOSHandle(Picture.HandleType.LinuxGdkPixbuf)
+		      If (ptrToIcon <> Nil) Then
+		        gtk_window_set_icon(poWindow.Handle, ptrToIcon)
+		        g_object_unref(ptrToIcon)
+		      End If
+		    Catch err As RuntimeException
+		      'ignore
+		    End Try
+		    
+		  #EndIf
+		  
+		End Sub
+	#tag EndMethod
+
 	#tag Method, Flags = &h0, CompatibilityFlags = TargetHasGUI
 		Sub WM_SendMessage(piHwnd as Integer, piMsg as UInt32, piWParam as Integer, piLParam as Integer)
 		  #if TargetWindows then
@@ -150,34 +176,41 @@ Protected Module Controls
 			Name="Name"
 			Visible=true
 			Group="ID"
+			InitialValue=""
 			Type="String"
+			EditorType=""
 		#tag EndViewProperty
 		#tag ViewProperty
 			Name="Index"
 			Visible=true
 			Group="ID"
 			InitialValue="-2147483648"
 			Type="Integer"
+			EditorType=""
 		#tag EndViewProperty
 		#tag ViewProperty
 			Name="Super"
 			Visible=true
 			Group="ID"
+			InitialValue=""
 			Type="String"
+			EditorType=""
 		#tag EndViewProperty
 		#tag ViewProperty
 			Name="Left"
 			Visible=true
 			Group="Position"
 			InitialValue="0"
 			Type="Integer"
+			EditorType=""
 		#tag EndViewProperty
 		#tag ViewProperty
 			Name="Top"
 			Visible=true
 			Group="Position"
 			InitialValue="0"
 			Type="Integer"
+			EditorType=""
 		#tag EndViewProperty
 	#tag EndViewBehavior
 End Module

Windows/ConnectWindow.rbfrm

@@ -699,6 +699,17 @@ End
 		End Function
 	#tag EndMethod
 
+	#tag Method, Flags = &h0
+		Sub Constructor()
+		  Super.Constructor
+		  
+		  #If TargetLinux And TargetDesktop Then 'GTK3
+		    Dim oIcon As Picture = icon.BestRepresentation(128, 128, 1.0)
+		    If (oIcon <> Nil) Then Self.SetWindowIcon_Linux = oIcon
+		  #EndIf
+		End Sub
+	#tag EndMethod
+
 	#tag Method, Flags = &h21
 		Private Function GetSSLCertificate() As FolderItem
 		  Dim f As FolderItem

Windows/ServerWindow.rbfrm

@@ -7897,6 +7897,10 @@ End
 		  db = serverDB
 		  Super.Constructor
 
+		  #If TargetLinux And TargetDesktop Then 'GTK3
+		    Dim oIcon As Picture = icon.BestRepresentation(128, 128, 1.0)
+		    If (oIcon <> Nil) Then Self.SetWindowIcon_Linux = oIcon
+		  #EndIf
 		End Sub
 	#tag EndMethod