gtk.bas

gtk_server的源代码

	IF g < 60415 THEN g = g + 5120
	IF b < 60415 THEN b = b + 5120
	GUI("gtk_rc_parse_string", "\"style \\\"" & widget & "\\\" { bg[PRELIGHT] = {" & r & ", " & g & ", " & b & "} }\"")
	GUI("gtk_rc_parse_string \"widget \\\"*.*." & widget & "*\\\" style \\\"" & widget & "\\\"\"")
END IF

IF GTK_TYPE{widget} = "label" THEN PRINT "WARNING: Cannot set background color of label widget!\n"
IF GTK_TYPE{widget} = "separator" THEN
	GUI("gtk_rc_parse_string", "\"style \\\"" & widget & "\\\" { bg[NORMAL] = {" & r & ", " & g & ", " & b & "} }\"")
	GUI("gtk_rc_parse_string \"widget \\\"*.*." & widget & "\\\" style \\\"" & widget & "\\\"\"")
END IF
IF GTK_TYPE{widget} = "frame" THEN
	GUI("gtk_rc_parse_string", "\"style \\\"" & widget & "\\\" { bg[NORMAL] = {" & r & ", " & g & ", " & b & "} }\"")
	GUI("gtk_rc_parse_string \"widget \\\"*.*." & widget & "\\\" style \\\"" & widget & "\\\"\"")
END IF
IF GTK_TYPE{widget} = "list" THEN
	GUI("gtk_rc_parse_string", "\"style \\\"" & widget & "\\\" { base[NORMAL] = {" & r & ", " & g & ", " & b & "} }\"")
	GUI("gtk_rc_parse_string \"widget \\\"*.*." & GTK_CONTAINER{widget} & "\\\" style \\\"" & widget & "\\\"\"")
END IF

GUI("gtk_rc_reset_styles", gtksettings$)

END FUNCTION

REM ************************************************************** Disable widget

FUNCTION disable(widget)

IF GTK_TYPE{widget} = "window" THEN PRINT "WARNING: Cannot disable " & GTK_TYPE{widget} & " widget!\n"
IF GTK_TYPE{widget} = "button" THEN GUI("gtk_widget_set_sensitive", widget, 0)
IF GTK_TYPE{widget} = "check" THEN GUI("gtk_widget_set_sensitive", widget, 0)
IF GTK_TYPE{widget} = "radio" THEN GUI("gtk_widget_set_sensitive", widget, 0)
IF GTK_TYPE{widget} = "entry" THEN GUI("gtk_widget_set_sensitive", widget, 0)
IF GTK_TYPE{widget} = "password" THEN GUI("gtk_widget_set_sensitive", widget, 0)
IF GTK_TYPE{widget} = "label" THEN PRINT "WARNING: Cannot disable " & GTK_TYPE{widget} & " widget!\n"
IF GTK_TYPE{widget} = "droplist" THEN GUI("gtk_widget_set_sensitive", widget, 0)
IF GTK_TYPE{widget} = "text" THEN GUI("gtk_text_view_set_editable", GTK_TEXT_VIEW{widget}, 0)
IF GTK_TYPE{widget} = "separator" THEN PRINT "WARNING: Cannot disable " & GTK_TYPE{widget} & " widget!\n"
IF GTK_TYPE{widget} = "frame" THEN PRINT "WARNING: Cannot disable " & GTK_TYPE{widget} & " widget!\n"
IF GTK_TYPE{widget} = "list" THEN GUI("gtk_widget_set_sensitive", widget, 0)

END FUNCTION

REM ************************************************************** Enable widget

FUNCTION enable(widget)

IF GTK_TYPE{widget} = "window" THEN PRINT "WARNING: Cannot enable " & GTK_TYPE{widget} & " widget!\n"
IF GTK_TYPE{widget} = "button" THEN GUI("gtk_widget_set_sensitive", widget, 1)
IF GTK_TYPE{widget} = "check" THEN GUI("gtk_widget_set_sensitive", widget, 1)
IF GTK_TYPE{widget} = "radio" THEN GUI("gtk_widget_set_sensitive", widget, 1)
IF GTK_TYPE{widget} = "entry" THEN GUI("gtk_widget_set_sensitive", widget, 1)
IF GTK_TYPE{widget} = "password" THEN GUI("gtk_widget_set_sensitive", widget, 1)
IF GTK_TYPE{widget} = "label" THEN PRINT "WARNING: Cannot enable " & GTK_TYPE{widget} & " widget!\n"
IF GTK_TYPE{widget} = "droplist" THEN GUI("gtk_widget_set_sensitive", widget, 1)
IF GTK_TYPE{widget} = "text" THEN GUI("gtk_text_view_set_editable", GTK_TEXT_VIEW{widget}, 1)
IF GTK_TYPE{widget} = "separator" THEN PRINT "WARNING: Cannot enable " & GTK_TYPE{widget} & " widget!\n"
IF GTK_TYPE{widget} = "frame" THEN PRINT "WARNING: Cannot enable " & GTK_TYPE{widget} & " widget!\n"
IF GTK_TYPE{widget} = "list" THEN GUI("gtk_widget_set_sensitive", widget, 1)

END FUNCTION

REM ************************************************************** Hide widget

FUNCTION hide(widget)

GUI("gtk_widget_hide", widget)

END FUNCTION

REM ************************************************************** Show widget

FUNCTION show(widget)

GUI("gtk_widget_show", widget)

END FUNCTION

REM ************************************************************** Synchronous mainloop here

FUNCTION event

event = GUI("gtk_server_callback wait")

END FUNCTION

REM ************************************************************** Asynchronous mainloop here

FUNCTION async

async = GUI("gtk_server_callback update")

END FUNCTION

REM ************************************************************** Get version

FUNCTION version

version = GUI("gtk_server_version")

END FUNCTION

REM ************************************************************** Get/set logging

FUNCTION logging

GUI("log=/tmp/gtk-server.log")

END FUNCTION

END MODULE

REM ************************************************************** Embedded GTK
REM
REM Now you can also use the defined GTK functions from the GTK-server configfile
REM  directly into Scriptbasic. :-)
REM
REM October 21, 2006 - PvE.
REM
REM ***************************************************************************

FUNCTION gtk_window_new( arg1)
gtk_window_new=GTK::gtk("gtk_window_new \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_window_set_title( arg1, arg2)
gtk_window_set_title=GTK::gtk("gtk_window_set_title \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_window_get_title( arg1)
gtk_window_get_title=GTK::gtk("gtk_window_get_title \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_window_set_default_size( arg1, arg2, arg3)
gtk_window_set_default_size=GTK::gtk("gtk_window_set_default_size \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\" \"" &  STR(arg3) & "\"")
END FUNCTION

FUNCTION gtk_window_set_position( arg1, arg2)
gtk_window_set_position=GTK::gtk("gtk_window_set_position \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_window_set_resizable( arg1, arg2)
gtk_window_set_resizable=GTK::gtk("gtk_window_set_resizable \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_window_set_transient_for( arg1, arg2)
gtk_window_set_transient_for=GTK::gtk("gtk_window_set_transient_for \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_window_set_modal( arg1, arg2)
gtk_window_set_modal=GTK::gtk("gtk_window_set_modal \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_window_maximize( arg1)
gtk_window_maximize=GTK::gtk("gtk_window_maximize \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_message_dialog_new( arg1, arg2, arg3, arg4, arg5, arg6)
gtk_message_dialog_new=GTK::gtk("gtk_message_dialog_new \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\" \"" &  STR(arg3) & "\" \"" &  STR(arg4) & "\" \"" &  STR(arg5) & "\" \"" &  STR(arg6) & "\"")
END FUNCTION

FUNCTION gtk_message_dialog_new_with_markup( arg1, arg2, arg3, arg4, arg5, arg6)
gtk_message_dialog_new_with_markup=GTK::gtk("gtk_message_dialog_new_with_markup \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\" \"" &  STR(arg3) & "\" \"" &  STR(arg4) & "\" \"" &  STR(arg5) & "\" \"" &  STR(arg6) & "\"")
END FUNCTION

FUNCTION gtk_window_set_icon_from_file( arg1, arg2, arg3)
gtk_window_set_icon_from_file=GTK::gtk("gtk_window_set_icon_from_file \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\" \"" &  STR(arg3) & "\"")
END FUNCTION

FUNCTION gtk_window_set_keep_above( arg1, arg2)
gtk_window_set_keep_above=GTK::gtk("gtk_window_set_keep_above \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_window_set_keep_below( arg1, arg2)
gtk_window_set_keep_below=GTK::gtk("gtk_window_set_keep_below \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_about_dialog_set_version( arg1, arg2)
gtk_about_dialog_set_version=GTK::gtk("gtk_about_dialog_set_version \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_window_set_policy( arg1, arg2, arg3, arg4)
gtk_window_set_policy=GTK::gtk("gtk_window_set_policy \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\" \"" &  STR(arg3) & "\" \"" &  STR(arg4) & "\"")
END FUNCTION

FUNCTION gtk_window_fullscreen( arg1)
gtk_window_fullscreen=GTK::gtk("gtk_window_fullscreen \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_window_unfullscreen( arg1)
gtk_window_unfullscreen=GTK::gtk("gtk_window_unfullscreen \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_window_set_icon_name( arg1, arg2)
gtk_window_set_icon_name=GTK::gtk("gtk_window_set_icon_name \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_window_add_accel_group( arg1, arg2)
gtk_window_add_accel_group=GTK::gtk("gtk_window_add_accel_group \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_table_new( arg1, arg2, arg3)
gtk_table_new=GTK::gtk("gtk_table_new \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\" \"" &  STR(arg3) & "\"")
END FUNCTION

FUNCTION gtk_table_attach_defaults( arg1, arg2, arg3, arg4, arg5, arg6)
gtk_table_attach_defaults=GTK::gtk("gtk_table_attach_defaults \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\" \"" &  STR(arg3) & "\" \"" &  STR(arg4) & "\" \"" &  STR(arg5) & "\" \"" &  STR(arg6) & "\"")
END FUNCTION

FUNCTION gtk_container_add( arg1, arg2)
gtk_container_add=GTK::gtk("gtk_container_add \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_container_remove( arg1, arg2)
gtk_container_remove=GTK::gtk("gtk_container_remove \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_container_set_border_width( arg1, arg2)
gtk_container_set_border_width=GTK::gtk("gtk_container_set_border_width \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_hbox_new( arg1, arg2)
gtk_hbox_new=GTK::gtk("gtk_hbox_new \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_vbox_new( arg1, arg2)
gtk_vbox_new=GTK::gtk("gtk_vbox_new \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_box_pack_start( arg1, arg2, arg3, arg4, arg5)
gtk_box_pack_start=GTK::gtk("gtk_box_pack_start \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\" \"" &  STR(arg3) & "\" \"" &  STR(arg4) & "\" \"" &  STR(arg5) & "\"")
END FUNCTION

FUNCTION gtk_box_pack_end( arg1, arg2, arg3, arg4, arg5)
gtk_box_pack_end=GTK::gtk("gtk_box_pack_end \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\" \"" &  STR(arg3) & "\" \"" &  STR(arg4) & "\" \"" &  STR(arg5) & "\"")
END FUNCTION

FUNCTION gtk_box_pack_start_defaults( arg1, arg2)
gtk_box_pack_start_defaults=GTK::gtk("gtk_box_pack_start_defaults \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_box_pack_end_defaults( arg1, arg2)
gtk_box_pack_end_defaults=GTK::gtk("gtk_box_pack_end_defaults \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_box_set_spacing( arg1, arg2)
gtk_box_set_spacing=GTK::gtk("gtk_box_set_spacing \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_button_new
gtk_button_new=GTK::gtk("gtk_button_new")
END FUNCTION

FUNCTION gtk_button_new_with_label( arg1)
gtk_button_new_with_label=GTK::gtk("gtk_button_new_with_label \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_button_new_from_stock( arg1)
gtk_button_new_from_stock=GTK::gtk("gtk_button_new_from_stock \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_button_new_with_mnemonic( arg1)
gtk_button_new_with_mnemonic=GTK::gtk("gtk_button_new_with_mnemonic \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_button_set_use_stock( arg1, arg2)
gtk_button_set_use_stock=GTK::gtk("gtk_button_set_use_stock \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_button_set_label( arg1, arg2)
gtk_button_set_label=GTK::gtk("gtk_button_set_label \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_button_set_relief( arg1, arg2)
gtk_button_set_relief=GTK::gtk("gtk_button_set_relief \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_hbutton_box_new
gtk_hbutton_box_new=GTK::gtk("gtk_hbutton_box_new")
END FUNCTION

FUNCTION gtk_button_box_set_layout( arg1, arg2)
gtk_button_box_set_layout=GTK::gtk("gtk_button_box_set_layout \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_bin_get_child( arg1)
gtk_bin_get_child=GTK::gtk("gtk_bin_get_child \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_button_clicked( arg1)
gtk_button_clicked=GTK::gtk("gtk_button_clicked \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_toggle_button_new
gtk_toggle_button_new=GTK::gtk("gtk_toggle_button_new")
END FUNCTION

FUNCTION gtk_toggle_button_new_with_label( arg1)
gtk_toggle_button_new_with_label=GTK::gtk("gtk_toggle_button_new_with_label \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_toggle_button_new_with_mnemonic( arg1)
gtk_toggle_button_new_with_mnemonic=GTK::gtk("gtk_toggle_button_new_with_mnemonic \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_toggle_button_get_active( arg1)
gtk_toggle_button_get_active=GTK::gtk("gtk_toggle_button_get_active \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_toggle_button_set_active( arg1, arg2)
gtk_toggle_button_set_active=GTK::gtk("gtk_toggle_button_set_active \"" & STR(arg1) & "\" \"" &  STR(arg2) & "\"")
END FUNCTION

FUNCTION gtk_check_button_new_with_label( arg1)
gtk_check_button_new_with_label=GTK::gtk("gtk_check_button_new_with_label \"" & STR(arg1) & "\"")
END FUNCTION

FUNCTION gtk_entry_new
gtk_entry_new=GTK::gtk("gtk_entry_new")
END FUNCTION

FUNCTION gtk_entry_get_text( arg1)
gtk_entry_get_text=GTK::gtk("gtk_entry_get_text \"" & STR(arg1) & "\"")
END FUNCTION