Next Previous Contents

3. Some Examples

At this point you would probably like to see an example of the Hello World variety, so here is our very own


    variable win = gtk_window_new(GTK_WINDOW_TOPLEVEL);
    () = g_signal_connect(win, "destroy", &gtk_main_quit);

    variable button = gtk_button_new_with_label("Howdy: Press Me to Quit!");

    () = g_signal_connect_swapped(button, "clicked", &gtk_widget_destroy, win);

This script may be executed in any application which embeds an S-Lang interpreter endowed with the capacity to import() modules. The slsh shell is one such program, which if invoked on Unix/Linux (assuming you've installed SLgtk) as follows
        unix%  slsh ./
should raise on your display an image which looks something like:

The next example shows how to use the powerful Gtk font selector, and is taken directly from the SLgtk examples/ sample code.
    static variable window = NULL;

    define display_selection (widget, fs)
       variable s = gtk_font_selection_dialog_get_font_name (fs);
       vmessage ("Currently Selected Font: %s\n", s);
       gtk_widget_destroy (fs);

    define create_fontsel (test)
       if (window == NULL) {

        window = gtk_font_selection_dialog_new ("Font Selection Dialog");
        gtk_window_set_position (window, GTK_WIN_POS_MOUSE);

        () = g_signal_connect (window,"destroy",&gtk_widget_destroyed,&window);
        () = g_signal_connect (
                        "clicked", &display_selection,window);

        test.lower = gtk_font_selection_dialog_get_cancel_button(window);
        () = g_signal_connect(test.lower,"clicked",&display_selection,window);

       if (gtk_widget_visible (window))
        gtk_widget_destroy (window);
        gtk_widget_show (window);

Note that a wealth of sample guilets are packaged within the SLgtk distribution. The examples directory alone contains more than than 4000 lines of code, in roughly 40 working guilets (largely adaptations from testgtk.c packaged with Gtk), while the packages directory contains the vwhere() guilet and supporting scripts.

Next Previous Contents