credits_dialog.c

Go to the documentation of this file.

#include <stdio.h>

#include <Xm/Xm.h>
#include <Xm/MwmUtil.h> 
#include <Xm/PushB.h>
#include <Xm/BulletinB.h>
#include <Xm/Frame.h>
#include <Xm/Label.h>
#include <Xm/DrawingA.h>

#include "../../config.h"
#include "util.h"
#include "credits_dialog.h"


/* local variables */
static Widget credits_dialog = NULL;


static void
on_credits_dialog_close_button_clicked (Widget w, XtPointer client_data, XtPointer call_data)   
{
        XtUnmanageChild (credits_dialog);
}


static void
create_credits_dialog (Widget parent)
{
        Widget credits_dialog_drawing_area;
        Widget credits_dialog_frame;
        Widget credits_dialog_close_button;
        Widget credits_dialog_label;
        Arg args[10];
        XmString xmstrings[10];
        XmFontList fontlist;
        int n;

        /* Create a BulletinBoard type dialog. */
        n=0;
        XtSetArg (args[n], XmNtitle, "Credits");
        n++;
        XtSetArg( args[n], XmNdeleteResponse, XmDO_NOTHING);
        n++;
        XtSetArg (args[n], XmNmwmFunctions,
                MWM_FUNC_RESIZE|MWM_FUNC_MOVE|MWM_FUNC_MINIMIZE|MWM_FUNC_MAXIMIZE);
        n++;  
        XtSetArg( args[n], XmNbackground, get_pixel ("gray"));
        n++;
        credits_dialog = XmCreateBulletinBoardDialog (parent, "credits_dialog", args, n);
        /* Create a drawing area. */
        XtSetArg (args[0], XmNbackground, get_pixel ("gray"));
        credits_dialog_drawing_area = XtCreateManagedWidget ("credits_dialog_drawing_area",
                xmDrawingAreaWidgetClass, credits_dialog, args, 1);
        /* Create a frame around the drawing area. */
        XtSetArg (args[0], XmNshadowThickness, 5);
        XtSetArg (args[1], XmNshadowType, XmSHADOW_OUT);
        credits_dialog_frame = XtCreateManagedWidget ("credits_dialog_frame", xmFrameWidgetClass,
                credits_dialog_drawing_area, args, 2);
        /* Create a "Close" button. */
        XtSetArg (args[0], XmNforeground, get_pixel ("black"));
        XtSetArg (args[1], XmNbackground, get_pixel ("gray"));
        fontlist = get_fontlist (parent, "-adobe-helvetica-bold-r-normal--14-140-75-75-p-82-iso8859-1");
        XtSetArg (args[2], XmNfontList, fontlist);
        xmstrings[0] = XmStringCreateSimple ("Close");
        XtSetArg (args[3], XmNlabelString, xmstrings[0]);
        XtSetArg (args[4], XmNshowAsDefault, 1);
        XtSetArg (args[5], XmNy, 200);
        XtSetArg (args[6], XmNx, 155);
        credits_dialog_close_button = XtCreateManagedWidget
                (
                        "credits_dialog_close_button",
                        xmPushButtonWidgetClass,
                        credits_dialog_drawing_area,
                        args,
                        7
                );
        XtAddCallback (credits_dialog_close_button, XmNactivateCallback,
                on_credits_dialog_close_button_clicked, NULL);
        XmStringFree (xmstrings[0]);
        XmFontListFree (fontlist);
        /* Create the credits dialog text label. */
        XtSetArg (args[0], XmNalignment, XmALIGNMENT_BEGINNING);
        XtSetArg (args[1], XmNtraversalOn, False);
        XtSetArg (args[2], XmNmarginHeight, 10);
        XtSetArg (args[3], XmNmarginWidth, 10);
        XtSetArg (args[4], XmNrecomputeSize, True);
        XtSetArg (args[5], XmNforeground, get_pixel ("black"));
        XtSetArg (args[6], XmNbackground, get_pixel ("gray"));
        xmstrings[0] = create_credits_dialog_xmstring ();
        XtSetArg (args[7], XmNlabelString, xmstrings[0]);
        fontlist = get_fontlist (parent, "-adobe-helvetica-medium-r-normal--14-140-75-75-p-77-iso8859-1");
        XtSetArg (args[8], XmNfontList, fontlist);
        credits_dialog_label = XtCreateManagedWidget
                (
                        "credits_dialog_label",
                        xmLabelWidgetClass,
                        credits_dialog_frame,
                        args,
                        9
                );
        XmStringFree (xmstrings[0]);
        XmFontListFree (fontlist);

}


static XmString
create_credits_dialog_xmstring ()
{
        XmString xms;
        XmString nxt;
        XmString lst;

        lst = XmStringCreateLtoR ("Written by:\n", XmSTRING_DEFAULT_CHARSET);
        nxt = XmStringCreateLtoR ("Bert Timmerman <bert.timmerman@xs4all.nl>\n", XmSTRING_DEFAULT_CHARSET);
        xms = XmStringConcat (lst, nxt);
        XmStringFree (lst);
        XmStringFree (nxt);
        nxt = xms;
        /* The next entry goes in here. */
        lst = XmStringCreateLtoR ("\n", XmSTRING_DEFAULT_CHARSET);
        xms = XmStringConcat (xms, lst);
        XmStringFree (lst);
        XmStringFree (nxt);
        return (xms);
}


void
show_credits_dialog ()
{
        if (!credits_dialog)
        {
                create_credits_dialog (shell);
        }
        XtManageChild (credits_dialog);
}


/* EOF */