; Module/File: Gtk_GetSoundThemeName.pb ; Function: Get the sound theme name - Linux gtk2/gtk3 ; Author: Omi ; Date: May. 03, 2018 ; Version: 0.1 ; Target Compiler: PureBasic 5.22/5.31/5.4/5.6 ; Target OS: Linux: (X/K/L)ubuntu, Mint, 32/64, Ascii/Uni ;-------------------------------------------------------------- EnableExplicit ImportC "" g_object_get_property(*object.GObject, property.p-utf8, *gval) EndImport ; Object constants #MainWin = 0 #Txt1 = 0 #Txt2 = 1 #G_TYPE_STRING= 64 Global.i gEvent, gQuit Procedure.s GtkSoundThemeName() Protected gVal.GValue Protected.s SoundTheme g_value_init_(@gVal, #G_TYPE_STRING) g_object_get_property(gtk_settings_get_default_(), "gtk-sound-theme-name", @gVal) SoundTheme= PeekS(g_value_get_string_(@gVal), -1, #PB_UTF8) g_value_unset_(@gVal) ProcedureReturn SoundTheme EndProcedure If OpenWindow(#MainWin, 300, 200, 500, 100, "gtk-sound theme name", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) TextGadget(#Txt1, 5, 5, 200, 22, "Current gtk-sound-theme-name: ") TextGadget(#Txt2, 250, 5, 240, 22, " ") SetGadgetText(#Txt2, GtkSoundThemeName()) Repeat gEvent= WaitWindowEvent() Select gEvent Case #PB_Event_CloseWindow gQuit= #True Case #PB_Event_Gadget EndSelect Until gQuit EndIf ; IDE Options = PureBasic 5.62 (Linux - x86) ; CursorPosition = 35 ; Folding = - ; EnableXP ; EnableUnicode