NetNews Usenet Archive 1992 #27

home *** CD-ROM | disk | FTP | other *** search

/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / alt / sources / 2584 < prev next >

Wrap

Internet Message Format | 1992-11-20 | 52.8 KB

Path: sparky!uunet!stanford.edu!morrow.stanford.edu!sep!steve From: steve@sep.Stanford.EDU (Steve Cole) Newsgroups: alt.sources Subject: xtpanel 2.0 - interactive program builder - part 08/10 Followup-To: alt.sources.d Date: 21 Nov 1992 00:34:09 GMT Organization: Stanford Exploration Project Lines: 1268 Distribution: world Message-ID: <1ek061INN194@morrow.stanford.edu> NNTP-Posting-Host: taal.stanford.edu Submitted-by: steve@sep.Stanford.EDU Archive-name: xtpanel/part08 #!/bin/sh # This is part 08 of a multipart archive # ============= xtpanel/help/button ============== if test ! -d 'xtpanel'; then echo 'x - creating directory xtpanel' mkdir 'xtpanel' fi if test ! -d 'xtpanel/help'; then echo 'x - creating directory xtpanel/help' mkdir 'xtpanel/help' fi if test -f 'xtpanel/help/button' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/button (File already exists)' else echo 'x - extracting xtpanel/help/button (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/button' && X X button X Button is the first of the interactive objects. Pressing X the button will cause a specified action to take place. X X button={ label=... value=... name=... action=... } X X name defaults to "button1", "button2" etc. label is the X text that appears on the button. value is the string X value associated with the button. action is an action X that occurs when the button is pressed. X X Assigning a new value to a button does not change the X appearance of the button but it will change the value X used in an action. X X example: X button={ label="Press me" action="PRINT Aargh! I was X pressed" } SHAR_EOF chmod 0664 xtpanel/help/button || echo 'restore of xtpanel/help/button failed' Wc_c="`wc -c < 'xtpanel/help/button'`" test 713 -eq "$Wc_c" || echo 'xtpanel/help/button: original size 713, current size' "$Wc_c" fi # ============= xtpanel/help/toggle ============== if test -f 'xtpanel/help/toggle' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/toggle (File already exists)' else echo 'x - extracting xtpanel/help/toggle (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/toggle' && X X toggle X A toggle object is similar to a button except that it can X be toggled between its on (highlighted) and off states, X while a button returns to its off state immediately. The X value of a toggle object is blank when the toggle is in X its off state. SHAR_EOF chmod 0664 xtpanel/help/toggle || echo 'restore of xtpanel/help/toggle failed' Wc_c="`wc -c < 'xtpanel/help/toggle'`" test 300 -eq "$Wc_c" || echo 'xtpanel/help/toggle: original size 300, current size' "$Wc_c" fi # ============= xtpanel/help/slider ============== if test -f 'xtpanel/help/slider' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/slider (File already exists)' else echo 'x - extracting xtpanel/help/slider (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/slider' && X X slider X A slider lets the user choose a value from a range of X integer or floating point values. Syntax: X X slider={ label=... value=... name=... action=... min=... X max=... format=... width=... height=... } X X A slider object has a label, a slider and a text field X that displays the current slider value, and an "OK" but- X ton to allow the user to trigger the slider's action. X X name defaults to "slider1", "slider2" etc. label appears X above the slider. value is the starting value for the X slider; defaults to the minimum. action: For action X types SYSTEM and PRINT the action occurs when the "ok" X button is pressed. For action type STRING the action X occurs when the slider position changes. X X Assigning a new value to a slider changes the slider X position to match the new value. If the new value string X is not a number (as intepreted by the routine atof() ) X the slider will be set to zero. X X min is the minimum value for the slider; defaults to 0. X max is the maximum value for the slider; defaults to 1. X X format is the format with which the slider label and its X internal string will be printed. The slider value is X stored internally as a floating point number; the default X value for format is %f, which prints the value with five X decimal places. You can specify a different format, X according to the format specification for the C program- X ming language. To obtain in integer-only slider, use a X format of %.0f (the 0 indicates no digits after the X decimal point). X X width and height are the lengths of the major and minor X axes of the slider. By default, sliders are oriented hor- X izontally. This can be changed by using the orientation X parameter described below in the MISCELLANEOUS PARAMETERS X section. X X example X slider={ label=Velocity min=1000 max=4000 value=2000 X format=%4.0f } SHAR_EOF chmod 0664 xtpanel/help/slider || echo 'restore of xtpanel/help/slider failed' Wc_c="`wc -c < 'xtpanel/help/slider'`" test 2132 -eq "$Wc_c" || echo 'xtpanel/help/slider: original size 2132, current size' "$Wc_c" fi # ============= xtpanel/help/scrollbar ============== if test -f 'xtpanel/help/scrollbar' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/scrollbar (File already exists)' else echo 'x - extracting xtpanel/help/scrollbar (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/scrollbar' && X X scrollbar X A scrollbar object is similar to a slider, except that it X has no label or ok button. A scrollbar's actions are per- X formed whenever the scrollbar is changed. SHAR_EOF chmod 0664 xtpanel/help/scrollbar || echo 'restore of xtpanel/help/scrollbar failed' Wc_c="`wc -c < 'xtpanel/help/scrollbar'`" test 198 -eq "$Wc_c" || echo 'xtpanel/help/scrollbar: original size 198, current size' "$Wc_c" fi # ============= xtpanel/help/choice ============== if test -f 'xtpanel/help/choice' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/choice (File already exists)' else echo 'x - extracting xtpanel/help/choice (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/choice' && X X choice X A choice object is a set of toggle buttons. Each button X may be set on or off, but only one button may be active X at a time. Syntax: X X choice={ label=... value=... name=... action=... item=... X itemlist=... } X X The choice object consists of a text label and a set of X buttons. The value of the object on output is set to the X value associated with the active button. X X name defaults to "choice1", "choice2" etc. label X appears adjacent to the buttons. value is the initial X value associated with the choice. It must match the value X of one of the buttons, or by default it is set to the X value of the first button. action is an action that X occurs when a button is pressed. X X Assigning a new value to a choice changes the choice to X match the new value. If the new value does not match any X item's value the choice will be unchanged. X X item and itemlist are used to describe the buttons con- X tained in a choice. You can either specify buttons one at X a time with item, or in groups with itemlist. See the X detailed descriptions of item and itemlist below. There X is no limit on the number of items or itemlists used in a X choice object. X X example: X choice={ label="english colors" action="PRINT use $val " X item={ label=red } item={ label=green } item={ label=blue } X } SHAR_EOF chmod 0664 xtpanel/help/choice || echo 'restore of xtpanel/help/choice failed' Wc_c="`wc -c < 'xtpanel/help/choice'`" test 1537 -eq "$Wc_c" || echo 'xtpanel/help/choice: original size 1537, current size' "$Wc_c" fi # ============= xtpanel/help/list ============== if test -f 'xtpanel/help/list' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/list (File already exists)' else echo 'x - extracting xtpanel/help/list (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/list' && X X list X A list of items; the user clicks on one of the items to X select it. Syntax: X X list={ label=... value=... name=... action=... item=... X itemlist=... } X X The list object has a text label and a list of items. X X name defaults to "list1", "list2" etc. label appears X adjacent to the list. value is the initial value associ- X ated with the list. It must match the value of one of the X list items, or it defaults to be the same as the value of X the first list item. action occurs when an item is X selected. X X item and itemlist are used to describe the items con- X tained in a list. You can either specify items one at a X time with item, or in groups with itemlist. See the X detailed descriptions of item and itemlist below. There X is no limit on the number of items or itemlists used in a X list object. X X Assigning a new value to a list changes the list value to X match the new value. If the new value does not match any X item's value the list will be unchanged. X X example: X list={ label="german color" action="PRINT benutze $val " X item={ label=red value=rot } X item={ label=green value=gruen } X item={ label=blue value=blau } X } SHAR_EOF chmod 0664 xtpanel/help/list || echo 'restore of xtpanel/help/list failed' Wc_c="`wc -c < 'xtpanel/help/list'`" test 1384 -eq "$Wc_c" || echo 'xtpanel/help/list: original size 1384, current size' "$Wc_c" fi # ============= xtpanel/help/menubutton ============== if test -f 'xtpanel/help/menubutton' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/menubutton (File already exists)' else echo 'x - extracting xtpanel/help/menubutton (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/menubutton' && X X menubutton X A button with a pulldown menu. Syntax: X X menubutton={ label=... value=... name=... action=... X item=... itemlist=... } X X name defaults to "menubutton1", "menubutton2" etc. label X appears on the button. value is the initial value asso- X ciated with the menu. It must match the value of one of X the menu items, or it defaults to be the same as the X value of the first menu item. action occurs when a menu X item is selected. X X item and itemlist are used to describe the options con- X tained in a menu. You can either specify buttons one at a X time with item, or in groups with itemlist. See the X detailed descriptions of item and itemlist below. There X is no limit on the number of items or itemlists used in a X menubutton object. X X Assigning a new value to a menubutton changes the menu- X button to match the new value. If the new value does not X match any item's value the menubutton will be unchanged. X X example X menubutton={ label="french color" action="PRINT utilisez $val " X item={ label=red value=rouge } X item={ label=green value=vert } X item={ label=blue value=bleu } X } SHAR_EOF chmod 0664 xtpanel/help/menubutton || echo 'restore of xtpanel/help/menubutton failed' Wc_c="`wc -c < 'xtpanel/help/menubutton'`" test 1326 -eq "$Wc_c" || echo 'xtpanel/help/menubutton: original size 1326, current size' "$Wc_c" fi # ============= xtpanel/help/item ============== if test -f 'xtpanel/help/item' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/item (File already exists)' else echo 'x - extracting xtpanel/help/item (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/item' && X X item X Item is used to specify a single item for a choice, menu X or list. Syntax: X X item={ label=... value=... } X X label is the label that appears on the screen, as the X name of the button (for choice) or on the menu or list. X Defaults to "item1", "item2" etc. value is the value X that is set in the parent object when this item is X selected. Defaults to be the same as label. Item is pre- X ferred over itemlist when the text displayed on the X screen for an item and that used for its value differ. X X example: X item={ label=Two value=2 } SHAR_EOF chmod 0664 xtpanel/help/item || echo 'restore of xtpanel/help/item failed' Wc_c="`wc -c < 'xtpanel/help/item'`" test 654 -eq "$Wc_c" || echo 'xtpanel/help/item: original size 654, current size' "$Wc_c" fi # ============= xtpanel/help/itemlist ============== if test -f 'xtpanel/help/itemlist' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/itemlist (File already exists)' else echo 'x - extracting xtpanel/help/itemlist (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/itemlist' && X X itemlist X Itemlist is used to specify several items for a choice, X menu or list. Syntax: X X itemlist={ list=... separator=... } X X list is a single string containing a list of items. The X string will be parsed to obtain the individual items. The X label and value of each item will be the same, set to the X string taken from the list. Thus itemlist is not X appropriate when the text displayed on the screen for an X item (the label) and that used for the value are to X differ. separator is a string of characters that is used X to separate different items in the list string. Defaults X to separator=" " (the blank character.) X X examples: X itemlist={ list="red white blue" } X itemlist={ list=`ls -aF` separator=" \n" } SHAR_EOF chmod 0664 xtpanel/help/itemlist || echo 'restore of xtpanel/help/itemlist failed' Wc_c="`wc -c < 'xtpanel/help/itemlist'`" test 847 -eq "$Wc_c" || echo 'xtpanel/help/itemlist: original size 847, current size' "$Wc_c" fi # ============= xtpanel/help/graph ============== if test -f 'xtpanel/help/graph' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/graph (File already exists)' else echo 'x - extracting xtpanel/help/graph (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/graph' && X X graph X A graph is a composite object, made up of a number of X scrollbars. Syntax: X X graph={ nsamp=... label=... value=... name=... action=... X min=... max=... format=... width=... height=... } X X A graph object has a label, and nsamp scrollbars, each of X which sets the value of one sample in the graph. The X value of a graph is a string containing the sample X values, separated by spaces. X X nsamp number of samples in the graph. name defaults to X "graph1", "graph2" etc. label appears above the graph. X value is the starting value for the graph; defaults to X the minimum. You can specify up to nsamp values in a X blank-separated list. If you specify fewer than nsamp, X the last value specified is re-used as needed. Thus you X can use value=0 to set all samples to zero. action: X Graph objects cannot do PRINT or SYSTEM actions by them- X selves. You must supply another button that uses the X graph's value to perform an action. X X min, max, and format are the same as for sliders. X X width and height are the lengths of the major and minor X axes of the scrollbars in the graph. These are the dimen- X sions of each scrollbar, not the graph as a whole. X X By default, the scrollbars are oriented horizontally. X This can be changed by using the orientation parameter; X see the MISCELLANEOUS PARAMETERS section below. X X Assigning a new value to a graph will change the value of X the samples. You can specify up to nsamp values in a X blank-separated list. If you specify fewer than nsamp, X the last value specified is re-used as needed. X X Holding down the meta key while the cursor is inside a X graph object allows the user to "draw" the graph without X having to press mouse buttons. This drawing can be slow X for graphs with a large number of samples, because of the X number of widgets involved. X X example X graph={ nsamp=100 label="A(t)" min=-100 max=100 value=0 X format=%4.0f } SHAR_EOF chmod 0664 xtpanel/help/graph || echo 'restore of xtpanel/help/graph failed' Wc_c="`wc -c < 'xtpanel/help/graph'`" test 2208 -eq "$Wc_c" || echo 'xtpanel/help/graph: original size 2208, current size' "$Wc_c" fi # ============= xtpanel/help/var ============== if test -f 'xtpanel/help/var' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/var (File already exists)' else echo 'x - extracting xtpanel/help/var (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/var' && X X var X Var is an object that has a value and no screen represen- X tation. X X Syntax: var={ name=... value=... } name defaults to X "var1", "var2" etc. value is the value of the var. X X X Variables can be used for adding arbitrary arguments on X the command line. See the command line syntax below. The X values of var objects may be used in the action of other X objects so that an xtpanel's behaviour can be modified X without changing the script file. Also the value of a var X may be changed by the ASSIGN action. Thus a var can be X used to pass information from one object to another. SHAR_EOF chmod 0664 xtpanel/help/var || echo 'restore of xtpanel/help/var failed' Wc_c="`wc -c < 'xtpanel/help/var'`" test 677 -eq "$Wc_c" || echo 'xtpanel/help/var: original size 677, current size' "$Wc_c" fi # ============= xtpanel/help/params ============== if test -f 'xtpanel/help/params' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/params (File already exists)' else echo 'x - extracting xtpanel/help/params (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/params' && X MISCELLANEOUS PARAMETERS X In addition to the parameters described above, there are a X number of general parameters that apply to many objects that X customize the appearance of the object. These are listed X below, along with a list for each of the objects it can be X applied to. These general parameters can also be modified by X xtpanel using the SET action. See the section on ACTIONS. X X X height height of object, in pixels. X X width width in pixels. Height and width can be used for X most objects. X X foreground X foreground color. Colors are appropriate for most X object types. X X background X background color X X borderColor X border color. X X font text font. Appropriate for message objects only. X X orientation X for boxes, scrollbars, choice objects. Choices are X horizontal and vertical. X X bitmap for message, button, and toggle objects. Specify a X file name. The bitmap will be displayed in place X of the label. X X editType for text objects only, to indicate whether they X are read-only are not. Choices are read (read- X only), append (can add to text but not modify X existing text), edit (read-write). X X These parameters are just some of the many X resources defined for Athena widgets. In the X future we hope xtpanel will provide a more general X method that allows the user to access all X resources, not just those on this list. SHAR_EOF chmod 0664 xtpanel/help/params || echo 'restore of xtpanel/help/params failed' Wc_c="`wc -c < 'xtpanel/help/params'`" test 1689 -eq "$Wc_c" || echo 'xtpanel/help/params: original size 1689, current size' "$Wc_c" fi # ============= xtpanel/help/actions ============== if test -f 'xtpanel/help/actions' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/actions (File already exists)' else echo 'x - extracting xtpanel/help/actions (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/actions' && X ACTIONS X An action is a command performed when a user interface X object has changed its state. e.g. a button is pushed, a X list item is chosen, a slider is moved. If more than one X action is specified for an object then the separate actions X are performed in the order in which they are specified in X the script file. X X There are seven basic types of action NONE, QUIT, SYSTEM, X PRINT, STRING, ASSIGN, and SET. X X If no action is specified (or the action is specified as X "NONE") the action type is NONE. In this case an object will X just maintain its string representation. For dialogs, the X string is the contents of the text field; for sliders, the X slider value; for choice, menubutton and list objects, the X value associated with the selected item. When an object with X action=NONE is modified, its string is kept up to date, but X nothing else happens. X X An action type of QUIT, specified as ACTION=QUIT, will cause X the xtpanel program to quit when the object is interacted X with. The simple quit button is written as: X button={ label=QUIT action=QUIT } X X The next four action types (SYSTEM, PRINT, STRING and X ASSIGN) are more complicated. Each uses the format speci- X fied in the action command to generate a string. If the X action is SYSTEM, then that string is executed. If the X action type is PRINT then the string is printed to the stan- X dard output. If the action is STRING then the string is X stored as the internal string representation of the object. X X If the action type is ASSIGN the value of the other object X is set to the string. Additionally the screen representation X of the object is updated to reflect the new value (if it X makes sense to do so). For example if the value of a dialog X is updated the text field of the dialog will contain the X updated string. If a slider is updated the slider thumb will X be moved to the corresponding position. X X The format specified can contain the names of objects pre- X ceded by a dollar "$" sign. The value of the string associ- X ated with the object is substitued in the generated string. X The special symbol "$val" is used to refer to the string X associated with the current object. An object name can be X enclosed in brackets to avoid syntactic ambiguity. You can X use "$(val)" or "$val", the first form is recommended. If X you do not enclose the name in brackets it will be assumed X to end at the next space, dollar sign or quote. You should X give an object a name if you intend to use its string in the X action of another object. A double dollar sign "$$" is used X to generate a single dollar in the generated string. X X If a format contains a command enclosed in backquotes then X the output produced by running the command will be subsi- X tuted in the generated string. The command will be run when X the action takes place. i.e. if a backquoted command is X present in the action for a button then the command will be X run each time the button is pressed. Note that the evalua- X tion of the command takes place after the substitution of X object values, thus the backquoted command evaluated at X action time may contain an evaluated object value. X X The ASSIGN action is special because the word immediately X following the word ASSIGN (separated by blanks) is the name X of an object that will have its value modified. The format X is thus assumed to start at the second word after ASSIGN. X X The SET action is another special case. The set action X allows you to modify not the value of an object, but one of X its resources, such as foreground or background color, font, X orientation, etc. The word immediately following the word X SET is the name of the object; the next word is the resource X you wish to set. Following that is the resource specifica- X tion. See the section above on MISCELLANEOUS PARAMETERS to X see which attributes can be changed with the SET action. X X An action type of PRINT is used for any action command that X begins with PRINT (It must be in upper case and start at the X first character of the action string). An action type of X STRING is used for any command that begins with STRING. An X action type of ASSIGN is used for any command that begins X with the word ASSIGN. An action type of SET is used for any X command that begins with SET. An action type of SYSTEM is X used for any command that doesn't begin with QUIT, STRING, X PRINT, SET or ASSIGN or if it begins with SYSTEM. X X X Following are two examples of using actions. X X Here is a choice object that uses its value as a parameter X for an imaginary system command, showcolor: X X choice={ label=colors value="255 0 0" action="showcolor -rgb $(val)" X item={ label=red value="255 0 0" } X item={ label=green value="0 255 0" } X item={ label=blue value="0 0 255" } X } X X In this next example, the list item has no action specified. X Actions default to type NONE; the list will maintain a X string containing the value of the selected list item, but X will do nothing more. Here a separate button is used to do X something with the list's output: X X message={ label="press button to find out which item is selected" } X list={ label=numbers name=listout X itemlist={ list="1 2 3" X } X button={ label="press for answer" X action="PRINT list selection is $(listout)" } X X In this example the assign action is used to reset the value X of a dialog to a known string (fred). The reset button X assigns the string to the dialog. The dialog itself has two X actions, the first prints the value of the text field and X the second action quits xtpanel. X X dialog={ label=dialog value="fred" X action="PRINT I am $(val)" X action=QUIT X } X X button={ label=RESET action="ASSIGN dialog fred" } X X In the final example the user can select a file from all the X ".ps" files in the current directory. The file is then X viewed with the ghostview program: X X button={ label=QUIT action=QUIT } X list={ label="Choose a file" action="ghostview $(val)" X itemlist={ list=`echo *.ps` } X } SHAR_EOF chmod 0664 xtpanel/help/actions || echo 'restore of xtpanel/help/actions failed' Wc_c="`wc -c < 'xtpanel/help/actions'`" test 6610 -eq "$Wc_c" || echo 'xtpanel/help/actions: original size 6610, current size' "$Wc_c" fi # ============= xtpanel/help/boxes ============== if test -f 'xtpanel/help/boxes' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/boxes (File already exists)' else echo 'x - extracting xtpanel/help/boxes (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/boxes' && X BOXES X Several objects are provided to manage the appearance of the X panel. These box objects group other objects into boxes that X are oriented either vertically or horizontally. In a verti- X cally oriented box, the objects are arranged in a single X column, and then a box is drawn around them. A vertically X oriented box (vbox) is specified as follows: X X vbox={ name= X objecttype={ parameter=value ... } X objecttype={ parameter=value ... } X } X X All of the objects bounded by the starting and ending braces X of a box will be grouped together in the box. In addition to X vbox, there is hbox, which is oriented horizontally, and X vpane and hpane, where the objects within the box are X separated by movable partitions (these use the Athena paned X widget). There is also box and pane; these default to vbox X and vpane, but could be overridden from a resource file. X X Boxes can be nested. In this way, fairly precise control X over a panel's layout is obtained. X X Box objects have only a single parameter, name. Two special X names are recognized by the resource file; boxes with X name=noborder will have no border drawn around them. If you X use boxes extensively to arrange objects on the panel, using X noborder can help avoid the tunnel-like appearance of multi- X ple nested boxes. Also, one of the examples makes use of a X special box name squeezebox. This name triggers definitions X in the resource file that "squeeze out" the annotation of X sliders, choices, and buttons that are grouped together in X such a box. When a number of sliders are squeezed together X in this way, the result is a seemingly new object that lets X the user manipulate the data samples of a function. See the X "sliderbox" examples in the panel brought up doing X "rundemos" in the xtpanel source directory. SHAR_EOF chmod 0664 xtpanel/help/boxes || echo 'restore of xtpanel/help/boxes failed' Wc_c="`wc -c < 'xtpanel/help/boxes'`" test 1967 -eq "$Wc_c" || echo 'xtpanel/help/boxes: original size 1967, current size' "$Wc_c" fi # ============= xtpanel/help/copyright ============== if test -f 'xtpanel/help/copyright' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/copyright (File already exists)' else echo 'x - extracting xtpanel/help/copyright (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/copyright' && X COPYRIGHT X Although xtpanel is not in the public domain, its copyright X is not very restrictive. Here is the official xtpanel copy- X right notice (the one that all the source files tell you X about): X X Copyright 1992 the Board of Trustees of the Leland Stanford X Junior University. All Rights Reserved. Permission is X hereby given to use, copy, modify, and distribute this X software provided that (1) copyright and proprietary notices X are retained in each copy, (2) any files which are modified X are identified as such, and (3) you do not copy or distri- X bute the software for payment or for commercial use without X prior written consent from Stanford. STANFORD MAKES NO X REPRESENTATIONS OR WARRANTIES OF ANY KIND concerning this X software or its use. SHAR_EOF chmod 0664 xtpanel/help/copyright || echo 'restore of xtpanel/help/copyright failed' Wc_c="`wc -c < 'xtpanel/help/copyright'`" test 843 -eq "$Wc_c" || echo 'xtpanel/help/copyright: original size 843, current size' "$Wc_c" fi # ============= xtpanel/help/about ============== if test -f 'xtpanel/help/about' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/about (File already exists)' else echo 'x - extracting xtpanel/help/about (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/about' && button={ label="Dismiss" action=QUIT } vbox={ name=noborder message={ value='xtpanel is written by: ' } hbox={ name=noborder vbox={ message={ name=stevebitmap } message={ value='Steve Cole' } message={ value='steve@sep.stanford.edu' } } vbox={ message={ name=davebitmap } message={ value='Dave Nichols' } message={ value='dave@sep.stanford.edu' } } } text={ value=' Stanford Exploration Project, Department of Geophysics Stanford University, Stanford, CA, 94305-2215 X We welcome bug reports, suggestions, interesting scripts, code to support new widgets, etc. ' height=150 width=750 } } SHAR_EOF chmod 0664 xtpanel/help/about || echo 'restore of xtpanel/help/about failed' Wc_c="`wc -c < 'xtpanel/help/about'`" test 616 -eq "$Wc_c" || echo 'xtpanel/help/about: original size 616, current size' "$Wc_c" fi # ============= xtpanel/help/commandline ============== if test -f 'xtpanel/help/commandline' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/commandline (File already exists)' else echo 'x - extracting xtpanel/help/commandline (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/commandline' && X COMMAND LINE INTERFACE X On the command line, objects are specified in the following X format: X X xtpanel -objecttype value value ... -objecttype value... X X The values must be specified in a prescribed order, as X described below for each object type. You can specify as X many of the values for a given object as you wish; the "-" X on the object type is the signal to xtpanel to stop reading X parameters for one object and begin the next. But in order X to specify a value for one parameter, you MUST specify X values all those that precede it, in exactly the order X specified here. X X The values for each object are described in the section X above named DESCRIPTION OF OBJECTS AND SCRIPT SYNTAX. Here X we simply list them in the order that they must be specified X from the command line. X X -message [value] X -text [action name value width height editType] X -dialog [label action name value] X -button [label action name value] X -toggle [label action name value] X -slider [label action name value min max format width height] X -scrollbar [action name value min max format width height] X -choice [label action name value numchoice label value ...] X -menubutton [label action name value numchoice label value ...] X -list [label action name value numchoice label value ...] X -graph [nsamp label action name value min max format width height] X -var [name value] X -quit X X For the multiple-choice objects (choice, menubutton, and X list), you must specify a label (which gets displayed on the X screen) and a value (used on output) for each item, and you X must precede these by the number of items in the choice, X menubutton, or list (which is not required in a script). X There is no analog to the script "itemlist" object, which X lets you specify only one string for each item instead of X two. X X Note that the box objects described above (see BOXES), used X to group objects into horizontally or vertically oriented X boxes, are not available from the command line. X X COMMAND LINE EXAMPLES X The following examples illustrate the use of xtpanel from X the command line: X X This example contains a quit button and a message: X X xtpanel -quit -message "this is a message" X X This example contains a choice: X X xtpanel -choice "this is a choice" 'PRINT choice is $val' name 1 X 3 one 1 two 2 three 3 X X This example contains a slider and a button that outputs the X slider's value: X X xtpanel -quit -slider "this is a slider" 'PRINT slider value is $val' X name 5 0 10 "%.0f" 100 20 -button "press me" X 'PRINT slider value is $name' X X GENERAL COMMAND LINE OPTIONS X -file filename X Read in the script file "filename". Xtpanel also looks X for a script file on stdin. The filename specified in X this way is searched for in a number of possible direc- X tories. If the environment variable "XTPANELPATH" is X set it is assumed to be a colon separated list of X directories to be searched. If the file is not found in X these directories the program will search a directory X called .xtpanel in the users home directory and then X the system xtpanel directory. X X If the environment variable is not set the program will X search the current directory, followed by ~/.xtpanel X followed by the system xtpanel directory. X X The system directory is specified in the Makefile used X to compile the xtpanel program. At compilation time on X this system it was set to /usr/local/lib/X11/xtpanel. X X X -cpp [cppargs] X If the -cpp flag is specified then all files read using X the "-file" flag will be passed though the C- X preprocessor before being parsed. The preprocessor will X be invoked using any command line arguments that look X like they might be C-preprocessor arguments. Currently X this is interpreted as being any argument that starts X with "-I" or "-D". Note the standard input is never X passed through cpp. If you wish to to this you should X pipe the output of cpp into xtpanel yourself. X X This option can be very useful in designing system wide X xtpanel scripts where a few key words may be changed at X each invocation. These words may be redefined with "- X Doldname=newname". The -cpp option can also be used to X define macros for repeated parts of script files or X even including prebuilt pieces of script files from X elsewhere. The following example illustrates some of X these possibilities. X X #ifndef NAME X #define NAME "default name" X #endif X X #define mkslid(VAL) slider={ label="" min=0 max=100 value=VAL X width=300 height=25 format="%.0f" action="STRING $val" } X X label={ value=NAME } X X mkslid(0) X mkslid(10) X mkslid(20) X X X -help X Invokes a series of xtpanel scripts that present infor- X mation about xtpanel, mostly taken from this manual X page, in an interactive, menu-driven form. X X X -tty Read a script from the terminal. Generally not recom- X mended; it is better to save the script in a file X first. If this option is not set the program will not X accept input from standard input if it is a terminal. X You can redirect standard input and pipe data to X xtpanel without setting this option. SHAR_EOF chmod 0664 xtpanel/help/commandline || echo 'restore of xtpanel/help/commandline failed' Wc_c="`wc -c < 'xtpanel/help/commandline'`" test 5812 -eq "$Wc_c" || echo 'xtpanel/help/commandline: original size 5812, current size' "$Wc_c" fi # ============= xtpanel/help/syntax ============== if test -f 'xtpanel/help/syntax' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/syntax (File already exists)' else echo 'x - extracting xtpanel/help/syntax (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/syntax' && X SCRIPT SYNTAX DETAILS X The general format for specifying an object in a script file X is: X X objecttype={ parameter=value ... } X X Note that no spaces are allowed between the objecttype and X the "{". X X A line with an exclamation "!" in column one is treated as a X comment line, the rest of the line will be ignored. X X Each "value" can take one of four forms: X X X 1) A single word. X e.g. label=fred X X X 2) zero or more words enclosed in single quotes X e.g. label='fred in quotes' X The quotes are stripped before the value is stored. Two X consecutive single quotes within the quotes will produce X a single quote in the stored value. Any other type of X quotes pass through unchanged. X e.g. ' ''fred'' is happy' is stored as -> 'fred' is happy<- X '"fred" is happy' is stored as ->"fred" is happy<- X X X 3) zero or more words enclosed in double quotes X e.g. label="fred in quotes" X The quotes are stripped before the value is stored. Two X consecutive double quotes within the quotes will produce X one double quote in the stored value. Any other type of X quotes pass through unchanged. X e.g. " ""fred"" is happy" is stored as -> "fred" is happy<- X " ""fred"" is 'happy'" is stored as -> "fred" is 'happy'<- X Within either single or double quotes the following X transformations are applied to handle newlines: X newline -> newline X backslash newline -> is removed X \n -> newline X X X 4) zero or more words enclosed in backquotes. X e.g. label=`echo my name is fred` X The value stored is the output produced by running the X command using the user's shell. Any trailing whitespace is X stripped from the output. X In this example the value stored is ->my name is fred<- X X Note the special case of a backquoted string within a X quoted action. See actions below. SHAR_EOF chmod 0664 xtpanel/help/syntax || echo 'restore of xtpanel/help/syntax failed' Wc_c="`wc -c < 'xtpanel/help/syntax'`" test 2094 -eq "$Wc_c" || echo 'xtpanel/help/syntax: original size 2094, current size' "$Wc_c" fi # ============= xtpanel/help/resources ============== if test -f 'xtpanel/help/resources' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/resources (File already exists)' else echo 'x - extracting xtpanel/help/resources (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/resources' && X RESOURCES X All widgets are constructed using the "name" parameter of X the object. The X-toolkit resource mechanism can be used to X control the appearance of an object based on either its X class or its name. The xtpanel objects are constructed from X Xaw widgets as follows: X X X message is a Label widget X X button is a Command widget X X toggle is a Toggle widget X X dialog is a Dialog widget X X text is a Text widget X X scrollbar is a Scrollbar widget. X X slider is a Box containing two Labels and a Scrollbar. X X choice is a Box containing a Label and a number of X Toggles. X X menubutton X is a MenuButton. Attached to it is a SimpleMenu, X with a number of SmeBSB menu entries. X X list is a Box containing a Label and a List. X X graph is a Box containing a number of Scollbars, and X several Label widgets. X X If I have the following xtpanel script file: X X button={ label=QUIT action=QUIT } X X box={ name=bigfont X button={ label=fred action="PRINT fred" } X button={ label=joe name=curs action="PRINT X joe" } } X X and the following resources: X X XTpanel*Command.Font: fixed X XTpanel*bigfont*Command.Font: 8x16 X XTpanel*bigfont*curs.Font: cursor X X Then the quit button will use the "fixed" font, X fred will use "8x16" and joe will use "cursor" X (and thus be unreadable). SHAR_EOF chmod 0664 xtpanel/help/resources || echo 'restore of xtpanel/help/resources failed' Wc_c="`wc -c < 'xtpanel/help/resources'`" test 1669 -eq "$Wc_c" || echo 'xtpanel/help/resources: original size 1669, current size' "$Wc_c" fi # ============= xtpanel/help/examples ============== if test -f 'xtpanel/help/examples' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/examples (File already exists)' else echo 'x - extracting xtpanel/help/examples (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/examples' && X A collection of example scripts is included with xtpanel. Use the command xtpanel-examples to see them. A particularly powerful demo is the "lister" script example, which is a tool for maneuvering through a Unix filesystem and viewing files at any level. SHAR_EOF chmod 0664 xtpanel/help/examples || echo 'restore of xtpanel/help/examples failed' Wc_c="`wc -c < 'xtpanel/help/examples'`" test 258 -eq "$Wc_c" || echo 'xtpanel/help/examples: original size 258, current size' "$Wc_c" fi # ============= xtpanel/help/generator ============== if test -f 'xtpanel/help/generator' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/generator (File already exists)' else echo 'x - extracting xtpanel/help/generator (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/generator' && X The xtpanel generator is a collection of xtpanel scripts that can be used to generate, examine and test xtpanel script files. It is invoked using the command xtpanel-generator. X Using the generator, you can construct panels without having to learn the xtpanel script language or command line interface. The generator builds a script file for you, letting you add any xtpanel object (button, slider, message, dialog, etc.) and specify its attributes, including what should happen when the object is modified. SHAR_EOF chmod 0664 xtpanel/help/generator || echo 'restore of xtpanel/help/generator failed' Wc_c="`wc -c < 'xtpanel/help/generator'`" test 509 -eq "$Wc_c" || echo 'xtpanel/help/generator: original size 509, current size' "$Wc_c" fi # ============= xtpanel/help/help ============== if test -f 'xtpanel/help/help' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/help (File already exists)' else echo 'x - extracting xtpanel/help/help (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/help' && button={ label="Dismiss" action=QUIT } button={ label="About xtpanel" action="xtpanel -file help/about" } menubutton={ label="More help topics=>" X action="ASSIGN textwin `cat /usr/local/lib/X11/xtpanel/help/$val`" item={ label="introduction" value="general" } item={ label="message object" value="message" } item={ label="text object" value="text" } item={ label="dialog object" value="dialog" } item={ label="button object" value="button" } item={ label="toggle object" value="toggle" } item={ label="slider object" value="slider" } item={ label="scrollbar object" value="scrollbar" } item={ label="choice object" value="choice" } item={ label="list object" value="list" } item={ label="menubutton object" value="menubutton" } item={ label="graph object" value="graph" } item={ label="item subobject" value="item" } item={ label="itemlist subobject" value="itemlist" } item={ label="variable object" value="var" } item={ label="Actions" value="actions" } item={ label="Boxes" value="boxes" } item={ label="Miscellanous object parameters" value="params" } item={ label="Script vs. command line" value="scriptvcomm" } item={ label="Script syntax details" value="syntax" } item={ label="Resources" value="resources" } item={ label="Command line interface" value="commandline" } item={ label="Xtpanel generator" value="generator" } item={ label="Xtpanel examples" value="examples" } item={ label="copyright" value="copyright } } text={ name=textwin value=`cat /usr/local/lib/X11/xtpanel/help/general` X height=300 width=750 } SHAR_EOF chmod 0664 xtpanel/help/help || echo 'restore of xtpanel/help/help failed' Wc_c="`wc -c < 'xtpanel/help/help'`" test 1524 -eq "$Wc_c" || echo 'xtpanel/help/help: original size 1524, current size' "$Wc_c" fi # ============= xtpanel/help/help.sed ============== if test -f 'xtpanel/help/help.sed' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/help.sed (File already exists)' else echo 'x - extracting xtpanel/help/help.sed (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/help.sed' && button={ label="Dismiss" action=QUIT } button={ label="About xtpanel" action="xtpanel -file help/about" } menubutton={ label="More help topics=>" X action="ASSIGN textwin `cat SYS_XTPANELDIR/help/$val`" item={ label="introduction" value="general" } item={ label="message object" value="message" } item={ label="text object" value="text" } item={ label="dialog object" value="dialog" } item={ label="button object" value="button" } item={ label="toggle object" value="toggle" } item={ label="slider object" value="slider" } item={ label="scrollbar object" value="scrollbar" } item={ label="choice object" value="choice" } item={ label="list object" value="list" } item={ label="menubutton object" value="menubutton" } item={ label="graph object" value="graph" } item={ label="item subobject" value="item" } item={ label="itemlist subobject" value="itemlist" } item={ label="variable object" value="var" } item={ label="Actions" value="actions" } item={ label="Boxes" value="boxes" } item={ label="Miscellanous object parameters" value="params" } item={ label="Script vs. command line" value="scriptvcomm" } item={ label="Script syntax details" value="syntax" } item={ label="Resources" value="resources" } item={ label="Command line interface" value="commandline" } item={ label="Xtpanel generator" value="generator" } item={ label="Xtpanel examples" value="examples" } item={ label="copyright" value="copyright } } text={ name=textwin value=`cat SYS_XTPANELDIR/help/general` X height=300 width=750 } SHAR_EOF chmod 0664 xtpanel/help/help.sed || echo 'restore of xtpanel/help/help.sed failed' Wc_c="`wc -c < 'xtpanel/help/help.sed'`" test 1500 -eq "$Wc_c" || echo 'xtpanel/help/help.sed: original size 1500, current size' "$Wc_c" fi # ============= xtpanel/help/scriptvcomm ============== if test -f 'xtpanel/help/scriptvcomm' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/scriptvcomm (File already exists)' else echo 'x - extracting xtpanel/help/scriptvcomm (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/scriptvcomm' && X SCRIPT VS. COMMAND LINE X The typical xtpanel script contains lines of the form: X X objecttype={ parameter1=value1 parameter2=value2 ... } X X This format is very flexible; the parameters can be supplied X in any order, or omitted and defaults will be provided. Line X breaks can occur anywhere. X X From the command line, all objects and all their parameters X must be specified on the same line in a precise order: X X -objecttype value1 value2 value3... -objecttype value1 ... X X X Some parameters can be omitted; the "-" on the beginning of X the next object tells xtpanel to stop reading parameters for X one object and begin the next. However, in order to specify X a particular parameter, all those up to it in the sequence X must be specified. (For instance, in the case above, to X specify value3 for the first object, one must also specify X value1 and value2, while in a script they could be omitted X and left to default.) X X For these reasons, and because the command line format X (where the entire panel is specified on a single line) is X more difficult to read, it is recommended that a script file X be used for all but the smallest examples. The following X section describes the objects in greater detail, along with X the script language syntax. If you wish instead to use the X command line interface, see the COMMAND LINE SYNTAX section X below. X X Note that scripts and the command line interface can be X mixed, and multiple script files can be read using the "- X file" option (see GENERAL COMMAND LINE OPTIONS, below.) So X the following is a valid xtpanel command: X xtpanel <script1 -file script2 -quit. SHAR_EOF chmod 0664 xtpanel/help/scriptvcomm || echo 'restore of xtpanel/help/scriptvcomm failed' Wc_c="`wc -c < 'xtpanel/help/scriptvcomm'`" test 1758 -eq "$Wc_c" || echo 'xtpanel/help/scriptvcomm: original size 1758, current size' "$Wc_c" fi # ============= xtpanel/help/Imakefile ============== if test -f 'xtpanel/help/Imakefile' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/help/Imakefile (File already exists)' else echo 'x - extracting xtpanel/help/Imakefile (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/help/Imakefile' && X #include "../Imake.config" X HELPS = commandline message \ dialog objects copyright \ help examples resources \ about generator scriptvcomm \ actions item slider \ boxes itemlist syntax \ button list text \ choice menubutton var \ dave.xbm steve.xbm toggle \ scrollbar graph general \ params X MakeDirectories(install,$(SYS_XTPANELDIR)/help) X InstallMultipleFlags( $(HELPS), $(SYS_XTPANELDIR)/help, -m 644 ) X help: help.sed X sed -e 's,SYS_XTPANELDIR,$(SYS_XTPANELDIR),g' <$? >$@ SHAR_EOF chmod 0664 xtpanel/help/Imakefile || echo 'restore of xtpanel/help/Imakefile failed' Wc_c="`wc -c < 'xtpanel/help/Imakefile'`" test 642 -eq "$Wc_c" || echo 'xtpanel/help/Imakefile: original size 642, current size' "$Wc_c" fi true || echo 'restore of xtpanel/help/Makefile failed' echo End of part 8, continue with part 9 exit 0 ----------------------------------------------------------------- Steve Cole (steve@sep.stanford.edu, apple!sep!steve) Department of Geophysics, Stanford University, Stanford, CA 94305