noconfig.ksh

gtk_server的源代码

#!/bin/ksh
#
# Demonstration on how to use the GTK-server without configfile!
#
# 1) Check and open GTK library first with 'gtk_server_require'
# 2) Define the calls we need
#
# Tested with the AT&T KSH (1993-12-28) on Zenwalk Linux 5.2 and Slamd12
#
# July 10, 2008 PvE. GPL
#------------------------------------------------
#
# Communication function; assignment function
function gtk { print -p $1; read -p GTK; }
function define { $2 "$3"; eval $1=$GTK; }

# Start GTK-server in STDIN mode
gtk-server -stdin |&

# Check and open GTK library first
define AVAIL gtk "gtk_server_require libgtk-x11-2.0.so"
if [[ $AVAIL != "ok" ]]
then
    echo "GTK 2.x not found on your system!"
    gtk "gtk_server_exit"
    exit
fi

# Define the GTK functions we need
gtk "gtk_server_define gtk_init NONE NONE 2 NULL NULL"
gtk "gtk_server_define gtk_window_new delete-event WIDGET 1 LONG"
gtk "gtk_server_define gtk_window_set_title NONE NONE 2 WIDGET STRING"
gtk "gtk_server_define gtk_window_set_position NONE NONE 2 WIDGET LONG"
gtk "gtk_server_define gtk_table_new NONE WIDGET 3 LONG LONG BOOL"
gtk "gtk_server_define gtk_container_add NONE NONE 2 WIDGET WIDGET"
gtk "gtk_server_define gtk_button_new_with_label clicked WIDGET 1 STRING"
gtk "gtk_server_define gtk_table_attach_defaults NONE NONE 6 WIDGET WIDGET LONG LONG LONG LONG"
gtk "gtk_server_define gtk_check_button_new_with_label clicked WIDGET 1 STRING"
gtk "gtk_server_define gtk_entry_new activate WIDGET 0"
gtk "gtk_server_define gtk_widget_show_all NONE NONE 1 WIDGET"
gtk "gtk_server_define gtk_entry_get_text NONE STRING 1 WIDGET"

# Now define GUI program
gtk "gtk_init NULL NULL"
define WINDOW gtk "gtk_window_new 0"
gtk "gtk_window_set_title $WINDOW 'This is a title'"
gtk "gtk_window_set_position $WINDOW 1"
define TABLE gtk "gtk_table_new 10 10 1"
gtk "gtk_container_add $WINDOW $TABLE"
define BUTTON gtk "gtk_button_new_with_label 'Click here!'"
gtk "gtk_table_attach_defaults $TABLE $BUTTON 5 9 7 9"
define CHECK gtk "gtk_check_button_new_with_label 'Check \t this \n out!'"
gtk "gtk_table_attach_defaults $TABLE $CHECK 1 6 1 2"
define ENTRY gtk "gtk_entry_new"
gtk "gtk_table_attach_defaults $TABLE $ENTRY 1 6 3 4"
gtk "gtk_widget_show_all $WINDOW"

# Mainloop
while [[ $EVENT != $BUTTON ]]
do
    define EVENT gtk "gtk_server_callback WAIT"

    if [[ $EVENT = $ENTRY ]]
    then
	gtk "gtk_entry_get_text $ENTRY"
	print $GTK
    fi
done

# Exit GTK
gtk "gtk_server_exit"