This chapter shows you how to use what you learned about dtksh in Chapter 1. The two simple scripts described here should give you a good start at writing your own scripts. This script creates a bulletin board widget within which a push button widget is placed. The script is kept simple by not including any callbacks. The second script includes a callback. Here's the first script: #!/usr/dt/bin/dtksh XtInitialize TOPLEVEL dttest1 Dtksh $0XtInitialize XtSetValues $TOPLEVEL title:“dttest1”XtSetValues XtCreateManagedWidget BBOARD bboard XmBulletinBoard $TOPLEVEL \ resizePolicy:RESIZE_NONE height:150 width:250\ background:SkyBlueXtCreateManagedWidget XtCreateManagedWidget BUTTON pushbutton XmPushButton $BBOARD \ XtCreateManagedWidget background:goldenrod \ foreground:MidnightBlue \ labelString:”Push Here” \ height:30 width:100 x:75 y:60 shadowThickness:3 XtRealizeWidget $TOPLEVELXtRealizeWidgetXtMainLoop XtMainLoop Figure 2-1 shows the window that the first script produces.

The first line of the script: #!/usr/dt/bin/dtksh tells the operating system that this script should be executed using /usr/dt/bin/dtksh rather than the standard shell. The next line initializes the Xt Intrinsics.initialize XtInitialize TOPLEVEL dttest1 Dtksh $0 The name of thetoplevel widget widgettoplevel top-level widget is saved in the environment variable $TOPLEVEL, the shell widget name is dttest1, the application class name is Dtksh, and the application name is given by the dtksh variable $0. The next line sets the title resource to the name of the script. XtSetValues $TOPLEVEL title:”dttest1” Notice that there is no space between the colon after the resource name (title) and its value. An error message appears if you have a space between them. The next four lines create abulletin board widgetbulletin board bulletin board widget and set some of its resources. XtCreateManagedWidget BBOARD bboard XmBbulletinBoard $TOPLEVEL \ resizePolicy:RESIZE_NONE \ background:SkyBlue\ height:150 width:250 The bulletin board widget's ID is saved in the environment variable $BBOARD. The widget's name is bboard. This name is used by the Xt Intrinsics to set the values of resources that might be named in an external resource file. The widget class is XmBulletinBoard. The bulletin board's parent widget is the widget ID contained in the environment variable $TOPLEVEL. This is the topl- evel widget created by the initializion command in the first line. The \ (backslash) at the end of the line tells dtksh that this command continues on the next line. The next six lines create apushbutton widgetpushbutton push button widget as a child of the bulletin board, and set some of the push button's resources. XtCreateManagedWidget BUTTON pushbutton XmPushButton $BBOARD \ background:goldenrod \ foreground:MidnightBlue \ labelString:”Push Here”\ height:30 width:100 x:75 y:60\ shadowThickness:3 This is basically the same procedure used to create the bulletin board, except that the variable, name, class, and parent are different. The next line causes the toplevel widget and all its children to be realized. XtRealizeWidget $TOPLEVELXtrealizeWidget Finally, theXtMainLoop XtMainLoop command initiates a loop processing of events for the widgets. XtMainLoop In this script, all that happens is the window appears on the display. It stays there until you terminate the script, either by choosing Close on the Window Manager menu or by pressing CTRL C in the terminal window from which you executed the script. To provide a function for the push button so that when it is pressed a message appears in the terminal window and the script terminates, you have to add a callback. Also, you must tell the push button about the existence of this callback. The following is the script with the new code added: #!/usr/dt/bin/dtksh activateCB() { echo “Pushbutton activated; normal termination.” exit 0 } XtInitialize TOPLEVEL dttest2 Dtksh $0 XtSetValues $TOPLEVEL title:”dttest2” XtCreateManagedWidget BBOARD bboard XmBulletinBoard $TOPLEVEL \ resizePolicy:RESIZE_NONE \ background:SkyBlue \ height:150 width:250 XtCreateManagedWidget BUTTON pushbutton XmPushButton $BBOARD \ background:goldenrod \ foreground:MidnightBlue \ labelString:”Push Here”\ height:30 width:100 x:75 y:60 shadowThickness:3 XtAddCallback $BUTTON activateCallback activateCB XtRealizeWidget $TOPLEVEL XtMainLoop The callback is the function activateCB(). You typically add the callback to the push button after it (the push button) has been created: XtAddCallback $BUTTON activateCallback activateCB Now the pushbutton knows about the callback. When you click the push button, the function activateCB() is executed, and the message “Pushbutton activated; normal termination.” appears in the terminal window from which you executed the script. The script is terminated by the call to the function exit 0.