; Module/File: System_CursorHasMulticolor&Alpha.pb ; Function: Query cursor has multicolor & alpha channel on display - Linux gtk2.4+ ; Author: Omi ; Date: Jul. 27, 2017 ; Version: 0.1 ; Target Compiler: PureBasic 5.22/5.3/5.4/5.5/5.6 ; Target OS: Linux: (X/K/L)ubuntu, Mint, 32/64, Ascii/Uni ; Link to topic: https://developer.gnome.org/gdk3/stable/GdkDisplay.html#gdk-display-supports-cursor-color ; Link to topic: https://developer.gnome.org/gdk3/stable/GdkDisplay.html#gdk-display-supports-cursor-alpha ;-------------------------------------------------------------- EnableExplicit ImportC "" gdk_display_get_default() gdk_display_supports_cursor_color(*display.GdkDisplay) gdk_display_supports_cursor_alpha(*display.GdkDisplay) EndImport ; Object constants #Win_Main = 0 Global.i gEvent, gQuit Global *gDisplay.GdkDisplay Procedure Create_WinMain() If OpenWindow(#Win_Main, 300, 200, 500, 200, "Query cursor multicolor & 8-bit alpha", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) TextGadget(#PB_Any, 5, 5, 400, 22, "Look at debug output ...") EndIf EndProcedure Create_WinMain() *gDisplay= gdk_display_get_default() Debug "Cursor supports multicolor : " + gdk_display_supports_cursor_color(*gDisplay) Debug "Cursor has 8-bit alpha channel: " + gdk_display_supports_cursor_alpha(*gDisplay) Repeat gEvent= WaitWindowEvent() Select gEvent Case #PB_Event_CloseWindow gQuit= #True EndSelect Until gQuit ; IDE Options = PureBasic 5.44 LTS (Linux - x86) ; CursorPosition = 10 ; Folding = - ; EnableUnicode ; EnableXP