midaswww-1.0/SGMLAnchorText.h100644 002113 001774 00000003531 05302057350 015753 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLAnchorTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a text segment for the SGMLAnchorText widget */ /* */ /*==================================================================*/ #ifndef SGMLANCHORTEXT_H #define SGMLANCHORTEXT_H #include "SGMLFormattedText.h" extern WidgetClass sGMLAnchorTextObjectClass; typedef struct _SGMLAnchorTextRec *SGMLAnchorTextObject; #define SGMLNhref "href" #define SGMLCHref "Href" #define SGMLNname "name" #define SGMLCName "Name" #define SGMLNhrefLength "hrefLength" #define SGMLCHrefLength "HrefLength" #define SGMLNnameLength "nameLength" #define SGMLCNameLength "NameLength" #define SGMLNvisited "visited" #define SGMLCVisited "Visited" #define SGMLNvisitedFont "visitedFont" #define SGMLNvisitedColor "visitedColor" #define SGMLNvisitedUnderline "visitedUnderline" #define SGMLNvisitedOutline "visitedOutline" #define SGMLNvisitedUnderlineHeight "visitedUnderlineHeight" #ifdef _NO_PROTO extern Widget CreateSGMLAnchorText(); #else #if defined(__cplusplus) || defined(c_plusplus) extern "C" { #endif extern Widget SGMLCreateAnchorText(Widget parent, char *name, ArgList al, int ac); #if defined(__cplusplus) || defined(c_plusplus) } #endif #endif /* _NO_PROTO */ #define SGMLIsAnchorText(w) XtIsSubclass(w,sGMLAnchorTextObjectClass) #endif SGMLANCHORTEXT_H midaswww-1.0/SGMLAnchorTextP.h100644 002113 001774 00000003451 05302057350 016074 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLAnchorTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a anchortext segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #ifndef SGMLANCHORTEXTP_H #define SGMLANCHORTEXTP_H #include "SGMLAnchorText.h" #include "SGMLFormattedTextP.h" typedef struct _SGMLAnchorTextClassPart{ int ignore; /* no new class elements */ } SGMLAnchorTextClassPart; typedef struct _SGMLAnchorTextClassRec{ ObjectClassPart object_class; SGMLTextClassPart sgml_text_class; SGMLFormattedTextClassPart sgml_formatted_text_class; SGMLAnchorTextClassPart sgml_anchortext_class; } SGMLAnchorTextClassRec, *SGMLAnchorTextObjectClass; extern SGMLAnchorTextClassRec sGMLAnchorTextClassRec; typedef struct _SGMLAnchorTextPart { String href; /* pointer to href */ String name; /* pointer to name */ int href_length; /* length of href */ int name_length ; /* length of name */ SGMLRendition visited_rendition; Boolean visited; } SGMLAnchorTextPart; typedef struct _SGMLAnchorTextRec { ObjectPart object; SGMLTextPart sgml_text; SGMLFormattedTextPart sgml_formatted_text; SGMLAnchorTextPart sgml_anchortext; } SGMLAnchorTextRec; #endif SGMLANCHORTEXTP_H midaswww-1.0/SGMLCompositeText.h100644 002113 001774 00000003352 05302057350 016504 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLCompositeTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a composite text segment for the SGMLText widget */ /* */ /*==================================================================*/ #ifndef SGMLCOMPOSITETEXT_H #define SGMLCOMPOSITETEXT_H #include "SGMLText.h" #define SGMLNtagList "tagList" #define SGMLCTagList "TagList" #define SGMLRTagList "TagList" #define SGMLNdefaultClass "defaultClass" #define SGMLCClass "Class" #define SGMLRClass "Class" #define SGMLINHERIT_CLASS NULL extern WidgetClass sGMLCompositeTextObjectClass; typedef struct _SGMLCompositeTextRec *SGMLCompositeTextObject; typedef struct _TagList { XrmName name; WidgetClass class; } SGMLTagList; #ifdef _NO_PROTO extern void SGMLCompositeTextInsertChild(); extern Widget CreateSGMLCompositeText(); #else #if defined(__cplusplus) || defined(c_plusplus) extern "C" { #endif extern Widget SGMLCreateCompositeText(Widget parent, char *name, ArgList al, int ac); extern void SGMLCompositeTextInsertChild(Widget parent, Widget child); #if defined(__cplusplus) || defined(c_plusplus) } #endif #endif /* _NO_PROTO */ #define SGMLIsCompositeText(w) XtIsSubclass(w,sGMLCompositeTextObjectClass) #endif SGMLCOMPOSITETEXT_H midaswww-1.0/SGMLCompositeTextP.h100644 002113 001774 00000004312 05302057350 016621 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLCompositeTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a text segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #ifndef SGMLCOMPOSITETEXTP_H #define SGMLCOMPOSITETEXTP_H #include "SGMLCompositeText.h" #include "SGMLTextP.h" typedef struct _SGMLCompositeTextClassPart{ XtGeometryHandler geometry_manager; /* geometry manager for children */ XtWidgetProc change_managed; /* change managed state of child */ XtWidgetProc insert_child; /* physically add child to parent */ XtWidgetProc delete_child; /* physically remove child */ XtPointer extension; /* pointer to extension record */ } SGMLCompositeTextClassPart; typedef struct _SGMLCompositeTextClassRec{ ObjectClassPart object_class; SGMLTextClassPart sgml_text_class; SGMLCompositeTextClassPart sgml_composite_text_class; } SGMLCompositeTextClassRec, *SGMLCompositeTextObjectClass; extern SGMLCompositeTextClassRec sGMLCompositeTextClassRec; typedef struct _SGMLCompositeTextPart { WidgetList children; /* array of ALL widget children */ Cardinal num_children; /* total number of widget children */ Cardinal num_slots; /* number of slots in children array */ XtOrderProc insert_position; /* compute position of new child */ SGMLTagList *tag_list; /* list of allowed tags */ WidgetClass default_class; /* default class of children */ } SGMLCompositeTextPart; typedef struct _SGMLCompositeTextRec { ObjectPart object; SGMLTextPart sgml_text; SGMLCompositeTextPart sgml_composite_text; } SGMLCompositeTextRec; #endif SGMLCOMPOSITETEXTP_H */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a text segment for the SGMLHyper widget */ /* midaswww-1.0/SGMLFormattedText.h100644 002113 001774 00000002400 05302057350 016460 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLFormattedTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a formatted text segment for the SGMLText widget */ /* */ /*==================================================================*/ #ifndef SGMLFORMATTEDTEXT_H #define SGMLFORMATTEDTEXT_H #include "SGMLText.h" extern WidgetClass sGMLFormattedTextObjectClass; typedef struct _SGMLFormattedTextRec *SGMLFormattedTextObject; #ifdef _NO_PROTO extern Widget CreateSGMLFormattedText(); #else #if defined(__cplusplus) || defined(c_plusplus) extern "C" { #endif extern Widget SGMLCreateFormattedText(Widget parent, char *name, ArgList al, int ac); #if defined(__cplusplus) || defined(c_plusplus) } #endif #endif /* _NO_PROTO */ #define SGMLIsFormattedText(w) XtIsSubclass(w,sGMLFormattedTextObjectClass) #endif SGMLFORMATTEDTEXT_H midaswww-1.0/SGMLFormattedTextP.h100644 002113 001774 00000003653 05302057351 016614 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLFormattedTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a text segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #ifndef SGMLFORMATTEDTEXTP_H #define SGMLFORMATTEDTEXTP_H #include "SGMLFormattedText.h" #include "SGMLTextP.h" typedef struct _SGMLFormattedTextClassPart{ int ignore; /* no new class elements */ } SGMLFormattedTextClassPart; typedef struct _SGMLFormattedTextClassRec{ ObjectClassPart object_class; SGMLTextClassPart sgml_text_class; SGMLFormattedTextClassPart sgml_formatted_text_class; } SGMLFormattedTextClassRec, *SGMLFormattedTextObjectClass; extern SGMLFormattedTextClassRec sGMLFormattedTextClassRec; typedef struct _WordInfo { char *word; int length; Dimension size; } WordInfo; typedef struct _LineInfo { int start; int stop; int nchars; Dimension size; } LineInfo; typedef struct _SGMLFormattedTextPart { WordInfo *word_info; LineInfo *line_info; int nwords; int nlines; Dimension left_indent; /* left margin */ Dimension right_indent; /* right margin */ } SGMLFormattedTextPart; typedef struct _SGMLFormattedTextRec { ObjectPart object; SGMLTextPart sgml_text; SGMLFormattedTextPart sgml_formatted_text; } SGMLFormattedTextRec; #endif SGMLFORMATTEDTEXTP_H midaswww-1.0/SGMLHyper.h100644 002113 001774 00000005257 05302057351 014773 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLHyperWidget */ /* */ /* B.Raoult (mab@ecmwf.co.uk) Oct.91 */ /* T.Johnson - added SGML facilities June.92 */ /* (Tony Johnson) */ /* */ /* Hyper text like widget. */ /* */ /*==================================================================*/ #ifndef SGMLHYPER_H #define SGMLHYPER_H /* If you define MOTIF, the widget will inherit proprieties from the XmManager class : Help Callback, user data, ... */ /* #define MOTIF */ extern WidgetClass sGMLHyperWidgetClass; typedef struct _SGMLHyperRec * SGMLHyperWidget; /* * Define resource strings for the Hyper widget. */ #define SGMLNzoomEffect "zoomEffect" #define SGMLCZoom "Zoom" #define SGMLNopenTag "openTag" #define SGMLNcloseTag "closeTag" #define SGMLNendTag "endTag" #define SGMLNparameterTag "parameterTag" #define SGMLCTagChar "TagChar" #define SGMLNzoomSpeed "zoomSpeed" #define SGMLCZoomSpeed "ZoomSpeed" #define SGMLNcacheSize "cacheSize" #define SGMLCCacheSize "CacheSize" #define SGMLNmargin "margin" #define SGMLNnaturalWidth "naturalWidth" #define SGMLCWidth "Width" #define SGMLNcaseSensitiveTags "caseSensitiveTags" #define SGMLCCaseSensitiveTags "CaseSensitiveTags" /* Callback structure */ #define SGMLHYPER_REASON 1 typedef struct { int reason; /* always = SGMLHYPER_REASON */ XEvent *event; /* event */ char *text; /* pointer on highlighted text selected (read only) */ int length; /* length of selected text */ char *hidden; /* pointer to hidden text */ int hidden_length; } SGMLHyperCallbackStruct; Widget CreateSGMLHyper(); Widget SGMLHyperLoadFile(); Widget SGMLHyperSetText(); Widget SGMLHyperLoadText(); #ifdef _NO_PROTO void SGMLHyperSetTags(); char *SGMLHyperGetText(); void SGMLHyperDeclareClass(); #else void SGMLHyperSetTags(); char *SGMLHyperGetText(); void SGMLHyperDeclareClass(); #endif #define SGMLIsHyper(w) XtIsSubclass(w,sGMLHyperWidgetClass) #endif SGMLHYPER_H midaswww-1.0/SGMLHyperP.h100644 002113 001774 00000005703 05302057351 015107 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLHyperWidget */ /* */ /* B.Raoult (mab@ecmwf.co.uk) Oct.91 */ /* T.Johnson - added SGML facilities June.92 */ /* (Tony Johnson) */ /* */ /* Hyper text like widget. */ /* */ /*==================================================================*/ #ifndef SGMLHYPERP_H #define SGMLHYPERP_H #include "SGMLHyper.h" #ifdef MOTIF #include #endif /* SGMLHyper class : no new fields */ typedef struct _SGMLHyperClassPart{ int ignore; } SGMLHyperClassPart; typedef struct _SGMLHyperClassRec{ CoreClassPart core_class; CompositeClassPart composite_class; #ifdef MOTIF XmManagerClassPart manager_class; #endif SGMLHyperClassPart sgml_hyper_class; } SGMLHyperClassRec, *SGMLHyperWidgetClass; extern SGMLHyperClassRec sGMLHyperClassRec; typedef struct _SGMLHyperPart { Cursor hand; /* Selecting cursor shape */ Boolean zoom; /* zoom effect when selected */ int speed; /* zoom speed */ char open_tag; /* start of highlighted text mark */ char close_tag; /* end of highlighted text mark */ char end_tag; /* character used to hide text in highlight */ char parameter_tag; /* parameter tag */ Boolean case_sensitive_tags; /* Case sensitive tags */ Widget managed; int cache_size; /* maximum number of cached text segments */ Dimension margin; /* margins size */ Dimension natural_width; /* size it tries to fit text into */ /* text_segment *grep_seg; /* segment where found text is * */ char *grep_txt; /* pointer to found text */ int grep_len; /* length of found text */ int grep_off; /* offset of found text */ Position grep_x; /* rectangle of found text*/ Position grep_y; Dimension grep_width; Dimension grep_height; SGMLTextObject last_selected; /* last selected segment */ SGMLTextObject last_cursor; /* last under cursor segment */ XtCallbackList activate; /* callback list */ } SGMLHyperPart; typedef struct _SGMLHyperRec { CorePart core; CompositePart composite; #ifdef MOTIF XmManagerPart manager; #endif SGMLHyperPart sgml_hyper; } SGMLHyperRec; #endif SGMLHYPERP_H midaswww-1.0/SGMLListText.h100644 002113 001774 00000003650 05302057351 015457 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLListTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a list text segment for the SGMLText widget */ /* */ /*==================================================================*/ #ifndef SGMLLISTTEXT_H #define SGMLLISTTEXT_H #include "SGMLCompositeText.h" #define SGMLNnumBullets "numBullets" #define SGMLNallocBullets "allocBullets" #define SGMLNbulletType "bulletType" #define SGMLCBulletType "BulletType" #define SGMLRBulletType "BulletType" #define SGMLNbulletSize "bulletSize" #define SGMLCBulletSize "BulletSize" #define SGMLNbulletColor "bulletColor" #define SGMLCBulletColor "BulletColor" #define SGMLNbulletIndent "bulletIndent" #define SGMLCBulletIndent "BulletIndent" #define SGMLBULLET_DEFAULT -1 #define SGMLBULLET_BULLET 0 #define SGMLBULLET_DIAMOND 1 #define SGMLBULLET_SQUARE 2 #define SGMLBULLET_NUMERIC 3 #define SGMLBULLET_ALPHA 4 #define SGMLINHERIT_CLASS NULL extern WidgetClass sGMLListTextObjectClass; typedef struct _SGMLListTextRec *SGMLListTextObject; #ifdef _NO_PROTO extern Widget CreateSGMLListText(); #else #if defined(__cplusplus) || defined(c_plusplus) extern "C" { #endif extern Widget SGMLCreateListText(Widget parent, char *name, ArgList al, int ac); extern void SGMLListTextInsertChild(Widget parent, Widget child); #if defined(__cplusplus) || defined(c_plusplus) } #endif #endif /* _NO_PROTO */ #define SGMLIsListText(w) XtIsSubclass(w,sGMLListTextObjectClass) #endif SGMLLISTTEXT_H midaswww-1.0/SGMLListTextP.h100644 002113 001774 00000004160 05302057351 015574 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLListTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a text segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #ifndef SGMLLISTTEXTP_H #define SGMLLISTTEXTP_H #include "SGMLListText.h" #include "SGMLCompositeTextP.h" typedef struct _SGMLListTextClassPart{ XtPointer extension; /* pointer to extension record */ } SGMLListTextClassPart; typedef struct _SGMLListTextClassRec{ ObjectClassPart object_class; SGMLTextClassPart sgml_text_class; SGMLCompositeTextClassPart sgml_composite_text_class; SGMLListTextClassPart sgml_list_text_class; } SGMLListTextClassRec, *SGMLListTextObjectClass; extern SGMLListTextClassRec sGMLListTextClassRec; typedef struct _BulletList { Position x; Position y; } BulletListItem, *BulletList; typedef struct _SGMLListTextPart { BulletList bullets; /* pointer to array of bullets */ Cardinal num_bullets; /* total number of bullets */ Cardinal alloc_bullets; /* total number of bullets allocated */ int bullet_type; /* type of bullets */ Dimension bullet_size; /* size of bullets */ Pixel bullet_color; /* color of bullets */ Dimension bullet_indent; /* indentation of bullet */ } SGMLListTextPart; typedef struct _SGMLListTextRec { ObjectPart object; SGMLTextPart sgml_text; SGMLCompositeTextPart sgml_composite_text; SGMLListTextPart sgml_list_text; } SGMLListTextRec; #endif SGMLLISTTEXTP_H midaswww-1.0/SGMLMarkerText.h100644 002113 001774 00000002622 05302057351 015763 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLMarkerTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines marker text segment for the SGMLText widget */ /* */ /*==================================================================*/ #ifndef SGMLMARKERTEXT_H #define SGMLMARKERTEXT_H #include "SGMLMarkerText.h" extern WidgetClass sGMLMarkerTextObjectClass; typedef struct _SGMLMarkerTextRec *SGMLMarkerTextObject; #define SGMLNcolumnAlign "columnAlign" #define SGMLCColumnAlign "ColumnAlign" #define SGMLNposition "position" #define SGMLCPosition "Position" #ifdef _NO_PROTO extern Widget CreateSGMLMarkerText(); #else #if defined(__cplusplus) || defined(c_plusplus) extern "C" { #endif extern Widget SGMLCreateMarkerText(Widget parent, char *name, ArgList al, int ac); #if defined(__cplusplus) || defined(c_plusplus) } #endif #endif /* _NO_PROTO */ #define SGMLIsMarkerText(w) XtIsSubclass(w,sGMLMarkerTextObjectClass) #endif SGMLMARKERTEXT_H midaswww-1.0/SGMLMarkerTextP.h100644 002113 001774 00000002676 05302057352 016115 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLMarkerTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a text segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #ifndef SGMLMARKERTEXTP_H #define SGMLMARKERTEXTP_H #include "SGMLMarkerText.h" #include "SGMLTextP.h" typedef struct _SGMLMarkerTextClassPart{ int ignore; /* no new class elements */ } SGMLMarkerTextClassPart; typedef struct _SGMLMarkerTextClassRec{ ObjectClassPart object_class; SGMLTextClassPart sgml_text_class; SGMLMarkerTextClassPart sgml_marker_text_class; } SGMLMarkerTextClassRec, *SGMLMarkerTextObjectClass; extern SGMLMarkerTextClassRec sGMLMarkerTextClassRec; typedef struct _SGMLMarkerTextPart { Dimension column_align; Position position; } SGMLMarkerTextPart; typedef struct _SGMLMarkerTextRec { ObjectPart object; SGMLTextPart sgml_text; SGMLMarkerTextPart sgml_marker_text; } SGMLMarkerTextRec; #endif SGMLMARKERTEXTP_H midaswww-1.0/SGMLPlainText.h100644 002113 001774 00000002440 05302057352 015604 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLPlainTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines aplain text segment for the SGMLText widget */ /* */ /*==================================================================*/ #ifndef SGMLPLAINTEXT_H #define SGMLPLAINTEXT_H #include "SGMLText.h" extern WidgetClass sGMLPlainTextObjectClass; typedef struct _SGMLPlainTextRec *SGMLPlainTextObject; #define SGMLNtabs "tabs" #define SGMLCTabs "Tabs" #ifdef _NO_PROTO extern Widget CreateSGMLPlainText(); #else #if defined(__cplusplus) || defined(c_plusplus) extern "C" { #endif extern Widget SGMLCreatePlainText(Widget parent, char *name, ArgList al, int ac); #if defined(__cplusplus) || defined(c_plusplus) } #endif #endif /* _NO_PROTO */ #define SGMLIsPlainText(w) XtIsSubclass(w,sGMLPlainTextObjectClass) #endif SGMLPLAINTEXT_H midaswww-1.0/SGMLPlainTextP.h100644 002113 001774 00000002644 05302057352 015732 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLPlainTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a text segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #ifndef SGMLPLAINTEXTP_H #define SGMLPLAINTEXTP_H #include "SGMLPlainText.h" #include "SGMLTextP.h" typedef struct _SGMLPlainTextClassPart{ int ignore; /* no new class elements */ } SGMLPlainTextClassPart; typedef struct _SGMLPlainTextClassRec{ ObjectClassPart object_class; SGMLTextClassPart sgml_text_class; SGMLPlainTextClassPart sgml_plain_text_class; } SGMLPlainTextClassRec, *SGMLPlainTextObjectClass; extern SGMLPlainTextClassRec sGMLPlainTextClassRec; typedef struct _SGMLPlainTextPart { int tabs; /* controls handling of tabs */ } SGMLPlainTextPart; typedef struct _SGMLPlainTextRec { ObjectPart object; SGMLTextPart sgml_text; SGMLPlainTextPart sgml_plain_text; } SGMLPlainTextRec; #endif SGMLPLAINTEXTP_H midaswww-1.0/SGMLText.h100644 002113 001774 00000011755 05302057352 014631 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a text segment for the SGMLText widget */ /* */ /*==================================================================*/ #ifndef SGMLTEXT_H #define SGMLTEXT_H extern WidgetClass sGMLTextObjectClass; typedef struct _SGMLTextRec *SGMLTextObject; #define SGMLALIGNMENT_NONE 0 #define SGMLALIGNMENT_LEFT 1 #define SGMLALIGNMENT_RIGHT 2 #define SGMLALIGNMENT_CENTER 3 #define SGMLBREAK_NEVER 0 #define SGMLBREAK_ALWAYS 2 #define SGMLBREAK_SOFT 1 #define SGMLINHERIT_ALIGNMENT -999 #define SGMLINHERIT_FONT NULL #define SGMLINHERIT_MARGIN -1 #define SGMLINHERIT_PARAGRAPHINDENT -999 #define SGMLINHERIT_SPACE 32767 #define SGMLINHERIT_BREAK -999 #define SGMLINHERIT_SENSITIVITY 2 #define SGMLINHERIT_UNDERLINE -999 #define SGMLINHERIT_OUTLINE 2 #define SGMLINHERIT_UNDERLINEHEIGHT 999 #define SGMLINHERIT_COLOR NULL #define SGMLNfont "font" #define SGMLNsensitiveFont "sensitiveFont" #define SGMLCFont "Font" #define SGMLNcolor "color" #define SGMLNsensitiveColor "sensitiveColor" #define SGMLCColor "Color" #define SGMLNunderline "underline" #define SGMLNsensitiveUnderline "sensitiveUnderline" #define SGMLCUnderline "underline" #define SGMLNoutline "outline" #define SGMLNsensitiveOutline "sensitiveOutline" #define SGMLCOutline "Outline" #define SGMLNunderlineHeight "underlineHeight" #define SGMLNsensitiveUnderlineHeight "sensitiveUnderlineHeight" #define SGMLCUnderlineHeight "underlineHeight" #define SGMLNbreakBefore "breakBefore" #define SGMLNbreakAfter "breakAfter" #define SGMLCBreak "Break" #define SGMLRBreak "Break" #define SGMLNsensitive "sensitive" #define SGMLCSensitive "Sensitive" #define SGMLNrightIndent "rightIndent" #define SGMLNleftIndent "leftIndent" #define SGMLNrightMargin "rightMargin" #define SGMLNleftMargin "leftMargin" #define SGMLNparagraphIndent "paragraphIndent" #define SGMLNspaceBefore "spaceBefore" #define SGMLNspaceAfter "spaceAfter" #define SGMLCMargin "Margin" #define SGMLNalignment "alignment" #define SGMLCAlignment "Alignment" #define SGMLNspacing "spacing" #define SGMLCSpacing "Spacing" #define SGMLNdepth "depth" #define SGMLCDepth "Depth" #define SGMLNascent "ascent" #define SGMLCAscent "Ascent" #define SGMLNuserdata "userdata" #define SGMLCUserdata "Userdata" #define SGMLNtext "text" #define SGMLCText "Text" #define SGMLNparam "param" #define SGMLCParam "param" #define SGMLNlength "length" #define SGMLCLength "Length" #define SGMLNparamLength "paramLength" #define SGMLCParamLength "ParamLength" #define SGMLNactivateCallback "activateCallback" #define SGMLNcreateCallback "createCallback" #define SGMLNmapCallback "mapCallback" #define SGMLCCallback "Callback" /* Callback structure */ #define SGMLTEXT_ACTIVATE 1 #define SGMLTEXT_CREATE 2 #define SGMLTEXT_MAP 2 typedef struct { int reason; /* always = HYPER_REASON */ XEvent *event; /* event */ char *text; /* pointer on highlighted text selected (read only) */ int length; /* length of selected text */ char *param; /* pointer to hidden text */ int param_length; } SGMLTextCallbackStruct; /* Other exported data structures */ typedef struct _SGMLCoord { Position x,y; Dimension depth; Dimension ascent; } SGMLCoord; typedef struct { SGMLCoord coord; int alignment; Boolean leave_space; Boolean broken; Dimension space; Dimension natural_width; Dimension actual_width; } SGMLGeometry; #ifdef _NO_PROTO extern Widget CreateSGMLText(); #else #if defined(__cplusplus) || defined(c_plusplus) extern "C" { #endif extern Widget SGMLCreateText(Widget parent, char *name, ArgList al, int ac); #if defined(__cplusplus) || defined(c_plusplus) } #endif #endif /* _NO_PROTO */ #define SGMLIsText(w) XtIsSubclass(w,sGMLTextObjectClass) #endif SGMLTEXT_H 9 #define SGMLINHERmidaswww-1.0/SGMLTextP.h100644 002113 001774 00000010356 05302057352 014745 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a text segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #ifndef SGMLTEXTP_H #define SGMLTEXTP_H #include "SGMLText.h" /* SGMLText class */ typedef void (*ComputeSizeProc)(); typedef Boolean (*AdjustSizeProc)(); typedef void (*AdjustPositionProc)(); typedef void (*ExposeProc)(); typedef void (*ActivateProc)(); typedef void (*HiliteProc)(); typedef Widget (*ContainsProc)(); typedef void (*CallCreateCallbackProc)(); typedef void (*CallMapCallbackProc)(); typedef void (*MakeVisibleProc)(); #define SGMLInheritComputeSize ((ComputeSizeProc) _XtInherit) #define SGMLInheritAdjustSize ((AdjustSizeProc) _XtInherit) #define SGMLInheritAdjustPosition ((AdjustPositionProc) _XtInherit) #define SGMLInheritExpose ((ExposeProc) _XtInherit) #define SGMLInheritActivate ((ActivateProc) _XtInherit) #define SGMLInheritHilite ((HiliteProc) _XtInherit) #define SGMLInheritContains ((ContainsProc) _XtInherit) #define SGMLInheritCallCreateCallback ((CallCreateCallbackProc) _XtInherit) #define SGMLInheritCallMapCallback ((CallMapCallbackProc) _XtInherit) #define SGMLInheritMakeVisible ((MakeVisibleProc) _XtInherit) typedef struct _SGMLTextClassPart{ ComputeSizeProc compute_size; AdjustSizeProc adjust_size; AdjustPositionProc adjust_position; ExposeProc expose; ActivateProc activate; HiliteProc hilite; ContainsProc contains; CallCreateCallbackProc call_create_callback; CallMapCallbackProc call_map_callback; MakeVisibleProc make_visible; XtPointer extension; } SGMLTextClassPart; typedef struct _SGMLTextClassRec{ ObjectClassPart object_class; SGMLTextClassPart sgml_text_class; } SGMLTextClassRec, *SGMLTextObjectClass; extern SGMLTextClassRec sGMLTextClassRec; typedef struct _SGMLRendition { Pixel color; Boolean outline; int underline; Dimension underline_height; XFontStruct *font; } SGMLRendition; typedef struct _SGMLTextPart { String text; /* pointer to text */ String param; /* pointer to parameters */ int length; /* length of text */ int param_length ; /* length of parameters */ SGMLCoord begin; SGMLCoord end; Dimension width,height; /* Size of drawn text */ Position margin; int right_margin; int left_margin; int right_indent; int left_indent; int paragraph_indent; Dimension space_before; Dimension space_after; int break_before; int break_after; int alignment; Boolean sensitive; SGMLRendition normal_rendition; SGMLRendition sensitive_rendition; Dimension ascent; Dimension depth; Dimension spacing; Boolean size_valid; XtPointer userdata; GC gc; GC invert_gc; Boolean own_gcs; XtCallbackList activate; /* callback list */ XtCallbackList create; /* callback list */ XtCallbackList map; /* callback list */ } SGMLTextPart; typedef struct _SGMLTextRec { ObjectPart object; SGMLTextPart sgml_text; } SGMLTextRec; #endif SGMLTEXTP_H midaswww-1.0/Tree.h100644 002113 001774 00000007714 05302057352 014121 0ustar00tonyjey000000 000000 /* * $XConsortium: Tree.h,v 1.11 91/05/04 18:59:13 rws Exp $ * * Copyright 1990 Massachusetts Institute of Technology * Copyright 1989 Prentice Hall * * Permission to use, copy, modify, and distribute this software for any * purpose and without fee is hereby granted, provided that the above * copyright notice appear in all copies and that both the copyright notice * and this permission notice appear in supporting documentation. * * M.I.T., Prentice Hall and the authors disclaim all warranties with regard * to this software, including all implied warranties of merchantability and * fitness. In no event shall M.I.T., Prentice Hall or the authors be liable * for any special, indirect or cosequential damages or any damages whatsoever * resulting from loss of use, data or profits, whether in an action of * contract, negligence or other tortious action, arising out of or in * connection with the use or performance of this software. * * Authors: Jim Fulton, MIT X Consortium, * based on a version by Douglas Young, Prentice Hall * * This widget is based on the Tree widget described on pages 397-419 of * Douglas Young's book "The X Window System, Programming and Applications * with Xt OSF/Motif Edition." The layout code has been rewritten to use * additional blank space to make the structure of the graph easier to see * as well as to support vertical trees. */ #ifndef _XawTree_h #define _XawTree_h /****************************************************************************** * * Tree Widget (subclass of ConstraintClass) * ****************************************************************************** * * Parameters: * * Name Class Type Default * ---- ----- ---- ------- * * autoReconfigure AutoReconfigure Boolean FALSE * background Background Pixel XtDefaultBackground * foreground Foreground Pixel XtDefaultForeground * gravity Gravity XtGravity West * hSpace HSpace Dimension 20 * lineWidth LineWidth Dimension 0 * vSpace VSpace Dimension 6 * * * Constraint Resources attached to children: * * treeGC TreeGC GC NULL * treeParent TreeParent Widget NULL * * *****************************************************************************/ /* new instance field names */ #ifndef _XtStringDefs_h_ #define XtNhSpace "hSpace" #define XtNvSpace "vSpace" #define XtCHSpace "HSpace" #define XtCVSpace "VSpace" #endif #define XtNautoReconfigure "autoReconfigure" #define XtNlineWidth "lineWidth" #define XtNtreeGC "treeGC" #define XtNtreeParent "treeParent" #define XtNgravity "gravity" typedef int XtGravity; #define XtRGravity "Gravity" #define XtEForget "forget" #define XtENorthWest "northwest" #define XtENorth "north" #define XtENorthEast "northeast" #define XtEWest "west" #define XtECenter "center" #define XtEEast "east" #define XtESouthWest "southwest" #define XtESouth "south" #define XtESouthEast "southeast" #define XtEStatic "static" #define XtEUnmap "unmap" #define XtEleft "left" #define XtEcenter "center" #define XtEright "right" #define XtEtop "top" #define XtEbottom "bottom" /* new class field names */ #define XtCAutoReconfigure "AutoReconfigure" #define XtCLineWidth "LineWidth" #define XtCTreeGC "TreeGC" #define XtCTreeParent "TreeParent" #define XtCGravity "Gravity" #define XtRGC "GC" /* external declarations */ extern WidgetClass treeWidgetClass; typedef struct _TreeClassRec *TreeWidgetClass; typedef struct _TreeRec *TreeWidget; extern void XawTreeForceLayout ( #if NeedFunctionPrototypes Widget /* tree */ #endif ); #endif /* _XawTree_h */ tice Hall and the authors disclaim all warranties wimidaswww-1.0/TreeP.h100644 002113 001774 00000006635 05302057353 014243 0ustar00tonyjey000000 000000 /* * $XConsortium: TreeP.h,v 1.13 90/04/13 16:39:54 jim Exp $ * * Copyright 1990 Massachusetts Institute of Technology * Copyright 1989 Prentice Hall * * Permission to use, copy, modify, and distribute this software for any * purpose and without fee is hereby granted, provided that the above * copyright notice appear in all copies and that both the copyright notice * and this permission notice appear in supporting documentation. * * M.I.T., Prentice Hall and the authors disclaim all warranties with regard * to this software, including all implied warranties of merchantability and * fitness. In no event shall M.I.T., Prentice Hall or the authors be liable * for any special, indirect or cosequential damages or any damages whatsoever * resulting from loss of use, data or profits, whether in an action of * contract, negligence or other tortious action, arising out of or in * connection with the use or performance of this software. * * Authors: Jim Fulton, MIT X Consortium, * based on a version by Douglas Young, Prentice Hall * * This widget is based on the Tree widget described on pages 397-419 of * Douglas Young's book "The X Window System, Programming and Applications * with Xt OSF/Motif Edition." The layout code has been rewritten to use * additional blank space to make the structure of the graph easier to see * as well as to support vertical trees. */ #ifndef _XawTreeP_h #define _XawTreeP_h #include "Tree.h" #ifdef MOTIF #include #endif typedef struct _TreeClassPart { int ignore; } TreeClassPart; typedef struct _TreeClassRec { CoreClassPart core_class; CompositeClassPart composite_class; ConstraintClassPart constraint_class; TreeClassPart tree_class; } TreeClassRec; extern TreeClassRec treeClassRec; typedef struct { /* fields available through resources */ Dimension hpad; /* hSpace/HSpace */ Dimension vpad; /* vSpace/VSpace */ Dimension line_width; /* lineWidth/LineWidth */ Pixel foreground; /* foreground/Foreground */ XtGravity gravity; /* gravity/Gravity */ Boolean auto_reconfigure; /* autoReconfigure/AutoReconfigure */ /* private fields */ GC gc; /* used to draw lines */ Widget tree_root; /* hidden root off all children */ Dimension *largest; /* list of largest per depth */ int n_largest; /* number of elements in largest */ Dimension maxwidth, maxheight; /* for shrink wrapping */ } TreePart; typedef struct _TreeRec { CorePart core; CompositePart composite; ConstraintPart constraint; TreePart tree; } TreeRec; /* * structure attached to all children */ typedef struct _TreeConstraintsPart { /* resources */ Widget parent; /* treeParent/TreeParent */ GC gc; /* treeGC/TreeGC */ /* private data */ Widget *children; int n_children; int max_children; Dimension bbsubwidth, bbsubheight; /* bounding box of sub tree */ Dimension bbwidth, bbheight; /* bounding box including node */ Position x, y; } TreeConstraintsPart; typedef struct _TreeConstraintsRec { TreeConstraintsPart tree; } TreeConstraintsRec, *TreeConstraints; /* * useful macros */ #define TREE_CONSTRAINT(w) \ ((TreeConstraints)((w)->core.constraints)) #define TREE_INITIAL_DEPTH 10 /* for allocating largest array */ #define TREE_HORIZONTAL_DEFAULT_SPACING 20 #define TREE_VERTICAL_DEFAULT_SPACING 6 #endif /* _XawTreeP_h */ midaswww-1.0/midas.h100644 002113 001774 00000000307 05302057353 014307 0ustar00tonyjey000000 000000 #include "midaslist.h" #include "midasoperand.h" MidasOperand MidasGetIngot(); MidasOperand MidasConvertFromInteger(); MidasOperand MidasConvertFromString(); MidasOperand MidasConvertFromBoolean(); midaswww-1.0/midasconvert.h100644 002113 001774 00000000244 05302057353 015710 0ustar00tonyjey000000 000000 struct ConvertBlock { Boolean (*ConvertRtn)(); MidasType FromType; MidasType ToType; }; typedef struct ConvertBlock ConvertBlock; midaswww-1.0/midaserrors.h100644 002113 001774 00000000127 05302057353 015544 0ustar00tonyjey000000 000000 #include extern jmp_buf JmpEnv[10]; extern int NumJump; void MidasError(); midaswww-1.0/midaslist.h100644 002113 001774 00000003124 05302057353 015203 0ustar00tonyjey000000 000000 #ifndef MIDASLIST #define MIDASLIST #include "midasoperand.h" struct ListItem { struct ListItem *Next; struct ListItem *Prev; char *Entry; void *Pointer; }; typedef struct ListItem ListItem ; struct List { struct ListItem *First; struct ListItem *Last; Widget W; struct ListItem *Selected; char *Name; }; typedef struct List List; static List NullList={0,0,0,0,0}; typedef XtPointer (*MidasCopyListRtn)(); #ifdef _NO_WAY List *MidasCreateEmptyList(char *name); Boolean MidasConvertStringList(MidasOperand *In, MidasOperand *Out); void MidasEmptyList(List *L); void MidasDestroyList(List *L); ListItem *MidasFindItemInList(List *L, char *Entry); int MidasFindItemPosInList(List *L, ListItem *Item); ListItem *MidasFindItemInListPos(List *L,int Pos); ListItem *MidasAddItemToListPos(List *L,char *Entry,int position); ListItem *MidasAddItemToList(List *L, char *Entry); void *MidasCopyList(List *Old, List *New, MidasCopyListRtn CopyRtn); void MidasRealizeList(List *L, Widget W); void MidasUnrealizeList(List *L); void MidasSelectItemPosInList(List *L, int Pos, Boolean Notify); #else List *MidasCreateEmptyList(); Boolean MidasConvertStringList(); void MidasEmptyList(); void MidasDestroyList(); ListItem *MidasFindItemInList(); int MidasFindItemPosInList(); ListItem *MidasFindItemInListPos(); ListItem *MidasAddItemToListPos(); ListItem *MidasAddItemToList(); void *MidasCopyList(); void MidasRealizeList(); void MidasUnrealizeList(); void MidasSelectItemPosInList(); #endif #endif midaswww-1.0/midasshell.h100644 002113 001774 00000000310 05302057354 015332 0ustar00tonyjey000000 000000 struct MidasShell { Widget Widget; XrmDatabase Database; char *Filename; int Changes; }; typedef struct MidasShell MidasShell; midaswww-1.0/midasoperand.h100644 002113 001774 00000001132 05302057353 015655 0ustar00tonyjey000000 000000 #ifndef MIDASOPERAND #define MIDASOPERAND typedef char *MidasType; typedef struct { char *Symbol; int Precedence; MidasType Op1; MidasType Op2; MidasType Result; } MidasOperator; typedef struct { MidasType Type; Boolean Dynamic; union { XtPointer P; int I; float F; short S; Boolean B; } Value; } MidasOperand; typedef struct { MidasOperand Operand; MidasOperator *Op; } MidasStack; #define MString "String" #define MInt "Int" #define MBoolean "Boolean" #define MFloat "Float" #define MWidget "Widget" #define MNumber "Number" #endif midaswww-1.0/midaswidget.h100644 002113 001774 00000000656 05302057354 015523 0ustar00tonyjey000000 000000 struct MidasWidget { Widget Widget; /* This widget */ Widget Map; /* Widget in map */ struct MidasWidget *Parent; struct MidasWidget *HashChain; Boolean ShowChildren; /* True if children in map */ List *IngotList; ListItem *NameEntry; Boolean Inited; }; typedef struct MidasWidget MidasWidget; midaswww-1.0/SGMLAnchorText.c100644 002113 001774 00000015032 05302057354 015751 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLAnchorTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a anchortext segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #ifdef VAX #include ctype #endif #include #include #include #include "SGMLAnchorTextP.h" #include /* Private functions */ /* Widget class methods */ static void Initialize(); static void Destroy(); #define Offset(field) XtOffsetOf(SGMLAnchorTextRec,sgml_anchortext.field) static XtResource resources[] = { {SGMLNhref, SGMLCHref, XtRString, sizeof(String), Offset(href), XtRString, ""}, {SGMLNname, SGMLCName, XtRString, sizeof(String), Offset(name), XtRString, ""}, {SGMLNhrefLength, SGMLCHrefLength, XtRInt, sizeof(int), Offset(href_length), XtRImmediate, 0}, {SGMLNnameLength, SGMLCNameLength, XtRInt, sizeof(int), Offset(name_length), XtRImmediate, 0} }; #undef Offset /*---------------------------------------------------------------*/ /* Static initialisation of the class record */ /*---------------------------------------------------------------*/ SGMLAnchorTextClassRec sGMLAnchorTextClassRec = { { (WidgetClass) &sGMLFormattedTextClassRec, /* superclass */ "SGMLAnchorText", /* class_name */ sizeof(SGMLAnchorTextRec), /* widget_size */ NULL, /* class_initialize */ NULL, /* class_part_initialize */ FALSE, /* class_inited */ Initialize, /* initialize */ NULL, /* initialize_hook */ NULL, /* obj1 */ NULL, /* obj2 */ 0, /* obj3 */ resources, /* resources */ XtNumber(resources), /* num_resources */ NULLQUARK, /* xrm_class */ 0, /* obj4 */ 0, /* obj5 */ 0, /* obj6 */ 0, /* obj7 */ Destroy, /* destroy */ NULL, /* obj8 */ NULL, /* obj9 */ NULL, /* set_values */ NULL, /* set_values_hook */ NULL, /* obj10 */ NULL, /* get_values_hook */ NULL, /* obj11 */ XtVersion, /* version */ NULL, /* callback private */ NULL, /* obj12 */ NULL, /* obj13 */ NULL, /* obj14 */ NULL, /* extension */ }, { SGMLInheritComputeSize, /* compute_size */ SGMLInheritAdjustSize, /* adjust_size */ SGMLInheritAdjustPosition, /* adjust_position */ SGMLInheritExpose, /* expose */ SGMLInheritActivate, /* activate */ SGMLInheritHilite, /* hilite */ SGMLInheritContains, /* contains */ SGMLInheritCallCreateCallback, /* call_create_callback */ SGMLInheritCallMapCallback, /* call_map_callback */ SGMLInheritMakeVisible, /* make_visible */ NULL, /* extension */ } }; WidgetClass sGMLAnchorTextObjectClass = (WidgetClass) &sGMLAnchorTextClassRec; /*--------------------------------------------------------------*/ /* Initialize: */ /*--------------------------------------------------------------*/ static void Initialize (request, new) SGMLAnchorTextObject request, new; { char *key1 = "href="; char *key2 = "name="; char *delim = " \n\t"; char *p, *q; int l; q = XtNewString(new->sgml_text.param); for (p = q ; *p != '\0' ; p++) if (isupper(*p)) *p = tolower(*p); p = strstr(q,key1); if (p) { p += strlen(key1); new->sgml_anchortext.href_length = l = strcspn(p,delim); new->sgml_anchortext.href = strncpy((char *)XtMalloc(l+1),new->sgml_text.param+(p-q),l); *(new->sgml_anchortext.href + l) = '\0'; } else new->sgml_anchortext.href = XtNewString(""); p = strstr(q,key2); if (p) { p += strlen(key2); new->sgml_anchortext.name_length = l = strcspn(p,delim); new->sgml_anchortext.name = strncpy((char *)XtMalloc(l+1),new->sgml_text.param+(p-q),l); *(new->sgml_anchortext.name + l) = '\0'; } else new->sgml_anchortext.name = XtNewString(""); XtFree(q); } /*--------------------------------------------------------------*/ /* Destroy the widget: release all memory allocated */ /*--------------------------------------------------------------*/ static void Destroy (w) SGMLAnchorTextObject w; { XtFree(w->sgml_anchortext.href); XtFree(w->sgml_anchortext.name); } /*-----------------------------------------------------------------------*/ /* Create a new SGMLAnchorTextObject */ /*-----------------------------------------------------------------------*/ Widget SGMLCreateAnchorText(parent,name,al,ac) Widget parent; char *name; ArgList al; int ac; { return XtCreateWidget(name,sGMLAnchorTextObjectClass,parent,al,ac); } */ /*==================================================================*/ #ifdef VAX #include ctype #endif #include #include #include #include "SGMLAnchorTextP.h" #include /* Private functions */ /* Widget class methods */ static void Initialize(); static void Destroy(); #define Offset(field) XtOffsetOf(SGMLAnchorTextRec,sgml_anchortext.field) static XtResource resources[] =midaswww-1.0/SGMLCompositeText.c100644 002113 001774 00000040417 05302057354 016506 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLCompositeTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a composite text segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #include #include #include #include "SGMLCompositeTextP.h" #include "SGMLFormattedText.h" /* Private functions */ static void DestroyChildren(); /* Widget class methods */ static void ClassPartInitialize(); static void Initialize(); static void Destroy(); static void InsertChild(); static void DeleteChild(); static void ComputeSize(); static Boolean AdjustSize(); static void Redisplay(); static Widget Contains(); static void CallMapCallback(); #define Offset(field) XtOffsetOf(SGMLCompositeTextRec,sgml_composite_text.field) static XtResource resources[] = { {XtNchildren, XtCReadOnly, XtRWidgetList, sizeof(WidgetList), Offset(children), XtRImmediate, NULL}, {XtNnumChildren, XtCReadOnly, XtRCardinal, sizeof(Cardinal), Offset(num_children), XtRImmediate, 0}, {XtNinsertPosition, XtCInsertPosition, XtRFunction, sizeof(XtOrderProc), Offset(insert_position), XtRImmediate, NULL}, {SGMLNtagList, SGMLCTagList, SGMLRTagList, sizeof(SGMLTagList), Offset(tag_list), XtRImmediate, NULL}, {SGMLNdefaultClass, SGMLCClass, SGMLRClass, sizeof(WidgetClass), Offset(default_class), XtRImmediate, SGMLINHERIT_CLASS} }; #undef Offset /*---------------------------------------------------------------*/ /* Static initialisation of the class record */ /*---------------------------------------------------------------*/ SGMLCompositeTextClassRec sGMLCompositeTextClassRec = { { (WidgetClass) &sGMLTextClassRec, /* superclass */ "SGMLCompositeText", /* class_name */ sizeof(SGMLCompositeTextRec), /* widget_size */ NULL, /* class_initialize */ ClassPartInitialize, /* class_part_initialize */ FALSE, /* class_inited */ Initialize, /* initialize */ NULL, /* initialize_hook */ NULL, /* obj1 */ NULL, /* obj2 */ 0, /* obj3 */ resources, /* resources */ XtNumber(resources), /* num_resources */ NULLQUARK, /* xrm_class */ 0, /* obj4 */ 0, /* obj5 */ 0, /* obj6 */ 0, /* obj7 */ Destroy, /* destroy */ NULL, /* obj8 */ NULL, /* obj9 */ NULL, /* set_values */ NULL, /* set_values_hook */ NULL, /* obj10 */ NULL, /* get_values_hook */ NULL, /* obj11 */ XtVersion, /* version */ NULL, /* callback private */ NULL, /* obj12 */ NULL, /* obj13 */ NULL, /* obj14 */ NULL, /* extension */ }, { ComputeSize, /* compute_size */ SGMLInheritAdjustSize, /* adjust_size */ SGMLInheritAdjustPosition, /* adjust_position */ Redisplay, /* expose */ SGMLInheritActivate, /* activate */ SGMLInheritHilite, /* hilite */ Contains, /* contains */ SGMLInheritCallCreateCallback, /* call_create_callback */ CallMapCallback, /* call_map_callback */ SGMLInheritMakeVisible, /* make_visible */ NULL, /* extension */ }, { NULL, /* geometry_manager */ NULL, /* change_managed */ InsertChild, /* insert_child */ DeleteChild, /* delete_child */ NULL, /* ignore */ } }; WidgetClass sGMLCompositeTextObjectClass = (WidgetClass) &sGMLCompositeTextClassRec; /*--------------------------------------------------------------*/ /* ClassPartInitialize: */ /*--------------------------------------------------------------*/ static void ClassPartInitialize(widgetClass) WidgetClass widgetClass; { register SGMLCompositeTextClassPart *wcPtr; register SGMLCompositeTextClassPart *superPtr; wcPtr = (SGMLCompositeTextClassPart *) &(((SGMLCompositeTextObjectClass)widgetClass)->sgml_composite_text_class); if (widgetClass != sGMLCompositeTextObjectClass) /* don't compute possible bogus pointer */ superPtr = (SGMLCompositeTextClassPart *)&(((SGMLCompositeTextObjectClass)widgetClass ->core_class.superclass)->sgml_composite_text_class); #ifdef lint else superPtr = NULL; #endif /* We don't need to check for null super since we'll get to composite eventually, and it had better define them! */ if (wcPtr->geometry_manager == XtInheritGeometryManager) { wcPtr->geometry_manager = superPtr->geometry_manager; } if (wcPtr->change_managed == XtInheritChangeManaged) { wcPtr->change_managed = superPtr->change_managed; } if (wcPtr->insert_child == XtInheritInsertChild) { wcPtr->insert_child = superPtr->insert_child; } if (wcPtr->delete_child == XtInheritDeleteChild) { wcPtr->delete_child = superPtr->delete_child; } } /*--------------------------------------------------------------*/ /* Initialize: */ /*--------------------------------------------------------------*/ static void Initialize (request, new) SGMLCompositeTextObject request, new; { register SGMLCompositeTextObject cw; SGMLCompositeTextObject parent = (SGMLCompositeTextObject) XtParent((Widget) new); cw = (SGMLCompositeTextObject) new; cw->sgml_composite_text.num_children = 0; cw->sgml_composite_text.children = NULL; cw->sgml_composite_text.num_slots = 0; if (SGMLIsCompositeText((Widget) parent)) { if (new->sgml_composite_text.default_class == SGMLINHERIT_CLASS) new->sgml_composite_text.default_class = parent->sgml_composite_text.default_class; } else { if (new->sgml_composite_text.default_class == SGMLINHERIT_CLASS) new->sgml_composite_text.default_class = sGMLFormattedTextObjectClass; } } /*--------------------------------------------------------------*/ /* DestroyChildnen: */ /*--------------------------------------------------------------*/ static void DestroyChildren(w) SGMLCompositeTextObject w; { int n = w->sgml_composite_text.num_children; WidgetList children = w->sgml_composite_text.children; /* * This horrible fix is to work around a bug in some versions * of the intrinsics where XtPhase@Destroy attempts to remove a widget * from its (non-widget) parent's popup list, (which doesn't exist) */ ((Widget) w)->core.num_popups = 0; for (; n-- > 0; ) XtDestroyWidget(*children++); } /*--------------------------------------------------------------*/ /* Destroy the widget: release all memory allocated */ /*--------------------------------------------------------------*/ static void Destroy (w) SGMLCompositeTextObject w; { /* * We have to explicitly delete all of out children since the * intrincics dont know to do it for us. */ DestroyChildren(w); XtFree((char *) w->sgml_composite_text.children); } /*--------------------------------------------------------------*/ /* InsertChild: adds a new child */ /*--------------------------------------------------------------*/ static void InsertChild(w) Widget w; { register Cardinal position; register Cardinal i; register SGMLCompositeTextObject cw; register WidgetList children; cw = (SGMLCompositeTextObject) w->core.parent; children = cw->sgml_composite_text.children; if (cw->sgml_composite_text.insert_position != NULL) position = (*(cw->sgml_composite_text.insert_position))(w); else position = cw->sgml_composite_text.num_children; if (cw->sgml_composite_text.num_children == cw->sgml_composite_text.num_slots) { /* Allocate more space */ cw->sgml_composite_text.num_slots += (cw->sgml_composite_text.num_slots / 2) + 2; cw->sgml_composite_text.children = children = (WidgetList) XtRealloc((XtPointer) children, (unsigned) (cw->sgml_composite_text.num_slots) * sizeof(Widget)); } /* Ripple children up one space from "position" */ for (i = cw->sgml_composite_text.num_children; i > position; i--) { children[i] = children[i-1]; } children[position] = w; cw->sgml_composite_text.num_children++; } /*--------------------------------------------------------------*/ /* DeleteChild: delete a child */ /*--------------------------------------------------------------*/ static void DeleteChild(w) Widget w; { register Cardinal position; register Cardinal i; register SGMLCompositeTextObject cw; cw = (SGMLCompositeTextObject) w->core.parent; for (position = 0; position < cw->sgml_composite_text.num_children; position++) { if (cw->sgml_composite_text.children[position] == w) { break; } } if (position == cw->sgml_composite_text.num_children) return; /* Ripple children down one space from "position" */ cw->sgml_composite_text.num_children--; for (i = position; i < cw->sgml_composite_text.num_children; i++) { cw->sgml_composite_text.children[i] = cw->sgml_composite_text.children[i+1]; } } /*--------------------------------------------------------------*/ /* Contains: */ /*--------------------------------------------------------------*/ static Widget Contains(w,x,y) SGMLCompositeTextObject w; Position x,y; { int n = w->sgml_composite_text.num_children; WidgetList children = w->sgml_composite_text.children; for (; n-- > 0; children++) { SGMLTextObjectClass childClass = (SGMLTextObjectClass) XtClass(*children); Widget result = (*childClass->sgml_text_class.contains)(*children,x,y); if (result) return result; } return NULL; } /*--------------------------------------------------------------*/ /* Redisplay */ /*--------------------------------------------------------------*/ static void Redisplay(t,event,region) SGMLCompositeTextObject t; XEvent *event; Region region; { int n = t->sgml_composite_text.num_children; WidgetList children = t->sgml_composite_text.children; for (; n-- > 0; children++) { SGMLTextObjectClass childClass = (SGMLTextObjectClass) XtClass(*children); (*childClass->sgml_text_class.expose)(*children,event,region); } } /*------------------------------------------------------------------*/ /* Adjust the size of a child */ /*------------------------------------------------------------------*/ static Boolean AdjustSize(child,y,ascent,depth) Widget child; Position y; Dimension ascent, depth; { SGMLCompositeTextObject w = (SGMLCompositeTextObject) XtParent(child); int n = w->sgml_composite_text.num_children; WidgetList children = w->sgml_composite_text.children; WidgetList p = children; Boolean cont; for (; n-- > 0; p++) if (*p == child) { for (; p-- != children ; ) { SGMLTextObjectClass childClass = (SGMLTextObjectClass) XtClass(*p); cont = (*childClass->sgml_text_class.adjust_size)(*p,y,ascent,depth); if (!cont) return FALSE; } return TRUE; } return TRUE; } /*--------------------------------------------------------------*/ /* Call the map Callback: */ /*--------------------------------------------------------------*/ static void CallMapCallback(w,event) SGMLCompositeTextObject w; XEvent *event; { /* * Invoke our childrens map callbacks */ SGMLTextCallbackStruct cb; int n = w->sgml_composite_text.num_children; WidgetList children = w->sgml_composite_text.children; for (; n-- > 0; children++) { SGMLTextObjectClass childClass = (SGMLTextObjectClass) XtClass(*children); (*childClass->sgml_text_class.call_map_callback)(*children,event); } /* * Then invoke our superclasses map callback */ cb.reason = SGMLTEXT_MAP; cb.event = event; cb.text = w->sgml_text.text; cb.length = w->sgml_text.length; cb.param = w->sgml_text.param; cb.param_length = w->sgml_text.param_length; XtCallCallbacks((Widget) w,SGMLNmapCallback,(XtPointer) &cb); } /*--------------------------------------------------------------*/ /* Compute Size: */ /*--------------------------------------------------------------*/ static void ComputeSize(w,geom,Adjust,Closure) SGMLCompositeTextObject w; SGMLGeometry *geom; AdjustSizeProc Adjust; Opaque Closure; { int n = w->sgml_composite_text.num_children; WidgetList children = w->sgml_composite_text.children; Position xmin, xmax; /* * Break before? */ if ( w->sgml_text.break_before ) { _SGMLBreak(geom, w->sgml_text.space_before); } /* * Query children? */ w->sgml_text.begin = geom->coord; for (; n-- > 0; children++) { SGMLTextObjectClass childClass = (SGMLTextObjectClass) XtClass(*children); (*childClass->sgml_text_class.compute_size)(*children,geom,AdjustSize,*children); } w->sgml_text.end = geom->coord; w->sgml_text.height = geom->coord.y + geom->coord.depth - w->sgml_text.begin.y; w->sgml_text.width = geom->actual_width; /* * Break after? */ if ( w->sgml_text.break_after ) { _SGMLBreak(geom,w->sgml_text.space_after); } } /*-----------------------------------------------------------------------*/ /* Create a new SGMLCompositeTextObject */ /*-----------------------------------------------------------------------*/ Widget SGMLCreateCompositeText(parent,name,al,ac) Widget parent; char *name; ArgList al; int ac; { return XtCreateWidget(name,sGMLCompositeTextObjectClass,parent,al,ac); } /*-----------------------------------------------------------------------*/ /* Public routine to add a child */ /*-----------------------------------------------------------------------*/ void SGMLCompositeTextInsertChild(parent,child) Widget parent; Widget child; { SGMLCompositeTextObjectClass parentClass = (SGMLCompositeTextObjectClass) XtClass(parent); (*parentClass->sgml_composite_text_class.insert_child)(child); } } } /*--------------------------------------------------------------*/ /* DestroyChildnen: */ /*--------------------------------------------------------------*/ static void DestroyChildren(midaswww-1.0/SGMLFormattedText.c100644 002113 001774 00000044445 05302057355 016477 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLFormattedTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a formatted text segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #include #include #include #include "SGMLFormattedTextP.h" /* Private functions */ #define max(a,b) (a>b?a:b) static void WordSize(); static void LineSize(); /* Widget class methods */ static void Initialize(); static void Destroy(); static void ComputeSize(); static Boolean AdjustSize(); static void Redisplay(); static Widget Contains(); static void Hilite(); #define Offset(field) XtOffsetOf(SGMLFormattedTextRec,sgml_formatted_text.field) static XtResource resources[] = { {SGMLNrightIndent,SGMLCMargin,XtRDimension,sizeof(int), Offset (right_indent),XtRImmediate,(XtPointer)0}, {SGMLNleftIndent,SGMLCMargin,XtRDimension,sizeof(int), Offset (left_indent),XtRImmediate,(XtPointer)0}, }; #undef Offset /*---------------------------------------------------------------*/ /* Static initialisation of the class record */ /*---------------------------------------------------------------*/ SGMLFormattedTextClassRec sGMLFormattedTextClassRec = { { (WidgetClass) &sGMLTextClassRec, /* superclass */ "SGMLFormattedText", /* class_name */ sizeof(SGMLFormattedTextRec), /* widget_size */ NULL, /* class_initialize */ NULL, /* class_part_initialize */ FALSE, /* class_inited */ Initialize, /* initialize */ NULL, /* initialize_hook */ NULL, /* obj1 */ NULL, /* obj2 */ 0, /* obj3 */ resources, /* resources */ XtNumber(resources), /* num_resources */ NULLQUARK, /* xrm_class */ 0, /* obj4 */ 0, /* obj5 */ 0, /* obj6 */ 0, /* obj7 */ Destroy, /* destroy */ NULL, /* obj8 */ NULL, /* obj9 */ NULL, /* set_values */ NULL, /* set_values_hook */ NULL, /* obj10 */ NULL, /* get_values_hook */ NULL, /* obj11 */ XtVersion, /* version */ NULL, /* callback private */ NULL, /* obj12 */ NULL, /* obj13 */ NULL, /* obj14 */ NULL, /* extension */ }, { ComputeSize, /* compute_size */ AdjustSize, /* adjust_size */ SGMLInheritAdjustPosition, /* adjust_position */ Redisplay, /* expose */ SGMLInheritActivate, /* activate */ Hilite, /* hilite */ Contains, /* contains */ SGMLInheritCallCreateCallback, /* call_create_callback */ SGMLInheritCallMapCallback, /* call_map_callback */ SGMLInheritMakeVisible, /* make_visible */ NULL, /* extension */ }, { NULL, /* ignore */ } }; WidgetClass sGMLFormattedTextObjectClass = (WidgetClass) &sGMLFormattedTextClassRec; /*--------------------------------------------------------------*/ /* Initialize: */ /*--------------------------------------------------------------*/ static void Initialize (request, new) SGMLFormattedTextObject request, new; { new->sgml_formatted_text.word_info = NULL; new->sgml_formatted_text.line_info = NULL; new->sgml_formatted_text.nwords = 0; new->sgml_formatted_text.nlines = 0; new->sgml_formatted_text.left_indent = new->sgml_text.left_indent; new->sgml_formatted_text.right_indent = new->sgml_text.right_indent; } /*--------------------------------------------------------------*/ /* Destroy the widget: release all memory allocated */ /*--------------------------------------------------------------*/ static void Destroy (w) SGMLFormattedTextObject w; { XtFree((char *) w->sgml_formatted_text.word_info); XtFree((char *) w->sgml_formatted_text.line_info); } /*--------------------------------------------------------------*/ /* Contains: */ /*--------------------------------------------------------------*/ static Widget Contains(w,x,y) SGMLFormattedTextObject w; Position x,y; { if (w->sgml_text.sensitive && w->sgml_text.begin.y < y && w->sgml_text.begin.y + w->sgml_text.height > y && w->sgml_text.margin < x && w->sgml_text.margin + w->sgml_text.width > x ) { if (w->sgml_text.begin.y == w->sgml_text.end.y) { return (Widget) w; } else if (y > w->sgml_text.end.y) { return (x < w->sgml_text.end.x)?(Widget) w:NULL; } else if (y > w->sgml_text.begin.y + w->sgml_text.begin.depth) { return (Widget) w; } else { return (x > w->sgml_text.begin.x)?(Widget) w:NULL; } } return NULL; } /*--------------------------------------------------------------*/ /* Hilite: */ /*--------------------------------------------------------------*/ static void Hilite(t,state) SGMLTextObject t; Boolean state; { Display *dpy = XtDisplayOfObject((Widget) t); Window wind = XtWindowOfObject((Widget) t); GC gc = t->sgml_text.invert_gc; if (t->sgml_text.begin.y == t->sgml_text.end.y) { Position x = t->sgml_text.begin.x; Position y = t->sgml_text.begin.y; Dimension width = t->sgml_text.width; Dimension height = t->sgml_text.height; XFillRectangle(dpy,wind,gc,x,y,width,height); } else { XPoint p[8]; p[0].x = t->sgml_text.begin.x; p[0].y = t->sgml_text.begin.y; p[1].x = t->sgml_text.margin + t->sgml_text.width; p[1].y = p[0].y; p[2].x = p[1].x; p[2].y = t->sgml_text.end.y; p[3].x = t->sgml_text.end.x; p[3].y = p[2].y; p[4].x = p[3].x; p[4].y = t->sgml_text.end.y + t->sgml_text.end.depth; p[5].x = t->sgml_text.margin; p[5].y = p[4].y; p[6].x = p[5].x; p[6].y = t->sgml_text.begin.y + t->sgml_text.begin.depth; p[7].x = p[0].x; p[7].y = p[6].y; XFillPolygon(dpy,wind,gc,p,XtNumber(p),Nonconvex,CoordModeOrigin); } } /*--------------------------------------------------------------*/ /* Redisplay */ /*--------------------------------------------------------------*/ static void Redisplay(t,event,region) SGMLFormattedTextObject t; XEvent *event; Region region; { Position y = t->sgml_text.begin.y; Position margin = t->sgml_text.margin; Dimension width = t->sgml_text.width; Dimension height = t->sgml_text .height; if(XRectInRegion(region,margin,y,width,height) != RectangleOut) { Display *dpy = XtDisplayOfObject((Widget) t); Window wind = XtWindowOfObject((Widget) t); GC gc = t->sgml_text.gc; XSegment *segs = NULL; Position x = t->sgml_text.begin.x; Dimension depth = t->sgml_text.begin.depth; Dimension ascent = t->sgml_text.begin.ascent; WordInfo *info = t->sgml_formatted_text.word_info; LineInfo *line = t->sgml_formatted_text.line_info; SGMLRendition *rendition; int l; if (t->sgml_text.sensitive) rendition = &t->sgml_text.sensitive_rendition; else rendition = &t->sgml_text.normal_rendition; for( l = 0 ; l < t->sgml_formatted_text.nlines; ) { if (XRectInRegion(region,margin,y,width,depth) != RectangleOut && line[l].nchars > 0) { int m; char *p = XtMalloc(line[l].nchars); char *q = p; for ( m = line[l].start ; m < line[l].stop ; m++) { strncpy(p,info[m].word,info[m].length); p += info[m].length; *p++ = ' '; } *--p = '\0'; XDrawString(dpy, wind,gc, x, y+ascent, q,line[l].nchars-1); if (rendition->underline) { int s; Position yy = y+ascent; if (!segs) segs = (XSegment *) XtMalloc(sizeof(XSegment) * rendition->underline); for (s=0; s < rendition->underline ; s++ ) { yy += max(rendition->underline_height,1); segs[s].x1 = x; segs[s].x2 = line[l].size; segs[s].y1 = yy; segs[s].y2 = yy; yy += max(rendition->underline_height,1); } XDrawSegments(dpy,wind,gc,segs,rendition->underline); } if (rendition->outline) { XDrawRectangle(dpy,wind,gc,x,y,line[l].size-x,depth-1); } XtFree(q); } x = margin; y += depth; if (l++ == t->sgml_formatted_text.nlines) break; else if ( l+1 == t->sgml_formatted_text.nlines) { depth = t->sgml_text.end.depth; ascent = t->sgml_text.end.ascent; } else { depth = t->sgml_text.depth; ascent = t->sgml_text.ascent; } } XtFree((char *) segs); } } /*--------------------------------------------------------------*/ /* Adjust Size: */ /*--------------------------------------------------------------*/ static Boolean AdjustSize(w,y,ascent,depth) SGMLFormattedTextObject w; Position y; Dimension ascent, depth; { if (w->sgml_text.end.y != y) return FALSE; w->sgml_text.end.ascent = ascent; w->sgml_text.height += depth - w->sgml_text.end.depth; w->sgml_text.end.depth = depth; if (w->sgml_text.begin.y == y) { w->sgml_text.begin.ascent = ascent; w->sgml_text.begin.depth = depth; return TRUE; } return FALSE; } /*--------------------------------------------------------------*/ /* Compute Size: */ /*--------------------------------------------------------------*/ static void ComputeSize(w,geom,Adjust,Closure) SGMLFormattedTextObject w; SGMLGeometry *geom; AdjustSizeProc Adjust; Opaque Closure; { Dimension left_clearance = w->sgml_text.left_margin + w->sgml_formatted_text.left_indent; Dimension right_clearance = w->sgml_text.right_margin + w->sgml_formatted_text.right_indent; Boolean punctuation; char *punc_char = ".,:;)"; Position xmin, xmax; /* If we haven't already calculated the size of the words, do so now. */ if (w->sgml_formatted_text.word_info == NULL) WordSize(w); /* * Break before? */ if ( w->sgml_text.break_before == SGMLBREAK_ALWAYS || (w->sgml_text.break_before == SGMLBREAK_SOFT && geom->coord.x > left_clearance) || (w->sgml_text.alignment != geom->alignment && geom->alignment)) { _SGMLBreak(geom,w->sgml_text.space_before); } /* * We will leave a space before the first word if: * a) Not beginning a new line * b) Not a punctuation character * c) the geometry structure requests it. */ punctuation = !w->sgml_formatted_text.word_info || strchr(punc_char,*w->sgml_formatted_text.word_info[0].word); if (!punctuation) if (geom->coord.x + w->sgml_text.spacing + w->sgml_formatted_text.word_info[0].size + right_clearance > geom->natural_width) { geom->coord.x = left_clearance; geom->coord.y += geom->coord.depth; geom->coord.depth = w->sgml_text.depth; geom->coord.ascent = w->sgml_text.ascent; } else if (geom->leave_space) geom->coord.x += w->sgml_text.spacing; if (w->sgml_text.depth > geom->coord.depth || w->sgml_text.ascent > geom->coord.ascent ) { if (w->sgml_text.depth > geom->coord.depth) geom->coord.depth = w->sgml_text.depth; if (w->sgml_text.ascent > geom->coord.ascent) geom->coord.ascent = w->sgml_text.ascent; Adjust(Closure, geom->coord.y, geom->coord.ascent, geom->coord.depth); } if (left_clearance > geom->coord.x && geom->broken) geom->coord.x = left_clearance; w->sgml_text.begin = geom->coord; LineSize(w,geom,&xmin,&xmax); if (xmax > geom->actual_width) geom->actual_width = xmax; w->sgml_text.width = xmax - xmin; w->sgml_text.margin = xmin; w->sgml_text.height = geom->coord.y + geom->coord.depth - w->sgml_text.begin.y; w->sgml_text.end = geom->coord; /* * Break after? */ if (w->sgml_text.break_after) { _SGMLBreak(geom,w->sgml_text.space_after); } } /*-----------------------------------------------------------------------*/ /* Private routines */ /*-----------------------------------------------------------------------*/ /* WordSize: Build an array giving the length of each word */ /*-----------------------------------------------------------------------*/ static void WordSize(w) SGMLFormattedTextObject w; { int nwords; char *p = w->sgml_text.text; char *delim = " \t\n"; WordInfo *info = w->sgml_formatted_text.word_info; XFontStruct *font; if (w->sgml_text.sensitive) font=w->sgml_text.sensitive_rendition.font; else font=w->sgml_text.normal_rendition.font; /* count how many words */ for (nwords=0; *p != '\0';nwords++) { for (; *p != '\0' && strchr(delim,*p); p++); /* scan white space */ if (*p == '\0') break; for (; !strchr(delim,*p); p++); } /* Allocate storage for word statistics */ XtFree((char *) info); info = nwords?(WordInfo *) XtMalloc(sizeof(WordInfo) * nwords):NULL; /* Now store length of each word */ p = w->sgml_text.text; for (nwords=0; *p != '\0' ; nwords++) { for (; *p != '\0' && strchr(delim,*p); p++); /* scan white space */ if (*p == '\0') break; info[nwords].word = p; for (; !strchr(delim,*p); p++); info[nwords].length = p - info[nwords].word; info[nwords].size = XTextWidth(font,info[nwords].word,info[nwords].length); } w->sgml_formatted_text.word_info = info; w->sgml_formatted_text.nwords = nwords; } /*-----------------------------------------------------------------------*/ /* LineSize: Build an array giving the length of each line */ /*-----------------------------------------------------------------------*/ static void LineSize(w, geom, xmin, xmax) SGMLFormattedTextObject w; SGMLGeometry *geom; Position *xmin, *xmax; { Position x = geom->coord.x; Position y = geom->coord.y; Position maxX = x; Position minX = x; int n = 0; int l = 0; int nc = 0; int lmax = 10; Dimension size = 0; Dimension spacing = 0; WordInfo *info = w->sgml_formatted_text.word_info; Dimension left_clearance = w->sgml_text.left_margin + w->sgml_formatted_text.left_indent; Dimension right_clearance = w->sgml_text.right_margin + w->sgml_formatted_text.right_indent; LineInfo *line = (LineInfo *) XtMalloc(lmax*sizeof(LineInfo)); XtFree((char *) w->sgml_formatted_text.line_info); line[l].start = n; for (; n < w->sgml_formatted_text.nwords; n++) { if (spacing>0 && x + spacing + info[n].size + right_clearance > geom->natural_width) { line[l].stop = n; line[l].nchars = nc; line[l].size = x; if (x > maxX) maxX = x; if (++l == lmax) line = (LineInfo *) XtRealloc((char *) line, (lmax *= 2)*sizeof(LineInfo)); line[l].start = n; x = left_clearance + info[n].size; y += geom->coord.depth; geom->coord.depth = w->sgml_text.depth; geom->coord.ascent = w->sgml_text.ascent; minX = left_clearance; nc = info[n].length + 1; } else { x += spacing + info[n].size; nc += info[n].length + 1; } geom->alignment = w->sgml_text.alignment; geom->broken = FALSE; geom->leave_space = TRUE; spacing = w->sgml_text.spacing; } line[l].stop = n; line[l].nchars = nc; line[l].size = x; if (x > maxX) maxX = x; w->sgml_formatted_text.line_info = line; w->sgml_formatted_text.nlines = l + 1; geom->coord.x = x; geom->coord.y = y; *xmin = minX; *xmax = maxX; } /*-----------------------------------------------------------------------*/ /* Create a new SGMLFormattedTextObject */ /*-----------------------------------------------------------------------*/ Widget SGMLCreateFormattedText(parent,name,al,ac) Widget parent; char *name; ArgList al; int ac; { return XtCreateWidget(name,sGMLFormattedTextObjectClass,parent,al,ac); } ition margin = t->sgml_text.margin; Dimension width = t->sgml_text.width; Dimension height = t->sgml_text .height; if(XRectInRegion(region,margin,y,width,height) != RectangleOut) { Display *dpy =midaswww-1.0/SGMLHyper.c100644 002113 001774 00000145357 05302057355 015000 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLHyperWidget */ /* */ /* B.Raoult (mab@ecmwf.co.uk) Oct.91 */ /* T.Johnson - added SGML facilities June.92 */ /* (Tony Johnson) */ /* */ /* Hyper text like widget. */ /* */ /*==================================================================*/ #include #include #include #include #include #include #include #include #include #include #include "SGMLTextP.h" #include "SGMLPlainText.h" #include "SGMLFormattedText.h" #include "SGMLCompositeText.h" #include "SGMLAnchorText.h" #include "SGMLMarkerText.h" #include "SGMLListText.h" #include "SGMLHyperP.h" #ifndef ABS #define ABS(a) ((a)>=0?(a):-(a)) #endif #ifndef MIN #define MIN(a,b) ((a)>(b)?(b):(a)) #endif #define MAX_LINE_SIZE 1024 /* Private functions */ static void create_gcs(); static void selectt(); static void cursor(); static void activate(); static Widget add_to_text(); static void set_tag(); static void calc_new_size (); static void zoom_open (); static void show_selection(); static void lowcase(); static int NumberOfClasses = 0; static WidgetClass *ClassList = NULL; static XrmName NullQuark; /* Widget class methods */ static void DeleteChild(); static void InsertChild(); static void ClassInitialize(); static void Initialize(); static void Redisplay(); static void Resize(); static void Destroy(); static Boolean SetValues(); static char defaultTranslations[] = ":select()\n: activate()\n:cursor()"; static XtActionsRec actionsList[] = { { "select", (XtActionProc) selectt}, { "activate", (XtActionProc) activate}, { "cursor", (XtActionProc) cursor}, }; #define Offset(field) XtOffsetOf(SGMLHyperRec, sgml_hyper.field) static XtResource resources[] = { {SGMLNactivateCallback,SGMLCCallback,XtRCallback,sizeof(caddr_t), Offset (activate),XtRCallback,NULL}, {SGMLNcaseSensitiveTags,SGMLCCaseSensitiveTags,XtRBoolean,sizeof(Boolean), Offset (case_sensitive_tags),XtRImmediate,(XtPointer)FALSE}, {SGMLNzoomEffect,SGMLCZoom,XtRBoolean,sizeof(Boolean), Offset (zoom),XtRImmediate,(XtPointer)TRUE}, {SGMLNzoomSpeed,SGMLCZoomSpeed,XtRInt,sizeof(int), Offset (speed),XtRImmediate,(XtPointer)4}, {SGMLNcacheSize,SGMLCCacheSize,XtRInt,sizeof(int), Offset (cache_size),XtRImmediate,(XtPointer)0}, {SGMLNopenTag,SGMLCTagChar,XtRUnsignedChar,sizeof(unsigned char), Offset(open_tag),XtRImmediate,(XtPointer)'<'}, {SGMLNcloseTag,SGMLCTagChar,XtRUnsignedChar,sizeof(unsigned char), Offset(close_tag),XtRImmediate,(XtPointer)'>'}, {SGMLNendTag,SGMLCTagChar,XtRUnsignedChar,sizeof(unsigned char), Offset(end_tag),XtRImmediate,(XtPointer)'/'}, {SGMLNparameterTag,SGMLCTagChar,XtRUnsignedChar,sizeof(unsigned char), Offset(parameter_tag),XtRImmediate,(XtPointer)' '}, {SGMLNmargin,SGMLCMargin,XtRDimension,sizeof(Dimension), Offset (margin),XtRImmediate,(XtPointer)10}, {SGMLNnaturalWidth,SGMLCWidth,XtRDimension,sizeof(Dimension), Offset (natural_width),XtRImmediate,(XtPointer)500}, }; #undef Offset /* stack pointer */ static int sp = 0; /*---------------------------------------------------------------*/ /* Static initialisation of the class record */ /*---------------------------------------------------------------*/ static CompositeClassExtensionRec compositeExtension = { NULL, /* next_extension */ NULLQUARK, /* record_type */ XtCompositeExtensionVersion, /* version */ sizeof(CompositeClassExtensionRec), /* record_size */ TRUE /* accepts_objects */ }; SGMLHyperClassRec sGMLHyperClassRec = { { #ifdef MOTIF (WidgetClass) &xmManagerClassRec, /* superclass */ #else (WidgetClass) &compositeClassRec, /* superclass */ #endif "SGMLHyper", /* class_name */ sizeof(SGMLHyperRec), /* widget_size */ ClassInitialize, /* class_initialize */ NULL, /* class_part_initialize */ FALSE, /* class_inited */ Initialize, /* initialize */ NULL, /* initialize_hook */ XtInheritRealize, /* realize */ actionsList, /* actions */ XtNumber(actionsList), /* num_actions */ resources, /* resources */ XtNumber(resources), /* num_resources */ NULLQUARK, /* xrm_class */ TRUE, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterleave */ TRUE, /* visible_interest */ Destroy, /* destroy */ Resize, /* resize */ Redisplay, /* expose */ SetValues, /* set_values */ NULL, /* set_values_hook */ XtInheritSetValuesAlmost, /* set_values_almost */ NULL, /* get_values_hook */ NULL, /* accept_focus */ XtVersion, /* version */ NULL, /* callback private */ defaultTranslations, /* tm_table */ NULL, /* query_geometry */ NULL, /* display_accelerator */ NULL, /* extension */ }, { NULL, /* geometry manager */ NULL, /* change_managed */ InsertChild, /* insert_child */ DeleteChild, /* delete_child */ (XtPointer) &compositeExtension /* extension */ }, #ifdef MOTIF { }, { XtInheritTranslations, /* translations */ NULL, /* syn_resources */ 0, /* num_syn_resources */ NULL, /* syn_constraint_resources */ 0, /* num_syn_constraint_resources */ NULL, /* parent_process */ NULL, /* extension */ }, #endif { 0, /* ignore */ } }; static Boolean IsSubClass(sub,class) WidgetClass sub, class; { for (; sub != NULL; sub = sub->core_class.superclass) if (sub == class) return TRUE; return FALSE; } WidgetClass sGMLHyperWidgetClass = (WidgetClass) &sGMLHyperClassRec; static void CvtStringToTagList (args, num_args, fromVal, toVal) XrmValuePtr args; Cardinal *num_args; XrmValuePtr fromVal; XrmValuePtr toVal; { char *s, *t, *p; WidgetClass current_class = NULL; Cardinal num_slots = 10; Cardinal num_used = 0; static SGMLTagList *list; list = (SGMLTagList *) XtMalloc(sizeof(SGMLTagList) * num_slots); if (*num_args != 0) XtWarningMsg("wrongParameters","cvtStringToTagList","XtToolkitError", "String to Tag List conversion needs no extra arguments", (String *) NULL, (Cardinal *)NULL); s = XtNewString((char *) fromVal->addr); for (t = strtok(s," "); t != NULL; t = strtok(NULL," ")) { if ((p = strchr(t,':')) == NULL) { XrmName tag = XrmStringToQuark(t); if (num_used == num_slots) list = (SGMLTagList *) XtRealloc((XtPointer) list, sizeof(SGMLTagList) * (num_slots *= 2)); list[num_used].name = tag; list[num_used].class = current_class; num_used++; } else { int i; *p = '\0'; current_class = NULL; for (i=0; icore_class.class_name)) current_class = ClassList[i]; if (current_class == NULL) XtStringConversionWarning(t, SGMLRClass); } } if (num_used == num_slots) list = (SGMLTagList *) XtRealloc((XtPointer) list, sizeof(SGMLTagList) * (++num_slots)); list[num_used].name = 0; list[num_used].class = NULL; num_used++; toVal->size = sizeof(XtPointer); toVal->addr = (XtPointer) &list; XtFree(s); } static void CvtStringToClass (args, num_args, fromVal, toVal) XrmValuePtr args; Cardinal *num_args; XrmValuePtr fromVal; XrmValuePtr toVal; { char *s; int p; if (*num_args != 0) XtWarningMsg("wrongParameters","cvtStringToClass","XtToolkitError", "String to Class conversion needs no extra arguments", (String *) NULL, (Cardinal *)NULL); s = (char *) fromVal->addr; for (p=0; pcore_class.class_name)) { toVal->size = sizeof(WidgetClass); toVal->addr = (XtPointer) &ClassList[p]; return; } XtStringConversionWarning((char *) fromVal->addr, SGMLRClass); } /*--------------------------------------------------------------*/ /* ClassInitialize: Register the standard text classes */ /*--------------------------------------------------------------*/ static void ClassInitialize() { XtAddConverter (XtRString, SGMLRTagList, CvtStringToTagList, (XtConvertArgList) NULL, (Cardinal) 0); XtAddConverter (XtRString, SGMLRClass, CvtStringToClass, (XtConvertArgList) NULL, (Cardinal) 0); SGMLHyperDeclareClass(sGMLTextObjectClass); SGMLHyperDeclareClass(sGMLPlainTextObjectClass); SGMLHyperDeclareClass(sGMLFormattedTextObjectClass); SGMLHyperDeclareClass(sGMLAnchorTextObjectClass); SGMLHyperDeclareClass(sGMLMarkerTextObjectClass); SGMLHyperDeclareClass(sGMLCompositeTextObjectClass); SGMLHyperDeclareClass(sGMLListTextObjectClass); NullQuark = XrmStringToQuark(NULL); } /*--------------------------------------------------------------*/ /* Initialize: */ /*--------------------------------------------------------------*/ static void Initialize (request, new) SGMLHyperWidget request, new; { Arg arglist[10]; int n = 0; /* Check the size of the widget */ if (request->core.width == 0) new->core.width = 100; if (request->core.height == 0) new->core.height = 100; /* new->sgml_hyper.last_selected = NULL; new->sgml_hyper.last_cursor = NULL; */ new->sgml_hyper.hand = XCreateFontCursor(XtDisplay(new),XC_hand2); /* Nothing found */ /* new->sgml_hyper.grep_seg = NULL; */ new->sgml_hyper.grep_txt = NULL; new->sgml_hyper.grep_len = 0; new->sgml_hyper.grep_off = 0; new->sgml_hyper.managed = NULL; } /*--------------------------------------------------------------*/ /* Destroy the widget: release all memory allocated */ /*--------------------------------------------------------------*/ static void Destroy (w) SGMLHyperWidget w; { XtRemoveAllCallbacks ((Widget) w,SGMLNactivateCallback); } /*--------------------------------------------------------------*/ /* DeleteChild : deal with the case where this is managed */ /*--------------------------------------------------------------*/ static void DeleteChild(w) Widget w; { SGMLHyperWidget parent = (SGMLHyperWidget) XtParent(w); if (parent->sgml_hyper.managed == w) parent->sgml_hyper.managed = NULL; /* Invoke the superclass's delete_child method */ (*((CompositeWidgetClass)(sGMLHyperWidgetClass->core_class.superclass))-> composite_class.delete_child) (w); } /*--------------------------------------------------------------*/ /* InsertChild : Only accept SGMLTextObject as child */ /*--------------------------------------------------------------*/ static void InsertChild(w) Widget w; { String params[2]; Cardinal num_params; SGMLHyperWidget parent = (SGMLHyperWidget) XtParent(w); if (!SGMLIsText(w)) { params[0] = XtClass(w)->core_class.class_name; params[1] = XtClass(parent)->core_class.class_name; num_params = 2; XtAppErrorMsg(XtWidgetToApplicationContext(w), "childError","class","WidgetError", "Children of class %s cannot be added to %s widgets", params, &num_params); } if (parent->composite.num_children >= parent->sgml_hyper.cache_size) { if (parent->composite.num_children) XtDestroyWidget(*parent->composite.children); } /* Invoke the superclass's insert_child method */ (*((CompositeWidgetClass)(sGMLHyperWidgetClass->core_class.superclass))-> composite_class.insert_child) (w); } /*--------------------------------------------------------------*/ /* Resize : not implemented */ /*--------------------------------------------------------------*/ static void Resize (w) SGMLHyperWidget w; { /* For futur implementation May be for text warp ... */ } /*--------------------------------------------------------------*/ /* Redisplay : redraw the text */ /*--------------------------------------------------------------*/ static void Redisplay (w, event, region) SGMLHyperWidget w; XEvent *event; Region region; { if(w->core.visible && w->sgml_hyper.managed) { SGMLTextObjectClass childClass = (SGMLTextObjectClass) XtClass(w->sgml_hyper.managed); (*childClass->sgml_text_class.expose)(w->sgml_hyper.managed,event,region); } /* if(w->sgml_hyper.grep_seg) { if(XRectInRegion(region, w->sgml_hyper.grep_x, w->sgml_hyper.grep_y, w->sgml_hyper.grep_width, w->sgml_hyper.grep_height) != RectangleOut) XFillRectangle(XtDisplay(w),XtWindow(w), (w->sgml_hyper.grep_seg->type == HIGHLIGHT) ? w->sgml_hyper.select_gc : w->sgml_hyper.xor_gc, w->sgml_hyper.grep_x, w->sgml_hyper.grep_y, w->sgml_hyper.grep_width, w->sgml_hyper.grep_height); } */ } /*------------------------------------------------------------------*/ /* SetValues : redraw only for font or color changes */ /*------------------------------------------------------------------*/ static Boolean SetValues (current, request, new) SGMLHyperWidget current, request, new; { Boolean redraw = FALSE; #define HAS_CHANGED(a) (new->a != current->a) if( HAS_CHANGED(sgml_hyper.natural_width) ) { /* invalidate size of all text widget children */ int n = new->composite.num_children; SGMLTextObject *children = (SGMLTextObject *) new->composite.children; for (; n-- > 0; children++) (*children)->sgml_text.size_valid = FALSE; /* rebuild text */ calc_new_size(new); redraw = TRUE; } return (redraw); #undef HAS_CHANGED } /*------------------------------------------------------------------*/ /* Adjust the size of a child */ /*------------------------------------------------------------------*/ static AdjustSizeProc adjust_size(child,y,ascent,depth) Widget child; Position y; Dimension ascent, depth; { return FALSE; } /*------------------------------------------------------------------*/ /* Calculate the size of the widget */ /*------------------------------------------------------------------*/ static void calc_new_size(w) SGMLHyperWidget w; { XtGeometryResult result; Dimension replyWidth = 0, replyHeight = 0; Dimension width, height; SGMLGeometry geom; geom.coord.x = 0; geom.coord.y = w->sgml_hyper.margin; geom.coord.depth = 0; geom.coord.ascent = 0; geom.broken = TRUE; geom.leave_space = FALSE; geom.space = 99999; geom.actual_width = 2 * w->sgml_hyper.margin; geom.natural_width = w->sgml_hyper.natural_width; /* Loop over all of the text segments, getting each to tell us how much space it needs */ if (w->sgml_hyper.managed) { SGMLTextObject t = (SGMLTextObject) w->sgml_hyper.managed; if (t->sgml_text.size_valid) { width = t->sgml_text.width; height = geom.coord.y + t->sgml_text.height; } else { SGMLTextObjectClass childClass = (SGMLTextObjectClass) XtClass((Widget) t); (*childClass->sgml_text_class.compute_size)(t,&geom,adjust_size,w->sgml_hyper.managed); t->sgml_text.size_valid = TRUE; width = geom.actual_width; height = geom.coord.y + geom.coord.depth; } } width += w->sgml_hyper.margin; height += w->sgml_hyper.margin; /* Tell our parent we want a new size */ if(w->core.width != width || w->core.height != height) { result = XtMakeResizeRequest((Widget) w,width,height, &replyWidth, &replyHeight) ; if (result == XtGeometryAlmost) XtMakeResizeRequest ((Widget) w, replyWidth, replyHeight,NULL, NULL); } /* Redraw the window */ if (XtIsRealized((Widget) w)) XClearArea(XtDisplay((Widget)w),XtWindow((Widget)w),0,0,0,0,True); } /*-----------------------------------------------------------------------*/ /* Find the "visible" part of a widget as the intersection of all the */ /* windows of it's parents' windows */ /*-----------------------------------------------------------------------*/ static void find_visible_part(w,x,y,width,height) Widget w; Position *x; Position *y; Dimension *width; Dimension *height; { Position root_x,root_y; Widget p = w; *width = w->core.width; *height = w->core.height; XtTranslateCoords(w,0,0,&root_x,&root_y); *x = 0; *y = 0; while(p = XtParent(p)) { Position rx,ry; Dimension w,h; /* make all computations in the root's coordinate system */ XtTranslateCoords(p,0,0,&rx,&ry); w = p->core.width; h = p->core.height; /* use the smallest rectangle */ if(w < *width) *width = w; if(h < *height) *height = h; if(rx>root_x) root_x = rx; if(ry>root_y) root_y = ry; /* stop when reach a shell, don't go to top level shell */ if(XtIsShell(p)) break; } /* Back to the widget's coordinate system */ XtTranslateCoords(w,0,0,x,y); *x = root_x - *x; *y = root_y - *y; } /*-----------------------------------------------------------------------*/ /* Do an "zoom" effect animation, from the selected text segment to the */ /* visible part of the widget */ /*-----------------------------------------------------------------------*/ static void zoom_open(w) SGMLHyperWidget w; /* text_segment *s; */ { /* int dx1,dx2,dy1,dy2; Position x ; Position y ; Dimension width ; Dimension height ; /* selected rectangle * Position xs = s->x; Position ys = s->y; Dimension ws = s->width; Dimension hs = s->height; /* get the rectangle we want to zoom to * find_visible_part(w,&x,&y,&width,&height); /* make sure selected rectangle in visible * if(xs x+width) ws = x+width-xs; if(ys+hs > y+height) hs = y+height-ys; /* get the offsets in each directions * dx1 = x-xs; dy1 = y-ys; dx2 = ((x+width)-(xs+ws)); dy2 = ((y+height)-(ys+hs)); /* in the rectangles are differents * if(dx1 || dy1 || dx2 || dy2) { int min = 32000; /* <-- Can be buggy * /* work in "left,top,bottom,right" rectangles (Mac) rather than "x,y,width,height" (X) It's easier for the animation * int xws = xs+ws; int yhs = ys+hs; int xw = x + width; int yh = y + height; /* Get smallest non-null offset * if(dx1) min = MIN(min,ABS(dx1)); if(dx2) min = MIN(min,ABS(dx2)); if(dy1) min = MIN(min,ABS(dy1)); if(dy2) min = MIN(min,ABS(dy2)); /* Scale offsets so minimun offset is 1 pixel * dx1 /= min; dx2 /= min; dy1 /= min; dy2 /= min; /* Use speed .. * dx1 *= w->sgml_hyper.speed; dx2 *= w->sgml_hyper.speed; dy1 *= w->sgml_hyper.speed; dy2 *= w->sgml_hyper.speed; /* Animate * while(min--) { XDrawRectangle(XtDisplay(w),XtWindow(w), w->sgml_hyper.xor_gc,xs,ys,xws-xs,yhs-ys); /* Needed, otherwise X calls are buffered * XSync(XtDisplay(w),False); XDrawRectangle(XtDisplay(w),XtWindow(w), w->sgml_hyper.xor_gc,xs,ys,xws-xs,yhs-ys); xs += dx1; ys += dy1; xws += dx2; yhs += dy2; } } */ } /*----------------------------------------------------------------------*/ /* Find the Widget (Gadget) at point (x,y) */ /*----------------------------------------------------------------------*/ SGMLTextObject find_segment(w,x,y) SGMLHyperWidget w; int x,y; { if (w->sgml_hyper.managed) { SGMLTextObjectClass childClass = (SGMLTextObjectClass) XtClass(w->sgml_hyper.managed); Widget result = (*childClass->sgml_text_class.contains)(w->sgml_hyper.managed,x,y); return (SGMLTextObject) result; } return NULL; } /*-----------------------------------------------------------------------*/ /* Check for mouse down */ /*-----------------------------------------------------------------------*/ static void selectt (w, event, args, n_args) SGMLHyperWidget w; XEvent *event; char *args[]; int n_args; { /* Find if the user clicked in a (sensitive) text object */ SGMLTextObject s = find_segment(w,event->xbutton.x,event->xbutton.y); w->sgml_hyper.last_selected = s; if (s != NULL) { SGMLTextObjectClass childClass = (SGMLTextObjectClass) XtClass((Widget) s); (*childClass->sgml_text_class.hilite)(s,TRUE); } } /*-----------------------------------------------------------------------*/ /* Check for mouse up */ /*-----------------------------------------------------------------------*/ static void activate (w, event, args, n_args) SGMLHyperWidget w; XEvent *event; char *args[]; int n_args; { SGMLTextObject s = find_segment(w,event->xbutton.x,event->xbutton.y); /* Find if the user clicked in a highlighted text */ if(s != NULL && s == w->sgml_hyper.last_selected) { SGMLTextObjectClass childClass = (SGMLTextObjectClass) XtClass((Widget) s); (*childClass->sgml_text_class.hilite)(s,FALSE); /* zoom if required * * * if(w->sgml_hyper.zoom) zoom_open(w,s); */ (*childClass->sgml_text_class.activate)(s,event); } w->sgml_hyper.last_selected = NULL; } /*-----------------------------------------------------------------------*/ /* Check for mouse moves */ /*-----------------------------------------------------------------------*/ static void cursor (w, event, args, n_args) SGMLHyperWidget w; XEvent *event; char *args[]; int n_args; { SGMLTextObject s = find_segment(w,event->xbutton.x,event->xbutton.y); SGMLTextObject l = w->sgml_hyper.last_selected; if(s != w->sgml_hyper.last_cursor) { if ( l != NULL && (s == l || l == w->sgml_hyper.last_cursor)) { SGMLTextObjectClass childClass = (SGMLTextObjectClass) XtClass((Widget) l); (*childClass->sgml_text_class.hilite)(l,s == l); } if(s) XDefineCursor(XtDisplay(w),XtWindow(w),w->sgml_hyper.hand); else XUndefineCursor(XtDisplay(w),XtWindow(w)); w->sgml_hyper.last_cursor = s; } } /*-----------------------------------------------------------------------*/ /* Add text to a text segment */ /*-----------------------------------------------------------------------*/ static Widget add_to_text(name,parent,class,text,param) Widget parent; SGMLTextObjectClass class; char *text, *param, *name; { Arg arglist[10]; int n=0; Widget new; XtSetArg(arglist[n],SGMLNtext, text); n++; XtSetArg(arglist[n],SGMLNparam, param); n++; new = XtCreateWidget(name,(WidgetClass) class,parent,arglist,n); if (SGMLIsCompositeText(parent)) SGMLCompositeTextInsertChild(parent,new); /* * Invoke the CreateCallback */ (*class->sgml_text_class.call_create_callback)(new,NULL); return new; } /*-----------------------------------------------------------------------*/ /* check a tag: returns TRUE if tag accepted */ /* FALSE if tag rejected */ /*-----------------------------------------------------------------------*/ static Boolean check_tag(w,tag,Text,Name) SGMLHyperWidget w; char *tag; XrmName Name; Widget Text; { XrmName tagQuark; char et = w->sgml_hyper.end_tag; Arg arglist[10]; int n = 0; int i; SGMLTagList *tagList; Boolean end = (*tag == et); if (end) tag++; if (!w->sgml_hyper.case_sensitive_tags) lowcase(tag); tagQuark = XrmStringToQuark(tag); if (Name != NullQuark) if (end) return (tagQuark == Name); else return FALSE; if (end) if (tagQuark == Text->core.xrm_name) return TRUE; else return FALSE; XtSetArg(arglist[n],SGMLNtagList,&tagList); n++; XtGetValues(Text,arglist,n); if (tagList) for (i=0; tagList[i].class != NULL; i++) if (tagList[i].name == tagQuark) return TRUE; return FALSE; } /*-----------------------------------------------------------------------*/ /* set a new tag: the tag must previously have been accepted by */ /* check tag */ /*-----------------------------------------------------------------------*/ static void set_tag(w,tag,inoutText,inoutClass,inoutName,param) SGMLHyperWidget w; char *tag, *param; XrmName *inoutName; Widget *inoutText; WidgetClass *inoutClass; { XrmName tagQuark; char et = w->sgml_hyper.end_tag; Widget text = *inoutText; WidgetClass class = *inoutClass; XrmName name = *inoutName; Boolean end = (*tag == et); if (end) tag++; if (!w->sgml_hyper.case_sensitive_tags) lowcase(tag); tagQuark = XrmStringToQuark(tag); if (name != NullQuark) { Arg arglist[10]; int n = 0; *inoutName = NullQuark; XtSetArg(arglist[n],SGMLNdefaultClass,&class); n++; XtGetValues(text,arglist,n); *inoutClass = class; return; } if (end) text = XtParent(text); else { Arg arglist[10]; int n = 0; int i; SGMLTagList *tagList; XtSetArg(arglist[n],SGMLNtagList,&tagList); n++; XtGetValues(text,arglist,n); for (i=0; tagList[i].class != NULL; i++) if (tagList[i].name == tagQuark) { class = tagList[i].class; if (IsSubClass(class,sGMLMarkerTextObjectClass)) { add_to_text(tag,text,class,NULL,param); class = *inoutClass; } else if (IsSubClass(class,sGMLCompositeTextObjectClass)) { text = add_to_text(tag,text,class,NULL,param); } else { *inoutName = tagQuark; } break; } } if (text != *inoutText) { Arg arglist[10]; int n = 0; XtSetArg(arglist[n],SGMLNdefaultClass,&class); n++; XtGetValues(text,arglist,n); } *inoutText = text; *inoutClass = class; } /*-----------------------------------------------------------------------*/ /* Rebuild the text structure. Called when the font changes */ /*-----------------------------------------------------------------------*/ void SGMLHyperManageChild(w) Widget w; { SGMLTextObjectClass class = (SGMLTextObjectClass) XtClass(w); Widget parent = XtParent(w); XUndefineCursor(XtDisplay(parent),XtWindow(parent)); /* In case cursor was set */ ((SGMLHyperWidget) parent)->sgml_hyper.managed = w; (*class->sgml_text_class.call_map_callback)(w,NULL); calc_new_size(parent); } /*-----------------------------------------------------------------------*/ /* Build the text. Gets the chars from the funtion "get_next_char" */ /* using "data" as a parameter */ /*-----------------------------------------------------------------------*/ static Widget set_text(w,get_next_char,data) SGMLHyperWidget w; char (*get_next_char)(); XtPointer data; { #define NORMAL 0 #define TAG 1 #define PARAM 2 char *tag, *word, *param = NULL; int wordsize; int i = 0; char ot = w->sgml_hyper.open_tag; char ct = w->sgml_hyper.close_tag; char pt = w->sgml_hyper.parameter_tag; Widget parentText, topText; WidgetClass currentClass; XrmName currentName = NullQuark; char c; int mode = NORMAL; Arg arglist[10]; int n = 0; /* Create the base text object */ topText = parentText = XtCreateWidget("default",sGMLCompositeTextObjectClass,(Widget)w,NULL,0); XtSetArg(arglist[n],SGMLNdefaultClass,¤tClass); n++; XtGetValues(parentText,arglist,n); /* w->sgml_hyper.first_seg = NULL; w->sgml_hyper.last_selected = NULL; w->sgml_hyper.last_cursor = NULL; w->sgml_hyper.grep_seg = NULL; */ w->sgml_hyper.grep_txt = NULL; w->sgml_hyper.grep_len = 0; w->sgml_hyper.grep_off = 0; wordsize = MAX_LINE_SIZE; word = XtMalloc(wordsize); while(c = (get_next_char)(data)) { /* kludge */ if (mode == TAG && (c == '\n' || c == '\t')) c = ' '; /* Open Tag */ if (mode == NORMAL && c == ot) { word[i++] = c; if(i == wordsize) word = XtRealloc(word, (wordsize *= 2)); tag = &word[i]; mode = TAG; } /* Parameter */ else if (mode == TAG && c == pt) { word[i] = '\0'; if (check_tag(w,tag,parentText,currentName)) { *(tag-1) = '\0'; if (*word) add_to_text(XrmQuarkToString(currentName),parentText,currentClass,word,param); i++; if(i == wordsize) word = XtRealloc(word, (wordsize *= 2)); XtFree(param); param = &word[i]; mode = PARAM; } else { word[i++] = pt; if(i == wordsize) word = XtRealloc(word, (wordsize *= 2)); mode = NORMAL; } } /* Close Tag */ else if (mode == TAG && c == ct) { word[i] = '\0'; if (check_tag(w,tag,parentText,currentName)) { *(tag-1) = '\0'; if (*word) add_to_text(XrmQuarkToString(currentName),parentText,currentClass,word,param); set_tag(w,tag,&parentText,¤tClass,¤tName,param); i = 0; mode = NORMAL; XtFree(param); param = NULL; } else { word[i++] = ct; if(i == wordsize) word = XtRealloc(word, (wordsize *= 2)); mode = NORMAL; } } else if (mode == PARAM && c == ct) { word[i] = '\0'; set_tag(w,tag,&parentText,¤tClass,¤tName,param); param = XtNewString(param); mode = NORMAL; i = 0; } else { word[i++] = c; if(i == wordsize) word = XtRealloc(word, (wordsize *= 2)); } } /* flush .. */ if(i) { word[i] = '\0'; if (i) add_to_text(XrmQuarkToString(currentName),parentText,currentClass,word,param); } if (mode != PARAM) XtFree(param); XtFree(word); return topText; } /*-----------------------------------------------------------------------*/ /* Declare a Widget class for the converter */ /*-----------------------------------------------------------------------*/ void SGMLHyperDeclareClass(class) WidgetClass class; { static int MaxClasses = 0; if (NumberOfClasses == MaxClasses) ClassList = (WidgetClass *) XtRealloc((XtPointer) ClassList, (MaxClasses += 10) * sizeof(WidgetClass)); ClassList[NumberOfClasses++] = class; } /*-----------------------------------------------------------------------*/ /* Create a new HyperWidget */ /*-----------------------------------------------------------------------*/ Widget SGMLCreateHyper(parent,name,al,ac) Widget parent; char *name; ArgList al; int ac; { return XtCreateWidget(name,sGMLHyperWidgetClass,parent,al,ac); } /*-----------------------------------------------------------------------*/ /* Load the text from a file */ /*-----------------------------------------------------------------------*/ /* provides chars to "set_text" routine */ static char get_from_file(f) FILE **f; { int n = getc(*f); return (n==EOF?0:(char)n); } /* Public routine */ Widget SGMLHyperLoadFile(widget,fname) Widget widget; char *fname; { extern char *sys_errlist[]; Widget result = NULL; FILE *f = fopen(fname,"r"); if(f) { result = set_text(widget,get_from_file,&f); fclose(f); } else { char msg[1024]; sprintf(msg,"%s: %s",fname,sys_errlist[errno]); XtWarning(msg); } return result; } /*-----------------------------------------------------------------------*/ /* Load text using a getchar like routine */ /*-----------------------------------------------------------------------*/ Widget SGMLHyperLoadText(widget,get_character,closure) Widget widget; char (*get_character)(); XtPointer closure; { return set_text(widget,get_character,closure); } /*-----------------------------------------------------------------------*/ /* Load text from memory buffer */ /*-----------------------------------------------------------------------*/ /* provides chars to "set_text" routine */ static char get_from_buffer(buffer) char **buffer; { char c = **buffer; (*buffer)++; return c; } /* Public routine */ Widget SGMLHyperSetText(widget,text) Widget widget; char *text; { return set_text(widget,get_from_buffer,&text); } /*-----------------------------------------------------------------------*/ /* Specifies start and end of highlignt chars */ /*-----------------------------------------------------------------------*/ void SGMLHyperSetTags(widget,open_tag,close_tag,end_tag,parameter_tag) Widget widget; unsigned char open_tag; unsigned char close_tag; unsigned char end_tag; unsigned char parameter_tag; { ((SGMLHyperWidget)widget)->sgml_hyper.open_tag = open_tag; ((SGMLHyperWidget)widget)->sgml_hyper.close_tag = close_tag; ((SGMLHyperWidget)widget)->sgml_hyper.end_tag = end_tag; ((SGMLHyperWidget)widget)->sgml_hyper.parameter_tag = parameter_tag; } /*-----------------------------------------------------------------------*/ /* convert a string to lower case */ /*-----------------------------------------------------------------------*/ static void lowcase(p) register char *p; { while(*p) { *p = tolower(*p); p++; } } /*-----------------------------------------------------------------------*/ /* Returns the text of the widget */ /* the memory is allocated. It must be freed by the application */ /* If include_tags is FALSE, the special characters are not returned */ /*-----------------------------------------------------------------------*/ static void dump_text(hyper,w,include_tags,calc_len,pp) SGMLHyperWidget hyper; SGMLTextObject w; Boolean include_tags, calc_len; char **pp; { char ot = hyper->sgml_hyper.open_tag; char ct = hyper->sgml_hyper.close_tag; char et = hyper->sgml_hyper.end_tag; char pt = hyper->sgml_hyper.parameter_tag; char *p; int len; char *name = XtName((Widget)w); if (calc_len) len = (int) *pp; else p = *pp; if (!strcmp(name,"default")) name = ""; if (*name && include_tags) { char *q = name; if (calc_len) len++; else *p++ = ot; if (calc_len) len += strlen(q); else for (; *q != '\0'; ) *p++ = *q++; if (w->sgml_text.param_length) { char *param = w->sgml_text.param; if (calc_len) len++; else *p++ = pt; if (calc_len) len += strlen(param); else for (; *param != '\0';) *p++ = *param++; } if (calc_len) len++; else *p++ = ct; } if (w->sgml_text.text) { char *text = w->sgml_text.text; if (calc_len) len += strlen(text); else for (; *text != '\0';) *p++ = *text++; } if (SGMLIsCompositeText((Widget)w)) { int n; WidgetList children; int nn = 0; Arg arglist[10]; XtSetArg(arglist[nn],XtNnumChildren,&n); nn++; XtSetArg(arglist[nn],XtNchildren,&children); nn++; XtGetValues((Widget)w,arglist,nn); if (calc_len) for (; n-- > 0; children++) dump_text(hyper,*children,include_tags,calc_len,&len); else for (; n-- > 0; children++) dump_text(hyper,*children,include_tags,calc_len,&p); } if (!SGMLIsMarkerText((Widget) w) && include_tags && *name) { char *q = name; if (calc_len) len ++; else *p++ = ot; if (calc_len) len ++; else *p++ = et; if (calc_len) len += strlen(q); else for (; *q != '\0'; ) *p++ = *q++; if (calc_len) len ++; else *p++ = ct; } if (calc_len) *pp = (char *) len; else *pp = p; } char *SGMLHyperGetText(widget, include_tags) Widget widget; Boolean include_tags; { SGMLHyperWidget w = (SGMLHyperWidget)widget; char *result, *p; int len = 1; if (w->sgml_hyper.managed) { dump_text(w,w->sgml_hyper.managed,include_tags,TRUE,&len); result = p = XtMalloc(len); dump_text(w,w->sgml_hyper.managed,include_tags,FALSE,&p); *p++ = '\0'; return result; } else return NULL; } /*-----------------------------------------------------------------------*/ /* Only for Motif */ /* If the widget is in a XmScrolledWindow, scroll it so the selection is */ /* visible */ /*-----------------------------------------------------------------------*/ void SGMLHyperShowObject(h,object) SGMLHyperWidget h; SGMLTextObject object; { #define SetArg(a,b) XtSetArg(al[ac],a,b);ac++ #define GetValues(w) XtGetValues(w,al,ac);ac=0 #define SetValues(w) XtSetValues(w,al,ac);ac=0 Widget clip = XtParent(h); Widget swin; Widget h_scroll; Widget v_scroll; int ac = 0; Position x_parent,y_parent; Position x_grep,y_grep; Dimension h_grep,w_grep; Position x_clip,y_clip; Dimension h_clip,w_clip; Position dv=0,dh=0; int min,max; int v_val,v_size,v_inc,v_page; int h_val,h_size,h_inc,h_page; Position x,y; Arg al[5]; /* check if selection exists */ /* check if the widget is in a scrolled window */ /* the XmScrolledWindow creates a clip window */ /* The widget's parent is the clip window */ if(!clip) return; swin = XtParent(clip); if(!swin || !XmIsScrolledWindow(swin)) return; /* Get window scroll bars */ SetArg(XmNhorizontalScrollBar, &h_scroll); SetArg(XmNverticalScrollBar , &v_scroll); GetValues(swin); /* Get size of clip window and selection rect */ w_clip = clip->core.width; h_clip = clip->core.height; /* If no object specified then position at top */ if (!object) { SetArg(XmNminimum,&min); GetValues(v_scroll); XmScrollBarGetValues(v_scroll,&v_val,&v_size,&v_inc,&v_page); dv = min - v_val; SetArg(XmNminimum,&min); GetValues(h_scroll); XmScrollBarGetValues(h_scroll,&h_val,&h_size,&h_inc,&h_page); dh = min - h_val; } else { w_grep = object->sgml_text.width; h_grep = object->sgml_text.height; /* Get global coordinates of clip and selection rect */ XtTranslateCoords(clip,0,0,&x_clip,&y_clip); XtTranslateCoords((Widget)h,object->sgml_text.margin,object->sgml_text.begin.y,&x_grep,&y_grep); /* offset of selection within clip window */ x = x_grep - x_clip; y = y_grep - y_clip; /* selection y coordinate is not visible */ if( y < 0 || y + h_grep > h_clip) { /* the widget must be moved verticaly by dv pixels */ dv = (y + h_grep / 2) - h_clip / 2; SetArg(XmNminimum,&min); SetArg(XmNmaximum,&max); GetValues(v_scroll); XmScrollBarGetValues(v_scroll,&v_val,&v_size,&v_inc,&v_page); max -= v_size; if( dv + v_val > max ) dv = max - v_val; if( dv + v_val < min ) dv = min - v_val; } /* selection x coordinate is not visible */ if( x < 0 || x + w_grep > w_clip) { /* the widget must be moved horizontaly by dh pixels */ dh = (x + w_grep / 2) - w_clip / 2; SetArg(XmNminimum,&min); SetArg(XmNmaximum,&max); GetValues(h_scroll); XmScrollBarGetValues(h_scroll,&h_val,&h_size,&h_inc,&h_page); max -= h_size; if( dh + h_val > max ) dh = max - h_val; if( dh + h_val < min ) dh = min - h_val; } } /* if the widget must be moved */ if(dv || dh) { Position x = h->core.x-dh; Position y = h->core.y-dv; /* move it */ SetArg(XmNx,x); SetArg(XmNy,y); SetValues((Widget) h); /* update scroll bars */ if(dv) XmScrollBarSetValues(v_scroll,v_val+dv,v_size,v_inc, v_page,TRUE); if(dh) XmScrollBarSetValues(h_scroll,h_val+dh,h_size,h_inc, h_page,TRUE); } } /*-----------------------------------------------------------------------*/ /* Clear previous selection */ /*-----------------------------------------------------------------------*/ static void clear_selection(w) SGMLHyperWidget w; { /* if(w->sgml_hyper.grep_seg) { if(XtIsRealized(w)) */ /* force a redraw */ /* XClearArea(XtDisplay(w),XtWindow(w), w->sgml_hyper.grep_x, w->sgml_hyper.grep_y, w->sgml_hyper.grep_width, w->sgml_hyper.grep_height, TRUE); } w->sgml_hyper.grep_seg = NULL; */ } /*-----------------------------------------------------------------------*/ /* Set the new selection */ /*-----------------------------------------------------------------------*/ static void set_selection(w) SGMLHyperWidget w; { /* if(w->sgml_hyper.grep_seg) { text_segment *s = w->sgml_hyper.grep_seg; char *p = s->text; XCharStruct char_info; int dir,ascent,desc; */ /* get size of the begining of the segment, up to the found string */ /* XTextExtents( s->style->sgml_style.font, s->text, w->sgml_hyper.grep_off, &dir,&ascent,&desc,&char_info); w->sgml_hyper.grep_x = s->x + char_info.width; w->sgml_hyper.grep_y = s->y + desc; w->sgml_hyper.grep_height = s->height; */ /* Get size of the selection */ /* XTextExtents( s->style->sgml_style.font, w->sgml_hyper.grep_txt, w->sgml_hyper.grep_len, &dir,&ascent,&desc,&char_info); w->sgml_hyper.grep_width = char_info.width; */ /* force update */ /* if(XtIsRealized(w)) XClearArea(XtDisplay(w),XtWindow(w), w->sgml_hyper.grep_x, w->sgml_hyper.grep_y, w->sgml_hyper.grep_width, w->sgml_hyper.grep_height, TRUE); } */ } /* size of regexp buffer */ #define ESIZE 1024 /*-----------------------------------------------------------------------*/ /* if you have regexp, define USE_REGEXP */ /* NOTE : since regexp variables and functions are not static */ /* you can have some problems if you use the same names or include */ /* regexp somewhere else */ /*-----------------------------------------------------------------------*/ #ifdef USE_REGEXP /* regexp macros ... see "man regexp" */ #define INIT register char *sp = instring; #define GETC() (*sp++) #define PEEKC() (*sp) #define UNGETC(c) (--sp) #define RETURN(c) return; #define ERROR(c) fprintf(stderr,"Warning regexp error %d\n",c) #include #else /*-----------------------------------------------------------------------*/ /* If we don't have regexp mimic it. */ /* Just find plain text using strncmp. no regular expression matching */ /*-----------------------------------------------------------------------*/ static char *loc1,*loc2; static int len; static compile(w,buf,end,dummy) char *w,*buf; int end; int dummy; { strcpy(buf,w); len = strlen(w); } static step(w,buf) char *w; char *buf; { loc1 = w; while(*loc1) { if(strncmp(loc1,buf,len) == 0) { loc2 = loc1+len; return TRUE; } loc1++; } return FALSE; } #endif /*-----------------------------------------------------------------------*/ /* Select a word in the hyper widget */ /* word : word to find ( or regular expression if USE_REGEX is defined) */ /* ignore_case : if TRUE ignore case in comparaison */ /* from_start : if TRUE search from start of text, else search from */ /* current selection */ /* wrap: if TRUE, continue search from the begining of text if the end */ /* is reached */ /*-----------------------------------------------------------------------*/ #ifdef _NO_PROTO Boolean SGMLHyperGrep(widget,word,ignore_case,from_start,wrap) Widget widget; char *word; Boolean ignore_case; Boolean from_start; Boolean wrap; #else Boolean SGMLHyperGrep(Widget widget, char *word, Boolean ignore_case, Boolean from_start, Boolean wrap) #endif { #ifdef dummy SGMLHyperWidget h = (SGMLHyperWidget)widget; char *w = word; char *p; int offset,from,to; text_segment *s; char expbuf[ESIZE]; if(!h->sgml_hyper.first_seg) return; if(ignore_case) { /* if ignore case, change word to lower case */ w = XtNewString(word); lowcase(w); } /* compile the regular expression */ compile(w,expbuf,&expbuf[ESIZE],'\0'); if(ignore_case) XtFree(w); /* if from_start or no previous selection, start from first segment */ if(from_start || h->sgml_hyper.grep_seg == NULL) { offset=0; wrap = FALSE; s = h->sgml_hyper.first_seg; } else { /* start from last selection */ offset = h->sgml_hyper.grep_off + h->sgml_hyper.grep_len; s = h->sgml_hyper.grep_seg; } for(;;) { if(s->text) { if(ignore_case) { /* if ignore case, change segment to lower case */ p = XtNewString(s->text); lowcase(p); } /* search the string */ if(step(p+offset,expbuf)) { /* if found ...*/ /* clear previous selection */ clear_selection(h); h->sgml_hyper.grep_seg = s; h->sgml_hyper.grep_off = offset + (loc1-(p+offset)); h->sgml_hyper.grep_txt = s->text + h->sgml_hyper.grep_off; h->sgml_hyper.grep_len = loc2-loc1; /* set new selection */ set_selection(h); /* make it visible */ show_selection(h); if(ignore_case) XtFree(p); return TRUE; } if(ignore_case) XtFree(p); } offset = 0; s = s->next; /* if end of text and wrap mode, go to start of text */ if(!s) if(wrap) { wrap = FALSE; s = h->sgml_hyper.first_seg; } else break; } return FALSE; #endif } alues(w) XtSetValues(w,al,ac);ac=0 Widget clip = XtParent(h); Widget swin; Widget h_scroll; Widget v_scroll; int ac = 0; Position x_parent,y_parent; Position x_grep,y_grep; Dimension h_grep,w_grep; Position x_clip,y_clip; midaswww-1.0/SGMLListText.c100644 002113 001774 00000025274 05302057355 015464 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLListTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a list text segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #include #include #include "SGMLListTextP.h" /* Private functions */ /* Widget class methods */ static void ClassInitialize(); static void Initialize(); static void Destroy(); static void ComputeSize(); static Boolean AdjustSize(); static void Redisplay(); #define Offset(field) XtOffsetOf(SGMLListTextRec,sgml_list_text.field) static XtResource resources[] = { {SGMLNnumBullets, XtCReadOnly, XtRInt, sizeof(int), Offset(num_bullets), XtRImmediate, (XtPointer) 0}, {SGMLNallocBullets, XtCReadOnly, XtRInt, sizeof(int), Offset(alloc_bullets), XtRImmediate, (XtPointer) 0}, {SGMLNbulletType, SGMLCBulletType, SGMLRBulletType, sizeof(int), Offset(bullet_type), XtRImmediate, (XtPointer) SGMLBULLET_DEFAULT}, {SGMLNbulletSize, SGMLCBulletSize, XtRDimension, sizeof(Dimension), Offset(bullet_size), XtRImmediate, (XtPointer) 10}, {SGMLNbulletIndent, SGMLCBulletIndent, XtRDimension, sizeof(Dimension), Offset(bullet_indent), XtRImmediate, (XtPointer) 5}, {SGMLNbulletColor, SGMLCBulletColor, XtRPixel, sizeof(Pixel), Offset(bullet_color), XtRImmediate, (XtPointer) 0} }; #undef Offset /*---------------------------------------------------------------*/ /* Static initialisation of the class record */ /*---------------------------------------------------------------*/ SGMLListTextClassRec sGMLListTextClassRec = { { (WidgetClass) &sGMLCompositeTextClassRec, /* superclass */ "SGMLListText", /* class_name */ sizeof(SGMLListTextRec), /* widget_size */ ClassInitialize, /* class_initialize */ NULL, /* class_part_initialize */ FALSE, /* class_inited */ Initialize, /* initialize */ NULL, /* initialize_hook */ NULL, /* obj1 */ NULL, /* obj2 */ 0, /* obj3 */ resources, /* resources */ XtNumber(resources), /* num_resources */ NULLQUARK, /* xrm_class */ 0, /* obj4 */ 0, /* obj5 */ 0, /* obj6 */ 0, /* obj7 */ Destroy, /* destroy */ NULL, /* obj8 */ NULL, /* obj9 */ NULL, /* set_values */ NULL, /* set_values_hook */ NULL, /* obj10 */ NULL, /* get_values_hook */ NULL, /* obj11 */ XtVersion, /* version */ NULL, /* callback private */ NULL, /* obj12 */ NULL, /* obj13 */ NULL, /* obj14 */ NULL, /* extension */ }, { ComputeSize, /* compute_size */ SGMLInheritAdjustSize, /* adjust_size */ SGMLInheritAdjustPosition, /* adjust_position */ Redisplay, /* expose */ SGMLInheritActivate, /* activate */ SGMLInheritHilite, /* hilite */ SGMLInheritContains, /* contains */ SGMLInheritCallCreateCallback, /* call_create_callback */ SGMLInheritCallMapCallback, /* call_map_callback */ SGMLInheritMakeVisible, /* make_visible */ NULL, /* extension */ }, { NULL, /* geometry_manager */ NULL, /* change_managed */ XtInheritInsertChild, /* insert_child */ XtInheritDeleteChild, /* delete_child */ NULL, /* ignore */ }, { NULL /* ignore */ } }; WidgetClass sGMLListTextObjectClass = (WidgetClass) &sGMLListTextClassRec; /*--------------------------------------------------------------*/ /* ClassInitialize: */ /*--------------------------------------------------------------*/ static void ClassInitialize() { } /*--------------------------------------------------------------*/ /* Initialize: */ /*--------------------------------------------------------------*/ static void Initialize (request, new) SGMLListTextObject request, new; { new->sgml_list_text.bullets = NULL; new->sgml_list_text.num_bullets = 0; new->sgml_list_text.alloc_bullets = 0; } /*--------------------------------------------------------------*/ /* Destroy the widget: release all memory allocated */ /*--------------------------------------------------------------*/ static void Destroy (w) SGMLListTextObject w; { XtFree((char *) w->sgml_list_text.bullets); } /*--------------------------------------------------------------*/ /* Redisplay */ /*--------------------------------------------------------------*/ static void Redisplay(t,event,region) SGMLListTextObject t; XEvent *event; Region region; { /* * Invoke our superclasses ReDisplay routine ... then draw bullets */ Display *dpy = XtDisplayOfObject((Widget) t); Window wind = XtWindowOfObject((Widget) t); GC gc = t->sgml_text.gc; int i; SGMLTextObjectClass superclass = (SGMLTextObjectClass) XtSuperclass((Widget) t); (*superclass->sgml_text_class.expose)(t,event,region); for (i = 0; i < t->sgml_list_text.num_bullets; i++ ) { Dimension width = t->sgml_list_text.bullet_size; Dimension height = t->sgml_list_text.bullet_size; Position x = t->sgml_list_text.bullets[i].x - width; Position y = t->sgml_list_text.bullets[i].y; if(XRectInRegion(region,x,y,width,height) != RectangleOut) XFillRectangle(dpy,wind,gc,x,y,width,height); } } /*------------------------------------------------------------------*/ /* Adjust the size of a child */ /*------------------------------------------------------------------*/ static Boolean AdjustSize(child,y,ascent,depth) Widget child; Position y; Dimension ascent, depth; { SGMLListTextObject w = (SGMLListTextObject) XtParent(child); int n = w->sgml_composite_text.num_children; WidgetList children = w->sgml_composite_text.children; WidgetList p = children; Boolean cont; for (; n-- > 0; p++) if (*p == child) { for (; p-- != children ; ) { SGMLTextObjectClass childClass = (SGMLTextObjectClass) XtClass(*p); cont = (*childClass->sgml_text_class.adjust_size)(*p,y,ascent,depth); if (!cont) return FALSE; } return TRUE; } return TRUE; } /*--------------------------------------------------------------*/ /* Compute Size: */ /*--------------------------------------------------------------*/ static void ComputeSize(w,geom,Adjust,Closure) SGMLListTextObject w; SGMLGeometry *geom; AdjustSizeProc Adjust; Opaque Closure; { int n = w->sgml_composite_text.num_children; WidgetList children = w->sgml_composite_text.children; Dimension maxWidth; Position x = w->sgml_text.left_margin + w->sgml_text.left_indent - w->sgml_list_text.bullet_indent; XtFree((char *) w->sgml_list_text.bullets); w->sgml_list_text.bullets = NULL; w->sgml_list_text.num_bullets = 0; w->sgml_list_text.alloc_bullets = 0; /* * Break before? */ if ( w->sgml_text.break_before ) { _SGMLBreak(geom,w->sgml_text.space_before); } /* * Query children? */ for (; n-- > 0; children++) { SGMLTextObjectClass childClass = (SGMLTextObjectClass) XtClass(*children); if (geom->broken) { if (w->sgml_list_text.num_bullets == w->sgml_list_text.alloc_bullets) w->sgml_list_text.bullets = (BulletList) XtRealloc((char *)w->sgml_list_text.bullets, (w->sgml_list_text.alloc_bullets += 10) * sizeof(BulletListItem)); w->sgml_list_text.bullets[w->sgml_list_text.num_bullets].x = x; w->sgml_list_text.bullets[w->sgml_list_text.num_bullets].y = geom->coord.y; w->sgml_list_text.num_bullets++; geom->coord.depth = w->sgml_list_text.bullet_size; geom->coord.ascent = w->sgml_list_text.bullet_size; } (*childClass->sgml_text_class.compute_size)(*children,geom,AdjustSize,*children); } /* * Break after? */ if ( w->sgml_text.break_after ) { _SGMLBreak(geom,w->sgml_text.space_after); } } /*-----------------------------------------------------------------------*/ /* Create a new SGMLListTextObject */ /*-----------------------------------------------------------------------*/ Widget SGMLCreateListText(parent,name,al,ac) Widget parent; char *name; ArgList al; int ac; { return XtCreateWidget(name,sGMLListTextObjectClass,parent,al,ac); } midaswww-1.0/SGMLMarkerText.c100644 002113 001774 00000014477 05302057355 015775 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLMarkerTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a marker text segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #include #include #include #include "SGMLMarkerTextP.h" /* Private functions */ /* Widget class methods */ static void ComputeSize(); #define Offset(field) XtOffsetOf(SGMLMarkerTextRec,sgml_marker_text.field) static XtResource resources[] = { {SGMLNcolumnAlign,SGMLCColumnAlign,XtRDimension,sizeof(Dimension), Offset (column_align),XtRImmediate,(XtPointer)0}, {SGMLNposition,SGMLCPosition,XtRPosition,sizeof(Position), Offset (position),XtRImmediate,(XtPointer)-1}, }; #undef Offset /*---------------------------------------------------------------*/ /* Static initialisation of the class record */ /*---------------------------------------------------------------*/ SGMLMarkerTextClassRec sGMLMarkerTextClassRec = { { (WidgetClass) &sGMLTextClassRec, /* superclass */ "SGMLMarkerText", /* class_name */ sizeof(SGMLMarkerTextRec), /* widget_size */ NULL, /* class_initialize */ NULL, /* class_part_initialize */ FALSE, /* class_inited */ NULL, /* initialize */ NULL, /* initialize_hook */ NULL, /* obj1 */ NULL, /* obj2 */ 0, /* obj3 */ resources, /* resources */ XtNumber(resources), /* num_resources */ NULLQUARK, /* xrm_class */ 0, /* obj4 */ 0, /* obj5 */ 0, /* obj6 */ 0, /* obj7 */ NULL, /* destroy */ NULL, /* obj8 */ NULL, /* obj9 */ NULL, /* set_values */ NULL, /* set_values_hook */ NULL, /* obj10 */ NULL, /* get_values_hook */ NULL, /* obj11 */ XtVersion, /* version */ NULL, /* callback private */ NULL, /* obj12 */ NULL, /* obj13 */ NULL, /* obj14 */ NULL, /* extension */ }, { ComputeSize, /* compute_size */ SGMLInheritAdjustSize, /* adjust_size */ SGMLInheritAdjustPosition, /* adjust_position */ SGMLInheritExpose, /* expose */ SGMLInheritActivate, /* activate */ SGMLInheritHilite, /* hilite */ SGMLInheritContains, /* contains */ SGMLInheritCallCreateCallback, /* call_create_callback */ SGMLInheritCallMapCallback, /* call_map_callback */ SGMLInheritMakeVisible, /* make_visible */ NULL, /* extension */ }, { NULL, /* ignore */ } }; WidgetClass sGMLMarkerTextObjectClass = (WidgetClass) &sGMLMarkerTextClassRec; /*--------------------------------------------------------------*/ /* Compute Size: */ /*--------------------------------------------------------------*/ static void ComputeSize(w,geom) SGMLMarkerTextObject w; SGMLGeometry *geom; { Dimension left_clearance = w->sgml_text.left_margin + w->sgml_text.left_indent; Dimension right_clearance = w->sgml_text.right_margin + w->sgml_text.right_indent; /* * Break? */ if (w->sgml_text.break_before || w->sgml_text.break_after) { _SGMLBreak(geom,w->sgml_text.space_before); _SGMLBreak(geom,w->sgml_text.space_after); } else if (w->sgml_marker_text.column_align) { Dimension x = geom->coord.x; if (x < left_clearance) x = 0; else x -= left_clearance; if (x%w->sgml_marker_text.column_align) x += w->sgml_marker_text.column_align - x%w->sgml_marker_text.column_align; x += left_clearance; geom->coord.x = x; geom->leave_space = FALSE; if (x + w->sgml_marker_text.column_align + right_clearance > geom->natural_width) { _SGMLBreak(geom,0); } } if (w->sgml_marker_text.position >= 0) { if (geom->coord.x > w->sgml_text.left_margin+w->sgml_marker_text.position) { _SGMLBreak(geom,0); } geom->coord.x = w->sgml_text.left_margin+w->sgml_marker_text.position; geom->leave_space = FALSE; geom->broken = FALSE; } } /*-----------------------------------------------------------------------*/ /* Create a new SGMLMarkerTextObject */ /*-----------------------------------------------------------------------*/ Widget SGMLCreateMarkerText(parent,name,al,ac) Widget parent; char *name; ArgList al; int ac; { return XtCreateWidget(name,sGMLMarkerTextObjectClass,parent,al,ac); } midaswww-1.0/SGMLPlainText.c100644 002113 001774 00000023237 05302057356 015612 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLPlainTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a plain text segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #include #include #include #include "SGMLPlainTextP.h" /* Private functions */ static int LineSize(); /* Widget class methods */ static void Initialize(); static void Destroy(); static void ComputeSize(); static void Redisplay(); #define Offset(field) XtOffsetOf(SGMLPlainTextRec,sgml_plain_text.field) static XtResource resources[] = { {SGMLNtabs,SGMLCTabs,XtRInt,sizeof(int), Offset (tabs),XtRImmediate,(XtPointer)0}, }; #undef Offset /*---------------------------------------------------------------*/ /* Static initialisation of the class record */ /*---------------------------------------------------------------*/ SGMLPlainTextClassRec sGMLPlainTextClassRec = { { (WidgetClass) &sGMLTextClassRec, /* superclass */ "SGMLPlainText", /* class_name */ sizeof(SGMLPlainTextRec), /* widget_size */ NULL, /* class_initialize */ NULL, /* class_part_initialize */ FALSE, /* class_inited */ Initialize, /* initialize */ NULL, /* initialize_hook */ NULL, /* obj1 */ NULL, /* obj2 */ 0, /* obj3 */ resources, /* resources */ XtNumber(resources), /* num_resources */ NULLQUARK, /* xrm_class */ 0, /* obj4 */ 0, /* obj5 */ 0, /* obj6 */ 0, /* obj7 */ Destroy, /* destroy */ NULL, /* obj8 */ NULL, /* obj9 */ NULL, /* set_values */ NULL, /* set_values_hook */ NULL, /* obj10 */ NULL, /* get_values_hook */ NULL, /* obj11 */ XtVersion, /* version */ NULL, /* callback private */ NULL, /* obj12 */ NULL, /* obj13 */ NULL, /* obj14 */ NULL, /* extension */ }, { ComputeSize, /* compute_size */ SGMLInheritAdjustSize, /* adjust_size */ SGMLInheritAdjustPosition, /* adjust_position */ Redisplay, /* expose */ SGMLInheritActivate, /* activate */ SGMLInheritHilite, /* hilite */ SGMLInheritContains, /* contains */ SGMLInheritCallCreateCallback, /* call_create_callback */ SGMLInheritCallMapCallback, /* call_map_callback */ SGMLInheritMakeVisible, /* make_visible */ NULL, /* extension */ }, { NULL, /* ignore */ } }; WidgetClass sGMLPlainTextObjectClass = (WidgetClass) &sGMLPlainTextClassRec; /*--------------------------------------------------------------*/ /* Initialize: */ /*--------------------------------------------------------------*/ static void Initialize (request, new) SGMLTextObject request, new; { } /*--------------------------------------------------------------*/ /* Destroy the widget: release all memory alocated */ /*--------------------------------------------------------------*/ static void Destroy (w) SGMLTextObject w; { } /*--------------------------------------------------------------*/ /* Redisplay */ /*--------------------------------------------------------------*/ static void Redisplay(t,event,region) SGMLPlainTextObject t; XEvent *event; Region region; { Position y = t->sgml_text.begin.y; Position margin = t->sgml_text.margin; Dimension width = t->sgml_text.width; Dimension height = t->sgml_text.height; if(XRectInRegion(region,margin,y,width,height) != RectangleOut) { Display *dpy = XtDisplayOfObject((Widget) t); Window wind = XtWindowOfObject((Widget) t); GC gc = t->sgml_text.gc; int tabs = t->sgml_plain_text.tabs; Position x = t->sgml_text.begin.x; Dimension depth = t->sgml_text.depth; Dimension ascent = t->sgml_text.ascent; char *p = t->sgml_text.text; char *line = p; for (;; p++) { if (*p == '\n' || *p == '\0') { if (p != line && XRectInRegion(region,x,y,width,depth) != RectangleOut) if (tabs) { int nt = 0, pos=0; char *q, *copy; for (q = line; q < p; q++) if (*q == '\t') nt++; copy = XtMalloc(p-line + nt * tabs); for (q = line; q < p; q++) if (*q != '\t') copy[pos++] = *q; else for ( copy[pos++] = ' '; pos%tabs ; ) copy[pos++] = ' '; XDrawString(dpy, wind,gc, x, y+ascent, copy, pos); XtFree(copy); } else XDrawString(dpy, wind,gc, x, y+ascent, line, p-line); if (*p == '\0') break; x = margin; y += depth; line = p+1; } } } } /*--------------------------------------------------------------*/ /* Compute Size: */ /*--------------------------------------------------------------*/ static void ComputeSize(w,geom) SGMLTextObject w; SGMLGeometry *geom; { Dimension left_clearance = w->sgml_text.left_margin; int nlines; /* * Break before? */ if ( w->sgml_text.break_before ) { _SGMLBreak(geom,w->sgml_text.space_before); } if (w->sgml_text.depth > geom->coord.depth) geom->coord.depth = w->sgml_text.depth; if (left_clearance > geom->coord.x ) geom->coord.x = left_clearance; w->sgml_text.begin = geom->coord; nlines = LineSize(w,&geom->coord.x,&geom->actual_width); w->sgml_text.height = w->sgml_text.depth * nlines; w->sgml_text.margin = left_clearance; w->sgml_text.width = geom->actual_width - left_clearance; geom->coord.y += w->sgml_text.height - w->sgml_text.depth; geom->coord.depth = w->sgml_text.depth; geom->space = 0; geom->broken = FALSE; w->sgml_text.end = geom->coord; /* * Break after? */ if ( w->sgml_text.break_after ) { _SGMLBreak(geom,w->sgml_text.space_after); } } /*-----------------------------------------------------------------------*/ /* Private routines */ /*-----------------------------------------------------------------------*/ /* LineSize: In the plain text case, just count the newlines */ /*-----------------------------------------------------------------------*/ static int LineSize(w, inoutx, inoutwidth) SGMLPlainTextObject w; Position *inoutx; Dimension *inoutwidth; { Position x = *inoutx; Dimension width, maxWidth = *inoutwidth; Dimension left_clearance = w->sgml_text.left_margin; int nlines = 1; int tabs = w->sgml_plain_text.tabs; char *p = w->sgml_text.text; int size = 0; for (; *p != '\0'; p++) { if (*p == '\n') { width = size * w->sgml_text.spacing; if (x+width > maxWidth) maxWidth = x+width; nlines++; size = 0; x = left_clearance; } else if (*p == '\t' && tabs) size += tabs - size%tabs; else size++; } width = size * w->sgml_text.spacing; if (x+width > maxWidth) maxWidth = x+width; x += width; *inoutx = x; *inoutwidth = maxWidth; return nlines; } /*-----------------------------------------------------------------------*/ /* Create a new SGMLPlainTextObject */ /*-----------------------------------------------------------------------*/ Widget SGMLCreatePlainText(parent,name,al,ac) Widget parent; char *name; ArgList al; int ac; { return XtCreateWidget(name,sGMLPlainTextObjectClass,parent,al,ac); } midaswww-1.0/SGMLText.c100644 002113 001774 00000067542 05302057356 014635 0ustar00tonyjey000000 000000 /*==================================================================*/ /* */ /* SGMLTextObject */ /* */ /* T.Johnson - (TonyJ@Slacvx.Slac.Stanford.Edu) June.92 */ /* */ /* Defines a text segment for the SGMLHyper widget */ /* */ /*==================================================================*/ #include #include #include #include "SGMLTextP.h" #include "SGMLHyperP.h" /* Private functions */ #define max(a,b) (a>b?a:b) void _SGMLBreak(); /* Widget class methods */ static void ClassPartInitialize(); static void Initialize(); static void ClassInitialize(); static void Destroy(); static Boolean SetValues(); static void ComputeSize(); static Boolean AdjustSize(); static void AdjustPosition(); static void Redisplay(); static void Activate(); static void Hilite(); static Widget Contains(); static void CallCreateCallback(); static void CallMapCallback(); static void MakeVisible(); #define Offset(field) XtOffsetOf(SGMLTextRec,sgml_text.field) static XtResource resources[] = { {SGMLNtext, SGMLCText, XtRString, sizeof(String), Offset(text), XtRString, ""}, {SGMLNparam, SGMLCParam, XtRString, sizeof(String), Offset(param), XtRString, ""}, {SGMLNlength, SGMLCLength, XtRInt, sizeof(int), Offset(length), XtRImmediate, 0}, {SGMLNparamLength, SGMLCParamLength, XtRInt, sizeof(int), Offset(param_length), XtRImmediate, 0}, {SGMLNfont, SGMLCFont, XtRFontStruct, sizeof (XFontStruct *), Offset(normal_rendition.font), XtRString, SGMLINHERIT_FONT}, {SGMLNcolor, SGMLCColor, XtRPixel, sizeof (Pixel), Offset(normal_rendition.color),XtRString, SGMLINHERIT_COLOR}, {SGMLNoutline,SGMLCOutline,XtRBoolean,sizeof(Boolean), Offset (normal_rendition.outline),XtRImmediate,(XtPointer)SGMLINHERIT_OUTLINE}, {SGMLNunderline,SGMLCUnderline,XtRInt,sizeof(int), Offset (normal_rendition.underline),XtRImmediate,(XtPointer)SGMLINHERIT_UNDERLINE}, {SGMLNunderlineHeight, SGMLCUnderlineHeight, XtRDimension, sizeof(Dimension), Offset (normal_rendition.underline_height),XtRImmediate,(XtPointer)SGMLINHERIT_UNDERLINEHEIGHT}, {SGMLNsensitiveFont, SGMLCFont, XtRFontStruct, sizeof (XFontStruct *), Offset(sensitive_rendition.font), XtRString, SGMLINHERIT_FONT}, {SGMLNsensitiveColor, SGMLCColor, XtRPixel, sizeof (Pixel), Offset(sensitive_rendition.color),XtRString, SGMLINHERIT_COLOR}, {SGMLNsensitiveOutline,SGMLCOutline,XtRBoolean,sizeof(Boolean), Offset (sensitive_rendition.outline),XtRImmediate,(XtPointer)SGMLINHERIT_OUTLINE}, {SGMLNsensitiveUnderline,SGMLCUnderline,XtRInt,sizeof(int), Offset (sensitive_rendition.underline),XtRImmediate,(XtPointer)SGMLINHERIT_UNDERLINE}, {SGMLNsensitiveUnderlineHeight, SGMLCUnderlineHeight, XtRDimension, sizeof(Dimension), Offset (sensitive_rendition.underline_height),XtRImmediate,(XtPointer)SGMLINHERIT_UNDERLINEHEIGHT}, {SGMLNbreakBefore,SGMLCBreak,SGMLRBreak,sizeof(int), Offset (break_before),XtRImmediate,(XtPointer)FALSE}, {SGMLNbreakAfter,SGMLCBreak,SGMLRBreak,sizeof(int), Offset (break_after),XtRImmediate,(XtPointer)FALSE}, {SGMLNsensitive,SGMLCSensitive,XtRBoolean,sizeof(Boolean), Offset (sensitive),XtRImmediate,(XtPointer)SGMLINHERIT_SENSITIVITY}, {SGMLNrightMargin,SGMLCMargin,XtRInt,sizeof(int), Offset (right_margin),XtRImmediate,(XtPointer)SGMLINHERIT_MARGIN}, {SGMLNleftMargin,SGMLCMargin,XtRInt,sizeof(int), Offset (left_margin),XtRImmediate,(XtPointer)SGMLINHERIT_MARGIN}, {SGMLNrightIndent,SGMLCMargin,XtRInt,sizeof(int), Offset (right_indent),XtRImmediate,(XtPointer)0}, {SGMLNleftIndent,SGMLCMargin,XtRInt,sizeof(int), Offset (left_indent),XtRImmediate,(XtPointer)0}, {SGMLNparagraphIndent,SGMLCMargin,XtRInt,sizeof(int), Offset (paragraph_indent),XtRImmediate,(XtPointer)SGMLINHERIT_PARAGRAPHINDENT}, {SGMLNalignment,SGMLCAlignment,XtRInt,sizeof(int), Offset (alignment),XtRImmediate,(XtPointer)SGMLINHERIT_ALIGNMENT}, {SGMLNspacing,SGMLCSpacing,XtRDimension,sizeof(Dimension), Offset (spacing),XtRImmediate,(XtPointer)0}, {SGMLNspaceBefore,SGMLCSpacing,XtRDimension,sizeof(Dimension), Offset (space_before),XtRImmediate,0}, {SGMLNspaceAfter,SGMLCSpacing,XtRDimension,sizeof(Dimension), Offset (space_after),XtRImmediate,0}, {SGMLNdepth,SGMLCDepth,XtRDimension,sizeof(Dimension), Offset (depth),XtRImmediate,(XtPointer)0}, {SGMLNascent,SGMLCAscent,XtRDimension,sizeof(Dimension), Offset (ascent),XtRImmediate,(XtPointer)0}, {SGMLNuserdata,SGMLCUserdata,XtRPointer,sizeof(XtPointer), Offset (userdata),XtRImmediate,(XtPointer)0}, {SGMLNactivateCallback,SGMLCCallback,XtRCallback,sizeof(caddr_t), Offset (activate),XtRCallback,NULL}, {SGMLNmapCallback,SGMLCCallback,XtRCallback,sizeof(caddr_t), Offset (map),XtRCallback,NULL}, {SGMLNcreateCallback, SGMLCCallback, XtRCallback, sizeof(caddr_t), Offset (create),XtRCallback,NULL} }; #undef Offset /*---------------------------------------------------------------*/ /* Static initialisation of the class record */ /*---------------------------------------------------------------*/ SGMLTextClassRec sGMLTextClassRec = { { (WidgetClass) &objectClassRec, /* superclass */ "SGMLText", /* class_name */ sizeof(SGMLTextRec), /* widget_size */ ClassInitialize, /* class_initialize */ ClassPartInitialize, /* class_part_initialize */ FALSE, /* class_inited */ Initialize, /* initialize */ NULL, /* initialize_hook */ NULL, /* obj1 */ NULL, /* obj2 */ 0, /* obj3 */ resources, /* resources */ XtNumber(resources), /* num_resources */ NULLQUARK, /* xrm_class */ 0, /* obj4 */ 0, /* obj5 */ 0, /* obj6 */ 0, /* obj7 */ Destroy, /* destroy */ NULL, /* obj8 */ NULL, /* obj9 */ SetValues, /* set_values */ NULL, /* set_values_hook */ NULL, /* obj10 */ NULL, /* get_values_hook */ NULL, /* obj11 */ XtVersion, /* version */ NULL, /* callback private */ NULL, /* obj12 */ NULL, /* obj13 */ NULL, /* obj14 */ NULL, /* extension */ }, { ComputeSize, /* compute_size */ AdjustSize, /* adjust_size */ AdjustPosition, /* adjust_position */ Redisplay, /* expose */ Activate, /* activate */ Hilite, /* hilite */ Contains, /* contains */ CallCreateCallback, /* call_create_callback */ CallMapCallback, /* call_map_callback */ MakeVisible, /* make_visible */ NULL, /* extension */ } }; WidgetClass sGMLTextObjectClass = (WidgetClass) &sGMLTextClassRec; static void CvtStringToBreak (args, num_args, fromVal, toVal) XrmValuePtr args; Cardinal *num_args; XrmValuePtr fromVal; XrmValuePtr toVal; { char *s; static int flag; if (*num_args != 0) XtWarningMsg("wrongParameters","cvtStringToBreak","XtToolkitError", "String to Break conversion needs no extra arguments", (String *) NULL, (Cardinal *)NULL); s = (char *) fromVal->addr; flag = SGMLBREAK_NEVER; if (!strcmp(s,"SGMLBREAK_NEVER" )) flag = SGMLBREAK_NEVER; else if (!strcmp(s,"SGMLBREAK_ALWAYS")) flag = SGMLBREAK_ALWAYS; else if (!strcmp(s,"SGMLBREAK_SOFT")) flag = SGMLBREAK_SOFT; else XtStringConversionWarning((char *) fromVal->addr, SGMLRBreak); toVal->size = sizeof(flag); toVal->addr = (XtPointer) &flag; } /*--------------------------------------------------------------*/ /* ClassInitialize: Register the converters */ /*--------------------------------------------------------------*/ static void ClassInitialize() { XtAddConverter (XtRString, SGMLRBreak, CvtStringToBreak, (XtConvertArgList) NULL, (Cardinal) 0); } /*--------------------------------------------------------------*/ /* SetFontInfo: (private function) */ /*--------------------------------------------------------------*/ static void SetFontInfo(new) SGMLTextObject new; { /* if possible we will inherit graphic contexts from our parent */ SGMLTextObject parent = (SGMLTextObject) XtParent((Widget) new); SGMLRendition *rendition, *parent_rendition; int dir, ascent, descent; XCharStruct charinfo; if (parent->sgml_text.sensitive) parent_rendition = &parent->sgml_text.sensitive_rendition; else parent_rendition = &parent->sgml_text.normal_rendition; if (new->sgml_text.sensitive) rendition = &new->sgml_text.sensitive_rendition; else rendition = &new->sgml_text.normal_rendition; if (parent_rendition->color == rendition->color && parent_rendition->font == rendition->font && parent_rendition->underline_height == rendition->underline_height ) { new->sgml_text.gc = parent->sgml_text.gc; new->sgml_text.invert_gc = parent->sgml_text.invert_gc; new->sgml_text.own_gcs = FALSE; } else { XGCValues values; XtGCMask valueMask; Pixel background, color; Widget w; Visual *Vis; for (w=XtParent((Widget) new); !XtIsWidget(w); w= XtParent(w)); background = w->core.background_pixel; valueMask = GCForeground | GCFont | GCLineWidth | GCLineStyle; if (DefaultDepthOfScreen(XtScreen(w))==1) color = 1 - background; else color = rendition->color; values.foreground = color; values.font = rendition->font->fid; values.line_width = rendition->underline_height; values.line_style = LineSolid; new->sgml_text.gc = XtGetGC ((Widget) new, valueMask, &values); valueMask = GCForeground | GCFunction; values.foreground = background ^ color; values.function = GXxor; new->sgml_text.invert_gc = XtGetGC ((Widget) new, valueMask, &values); new->sgml_text.own_gcs = TRUE; } XTextExtents(rendition->font," ",1,&dir,&ascent,&descent,&charinfo); new->sgml_text.ascent = ascent; new->sgml_text.depth = ascent + max(descent,2*max(rendition->underline_height,1)* rendition->underline); new->sgml_text.spacing = charinfo.width; } /*--------------------------------------------------------------*/ /* FreeFontInfo: (private function) */ /*--------------------------------------------------------------*/ static void FreeFontInfo(new) SGMLTextObject new; { if (new->sgml_text.own_gcs) { XtReleaseGC((Widget) new, new->sgml_text.gc); XtReleaseGC((Widget) new, new->sgml_text.invert_gc); new->sgml_text.own_gcs = FALSE; } } /*--------------------------------------------------------------*/ /* ClassPartInitialize: */ /*--------------------------------------------------------------*/ static void ClassPartInitialize (class) SGMLTextObjectClass class; { SGMLTextObjectClass superclass = (SGMLTextObjectClass) class->object_class.superclass; if (class->sgml_text_class.compute_size == SGMLInheritComputeSize) class->sgml_text_class.compute_size = superclass->sgml_text_class.compute_size; if (class->sgml_text_class.adjust_size == SGMLInheritAdjustSize) class->sgml_text_class.adjust_size = superclass->sgml_text_class.adjust_size; if (class->sgml_text_class.adjust_position == SGMLInheritAdjustPosition) class->sgml_text_class.adjust_position = superclass->sgml_text_class.adjust_position; if (class->sgml_text_class.compute_size == SGMLInheritComputeSize) class->sgml_text_class.compute_size = superclass->sgml_text_class.compute_size; if (class->sgml_text_class.expose == SGMLInheritExpose) class->sgml_text_class.expose = superclass->sgml_text_class.expose; if (class->sgml_text_class.activate == SGMLInheritActivate) class->sgml_text_class.activate = superclass->sgml_text_class.activate; if (class->sgml_text_class.hilite == SGMLInheritHilite) class->sgml_text_class.hilite = superclass->sgml_text_class.hilite; if (class->sgml_text_class.contains == SGMLInheritContains) class->sgml_text_class.contains = superclass->sgml_text_class.contains; if (class->sgml_text_class.call_create_callback == SGMLInheritCallCreateCallback) class->sgml_text_class.call_create_callback = superclass->sgml_text_class.call_create_callback; if (class->sgml_text_class.call_map_callback == SGMLInheritCallMapCallback) class->sgml_text_class.call_map_callback = superclass->sgml_text_class.call_map_callback; if (class->sgml_text_class.make_visible == SGMLInheritMakeVisible) class->sgml_text_class.make_visible = superclass->sgml_text_class.make_visible; } /*--------------------------------------------------------------*/ /* Initialize: */ /*--------------------------------------------------------------*/ static void Initialize (request, new) SGMLTextObject request, new; { SGMLTextObject parent = (SGMLTextObject) XtParent((Widget) new); new->sgml_text.text = new->sgml_text.text?XtNewString(new->sgml_text.text):NULL; new->sgml_text.length = new->sgml_text.text?strlen(new->sgml_text.text):0; new->sgml_text.param = new->sgml_text.param?XtNewString(new->sgml_text.param):NULL; new->sgml_text.param_length = new->sgml_text.param?strlen(new->sgml_text.param):0; new->sgml_text.size_valid = FALSE; /* * Many quantities can be inherited from our parent */ if (SGMLIsText((Widget) parent)) { new->sgml_text.left_indent += parent->sgml_text.left_indent; new->sgml_text.right_indent += parent->sgml_text.right_indent; if (new->sgml_text.left_margin == SGMLINHERIT_MARGIN) new->sgml_text.left_margin = parent->sgml_text.left_margin; if (new->sgml_text.right_margin == SGMLINHERIT_MARGIN) new->sgml_text.right_margin = parent->sgml_text.right_margin; if (new->sgml_text.paragraph_indent == SGMLINHERIT_PARAGRAPHINDENT) new->sgml_text.paragraph_indent = parent->sgml_text.paragraph_indent; if (new->sgml_text.space_before == SGMLINHERIT_SPACE) new->sgml_text.space_before = parent->sgml_text.space_before; if (new->sgml_text.space_after == SGMLINHERIT_SPACE) new->sgml_text.space_after = parent->sgml_text.space_after; if (new->sgml_text.break_before == SGMLINHERIT_BREAK) new->sgml_text.break_before = parent->sgml_text.break_before; if (new->sgml_text.break_after == SGMLINHERIT_BREAK) new->sgml_text.break_after = parent->sgml_text.break_after; if (new->sgml_text.alignment == SGMLINHERIT_ALIGNMENT) new->sgml_text.alignment = parent->sgml_text.alignment; if (new->sgml_text.sensitive == SGMLINHERIT_SENSITIVITY) new->sgml_text.sensitive = parent->sgml_text.sensitive; if (new->sgml_text.normal_rendition.outline == SGMLINHERIT_OUTLINE) new->sgml_text.normal_rendition.outline = parent->sgml_text.normal_rendition.outline; if (new->sgml_text.normal_rendition.underline == SGMLINHERIT_UNDERLINE) new->sgml_text.normal_rendition.underline = parent->sgml_text.normal_rendition.underline; if (new->sgml_text.normal_rendition.underline_height == SGMLINHERIT_UNDERLINEHEIGHT) new->sgml_text.normal_rendition.underline_height = parent->sgml_text.normal_rendition.underline_height; if (new->sgml_text.normal_rendition.font == SGMLINHERIT_FONT) new->sgml_text.normal_rendition.font = parent->sgml_text.normal_rendition.font; if (new->sgml_text.normal_rendition.color == SGMLINHERIT_COLOR) new->sgml_text.normal_rendition.color = parent->sgml_text.normal_rendition.color; if (new->sgml_text.sensitive_rendition.outline == SGMLINHERIT_OUTLINE) new->sgml_text.sensitive_rendition.outline = parent->sgml_text.sensitive_rendition.outline; if (new->sgml_text.sensitive_rendition.underline == SGMLINHERIT_UNDERLINE) new->sgml_text.sensitive_rendition.underline = parent->sgml_text.sensitive_rendition.underline; if (new->sgml_text.sensitive_rendition.underline_height == SGMLINHERIT_UNDERLINEHEIGHT) new->sgml_text.sensitive_rendition.underline_height = parent->sgml_text.sensitive_rendition.underline_height; if (new->sgml_text.sensitive_rendition.font == SGMLINHERIT_FONT) new->sgml_text.sensitive_rendition.font = parent->sgml_text.sensitive_rendition.font; if (new->sgml_text.sensitive_rendition.color == SGMLINHERIT_COLOR) new->sgml_text.sensitive_rendition.color = parent->sgml_text.sensitive_rendition.color; } else { if (new->sgml_text.left_margin == SGMLINHERIT_MARGIN) new->sgml_text.left_margin = ((SGMLHyperWidget) parent)->sgml_hyper.margin; if (new->sgml_text.right_margin == SGMLINHERIT_MARGIN) new->sgml_text.right_margin = ((SGMLHyperWidget) parent)->sgml_hyper.margin; if (new->sgml_text.paragraph_indent == SGMLINHERIT_PARAGRAPHINDENT) new->sgml_text.paragraph_indent = 0; if (new->sgml_text.space_before == SGMLINHERIT_SPACE) new->sgml_text.space_before = 0; if (new->sgml_text.space_after == SGMLINHERIT_SPACE) new->sgml_text.space_after = 0; if (new->sgml_text.break_before == SGMLINHERIT_BREAK) new->sgml_text.break_before = FALSE; if (new->sgml_text.break_after == SGMLINHERIT_BREAK) new->sgml_text.break_after = FALSE; if (new->sgml_text.alignment == SGMLINHERIT_ALIGNMENT) new->sgml_text.alignment = SGMLALIGNMENT_LEFT; if (new->sgml_text.sensitive == SGMLINHERIT_SENSITIVITY) new->sgml_text.sensitive = FALSE; if (new->sgml_text.normal_rendition.outline == SGMLINHERIT_OUTLINE) new->sgml_text.normal_rendition.outline = FALSE; if (new->sgml_text.normal_rendition.underline == SGMLINHERIT_UNDERLINE) new->sgml_text.normal_rendition.underline = 0; if (new->sgml_text.normal_rendition.underline_height == SGMLINHERIT_UNDERLINEHEIGHT) new->sgml_text.normal_rendition.underline_height = 0; if (new->sgml_text.normal_rendition.font == SGMLINHERIT_FONT) new->sgml_text.normal_rendition.font = XLoadQueryFont(XtDisplayOfObject((Widget) new),"fixed"); if (new->sgml_text.sensitive_rendition.outline == SGMLINHERIT_OUTLINE) new->sgml_text.sensitive_rendition.outline = FALSE; if (new->sgml_text.sensitive_rendition.underline == SGMLINHERIT_UNDERLINE) new->sgml_text.sensitive_rendition.underline = 0; if (new->sgml_text.sensitive_rendition.underline_height == SGMLINHERIT_UNDERLINEHEIGHT) new->sgml_text.sensitive_rendition.underline_height = 0; if (new->sgml_text.sensitive_rendition.font == SGMLINHERIT_FONT) new->sgml_text.sensitive_rendition.font = XLoadQueryFont(XtDisplayOfObject((Widget) new),"fixed"); } SetFontInfo(new); } /*--------------------------------------------------------------*/ /* Call the create Callback: */ /*--------------------------------------------------------------*/ static void CallCreateCallback(w,event) SGMLTextObject w; XEvent *event; { SGMLTextCallbackStruct cb; cb.reason = SGMLTEXT_CREATE; cb.event = event; cb.text = w->sgml_text.text; cb.length = w->sgml_text.length; cb.param = w->sgml_text.param; cb.param_length = w->sgml_text.param_length; XtCallCallbacks((Widget) w,SGMLNcreateCallback,(XtPointer) &cb); } /*--------------------------------------------------------------*/ /* Call the map Callback: */ /*--------------------------------------------------------------*/ static void CallMapCallback(w,event) SGMLTextObject w; XEvent *event; { SGMLTextCallbackStruct cb; cb.reason = SGMLTEXT_MAP; cb.event = event; cb.text = w->sgml_text.text; cb.length = w->sgml_text.length; cb.param = w->sgml_text.param; cb.param_length = w->sgml_text.param_length; XtCallCallbacks((Widget) w,SGMLNmapCallback,(XtPointer) &cb); } /*--------------------------------------------------------------*/ /* Destroy the widget: release all memory alocated */ /*--------------------------------------------------------------*/ static void Destroy (w) SGMLTextObject w; { FreeFontInfo(w); XtFree(w->sgml_text.text); XtFree(w->sgml_text.param); XtRemoveAllCallbacks ((Widget) w,SGMLNactivateCallback); XtRemoveAllCallbacks ((Widget) w,SGMLNcreateCallback); } /*------------------------------------------------------------------*/ /* SetValues : redraw only for font or color changes */ /*------------------------------------------------------------------*/ static Boolean SetValues (current, request, new) SGMLTextObject current, request, new; { Boolean redraw = FALSE; #define HAS_CHANGED(a) (new->sgml_text.a != current->sgml_text.a) if (HAS_CHANGED(text)) { XtFree(current->sgml_text.text); new->sgml_text.text = new->sgml_text.text?XtNewString(new->sgml_text.text):NULL; new->sgml_text.length = new->sgml_text.text?strlen(new->sgml_text.text):0; } if (HAS_CHANGED(param)) { XtFree(current->sgml_text.param); new->sgml_text.param = new->sgml_text.param?XtNewString(new->sgml_text.param):NULL; new->sgml_text.length = new->sgml_text.param?strlen(new->sgml_text.param):0; } if (HAS_CHANGED(sensitive)) { FreeFontInfo(new); SetFontInfo(new); redraw = TRUE; } else if (new->sgml_text.sensitive) { if (HAS_CHANGED(sensitive_rendition.color) || HAS_CHANGED(sensitive_rendition.font) || HAS_CHANGED(sensitive_rendition.underline_height)) { FreeFontInfo(new); SetFontInfo(new); redraw = TRUE; } } else { if (HAS_CHANGED(normal_rendition.color) || HAS_CHANGED(normal_rendition.font) || HAS_CHANGED(normal_rendition.underline_height)) { FreeFontInfo(new); SetFontInfo(new); redraw = TRUE; } } return redraw; #undef HAS_CHANGED } /*--------------------------------------------------------------*/ /* Redisplay */ /*--------------------------------------------------------------*/ static void Redisplay(t,event,region) SGMLTextObject t; XEvent *event; Region region; { } /*--------------------------------------------------------------*/ /* Compute Size: */ /*--------------------------------------------------------------*/ static void ComputeSize(w,geom,Adjust,Closure) SGMLTextObject w; SGMLGeometry *geom; AdjustSizeProc Adjust; Opaque Closure; { } /*--------------------------------------------------------------*/ /* Adjust Size: */ /*--------------------------------------------------------------*/ static Boolean AdjustSize(w,y,ascent,depth) SGMLTextObject w; Position y; Dimension ascent, depth; { return TRUE; } /*--------------------------------------------------------------*/ /* Adjust Position: */ /*--------------------------------------------------------------*/ static void AdjustPosition(w) SGMLTextObject w; { } /*--------------------------------------------------------------*/ /* Hilite: */ /*--------------------------------------------------------------*/ static void Hilite(w,state) SGMLTextObject w; Boolean state; { } /*--------------------------------------------------------------*/ /* MakeVisible: */ /*--------------------------------------------------------------*/ static void MakeVisible(w) SGMLTextObject w; { } /*--------------------------------------------------------------*/ /* Activate: */ /*--------------------------------------------------------------*/ static void Activate(w,event) SGMLTextObject w; XEvent *event; { SGMLTextCallbackStruct cb; /* Fill callback struct */ cb.text = w->sgml_text.text; cb.length = w->sgml_text.length; cb.param = w->sgml_text.param; cb.param_length = w->sgml_text.param_length; cb.reason = SGMLTEXT_ACTIVATE; cb.event = event; XtCallCallbacks ((Widget) w, SGMLNactivateCallback,(XtPointer) &cb); } /*--------------------------------------------------------------*/ /* Contains: */ /*--------------------------------------------------------------*/ static Widget Contains(w,x,y) SGMLTextObject w; Position x,y; { return NULL; } /*--------------------------------------------------------------*/ /* _SGMLBreak: */ /*--------------------------------------------------------------*/ void _SGMLBreak(geom,space) SGMLGeometry *geom; Dimension space; { if (!geom->broken) { geom->coord.y += geom->coord.depth; geom->coord.y += space; geom->space = space; geom->broken = TRUE; } else { if (space > geom->space) { geom->coord.y += space - geom->space; geom->space = space; } } geom->coord.x = 0; geom->coord.depth = 0; geom->coord.ascent = 0; geom->alignment = SGMLALIGNMENT_NONE; geom->leave_space = FALSE; } /*-----------------------------------------------------------------------*/ /* Create a new SGMLTextObject */ /*-----------------------------------------------------------------------*/ Widget SGMLCreateText(parent,name,al,ac) Widget parent; char *name; ArgList al; int ac; { return XtCreateWidget(name,sGMLTextObjectClass,parent,al,ac); } _rendition.outline; if (new->sgml_text.sensitive_rendition.underline == SGMLINHERIT_UNDERLINE) new->sgml_text.sensitive_rendition.underline =midaswww-1.0/Tree.c100644 002113 001774 00000072232 05302057356 014115 0ustar00tonyjey000000 000000 /* * $XConsortium: Tree.c,v 1.42 91/02/20 20:06:07 converse Exp $ * * Copyright 1990 Massachusetts Institute of Technology * Copyright 1989 Prentice Hall * * Permission to use, copy, modify, and distribute this software for any * purpose and without fee is hereby granted, provided that the above * copyright notice appear in all copies and that both the copyright notice * and this permission notice appear in supporting documentation. * * M.I.T., Prentice Hall and the authors disclaim all warranties with regard * to this software, including all implied warranties of merchantability and * fitness. In no event shall M.I.T., Prentice Hall or the authors be liable * for any special, indirect or cosequential damages or any damages whatsoever * resulting from loss of use, data or profits, whether in an action of * contract, negligence or other tortious action, arising out of or in * connection with the use or performance of this software. * * Authors: Jim Fulton, MIT X Consortium, * based on a version by Douglas Young, Prentice Hall * * This widget is based on the Tree widget described on pages 397-419 of * Douglas Young's book "The X Window System, Programming and Applications * with Xt OSF/Motif Edition." The layout code has been rewritten to use * additional blank space to make the structure of the graph easier to see * as well as to support vertical trees. */ #include #include #include #include #include #include #include "TreeP.h" #define IsHorizontal(tw) ((tw)->tree.gravity == WestGravity || \ (tw)->tree.gravity == EastGravity) /* widget class method */ static void ClassInitialize(); static void Initialize(); static void ConstraintInitialize(); static void ConstraintDestroy(); static Boolean ConstraintSetValues(); static void Destroy(); static Boolean SetValues(); static XtGeometryResult GeometryManager(); static void ChangeManaged(); static void Redisplay(); static XtGeometryResult QueryGeometry(); /* utility routines */ static void insert_node(); static void delete_node(); static void layout_tree(); /* * resources of the tree itself */ static XtResource resources[] = { { XtNautoReconfigure, XtCAutoReconfigure, XtRBoolean, sizeof (Boolean), XtOffsetOf(TreeRec, tree.auto_reconfigure), XtRImmediate, (XtPointer) FALSE }, { XtNhSpace, XtCHSpace, XtRDimension, sizeof (Dimension), XtOffsetOf(TreeRec, tree.hpad), XtRImmediate, (XtPointer) 0 }, { XtNvSpace, XtCVSpace, XtRDimension, sizeof (Dimension), XtOffsetOf(TreeRec, tree.vpad), XtRImmediate, (XtPointer) 0 }, { XtNforeground, XtCForeground, XtRPixel, sizeof (Pixel), XtOffsetOf(TreeRec, tree.foreground), XtRString, XtDefaultForeground}, { XtNlineWidth, XtCLineWidth, XtRDimension, sizeof (Dimension), XtOffsetOf(TreeRec, tree.line_width), XtRImmediate, (XtPointer) 0 }, { XtNgravity, XtCGravity, XtRGravity, sizeof (XtGravity), XtOffsetOf(TreeRec, tree.gravity), XtRImmediate, (XtPointer) WestGravity }, }; /* * resources that are attached to all children of the tree */ static XtResource treeConstraintResources[] = { { XtNtreeParent, XtCTreeParent, XtRWidget, sizeof (Widget), XtOffsetOf(TreeConstraintsRec, tree.parent), XtRImmediate, NULL }, { XtNtreeGC, XtCTreeGC, XtRGC, sizeof(GC), XtOffsetOf(TreeConstraintsRec, tree.gc), XtRImmediate, NULL }, }; TreeClassRec treeClassRec = { { /* core_class fields */ (WidgetClass) &constraintClassRec, /* superclass */ "Tree", /* class_name */ sizeof(TreeRec), /* widget_size */ ClassInitialize, /* class_init */ NULL, /* class_part_init */ FALSE, /* class_inited */ Initialize, /* initialize */ NULL, /* initialize_hook */ XtInheritRealize, /* realize */ NULL, /* actions */ 0, /* num_actions */ resources, /* resources */ XtNumber(resources), /* num_resources */ NULLQUARK, /* xrm_class */ TRUE, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterleave*/ TRUE, /* visible_interest */ Destroy, /* destroy */ NULL, /* resize */ Redisplay, /* expose */ SetValues, /* set_values */ NULL, /* set_values_hook */ XtInheritSetValuesAlmost, /* set_values_almost */ NULL, /* get_values_hook */ NULL, /* accept_focus */ XtVersion, /* version */ NULL, /* callback_private */ NULL, /* tm_table */ QueryGeometry, /* query_geometry */ NULL, /* display_accelerator*/ NULL, /* extension */ }, { /* composite_class fields */ GeometryManager, /* geometry_manager */ ChangeManaged, /* change_managed */ XtInheritInsertChild, /* insert_child */ XtInheritDeleteChild, /* delete_child */ NULL, /* extension */ }, { /* constraint_class fields */ treeConstraintResources, /* subresources */ XtNumber(treeConstraintResources), /* subresource_count */ sizeof(TreeConstraintsRec), /* constraint_size */ ConstraintInitialize, /* initialize */ ConstraintDestroy, /* destroy */ ConstraintSetValues, /* set_values */ NULL, /* extension */ }, { /* Tree class fields */ 0, /* ignore */ } }; WidgetClass treeWidgetClass = (WidgetClass) &treeClassRec; /***************************************************************************** * * * tree utility routines * * * *****************************************************************************/ static void initialize_dimensions (listp, sizep, n) Dimension **listp; int *sizep; int n; { register int i; register Dimension *l; if (!*listp) { *listp = (Dimension *) XtCalloc ((unsigned int) n, (unsigned int) sizeof(Dimension)); *sizep = ((*listp) ? n : 0); return; } if (n > *sizep) { *listp = (Dimension *) XtRealloc((char *) *listp, (unsigned int) (n*sizeof(Dimension))); if (!*listp) { *sizep = 0; return; } for (i = *sizep, l = (*listp) + i; i < n; i++, l++) *l = 0; *sizep = n; } return; } static GC get_tree_gc (w) TreeWidget w; { XtGCMask valuemask = GCBackground | GCForeground; XGCValues values; values.background = w->core.background_pixel; values.foreground = w->tree.foreground; if (w->tree.line_width != 0) { valuemask |= GCLineWidth; values.line_width = w->tree.line_width; } return XtGetGC ((Widget) w, valuemask, &values); } static void insert_node (parent, node) Widget parent, node; { TreeConstraints pc; TreeConstraints nc = TREE_CONSTRAINT(node); int nindex; nc->tree.parent = parent; if (parent == NULL) return; /* * If there isn't more room in the children array, * allocate additional space. */ pc = TREE_CONSTRAINT(parent); nindex = pc->tree.n_children; if (pc->tree.n_children == pc->tree.max_children) { pc->tree.max_children += (pc->tree.max_children / 2) + 2; pc->tree.children = (WidgetList) XtRealloc ((char *)pc->tree.children, (unsigned int) ((pc->tree.max_children) * sizeof(Widget))); } /* * Add the sub_node in the next available slot and * increment the counter. */ pc->tree.children[nindex] = node; pc->tree.n_children++; } static void delete_node (parent, node) Widget parent, node; { TreeConstraints pc; int pos, i; /* * Make sure the parent exists. */ if (!parent) return; pc = TREE_CONSTRAINT(parent); /* * Find the sub_node on its parent's list. */ for (pos = 0; pos < pc->tree.n_children; pos++) if (pc->tree.children[pos] == node) break; if (pos == pc->tree.n_children) return; /* * Decrement the number of children */ pc->tree.n_children--; /* * Fill in the gap left by the sub_node. * Zero the last slot for good luck. */ for (i = pos; i < pc->tree.n_children; i++) pc->tree.children[i] = pc->tree.children[i+1]; pc->tree.children[pc->tree.n_children]=0; } static void check_gravity (tw, grav) TreeWidget tw; XtGravity grav; { switch (tw->tree.gravity) { case WestGravity: case NorthGravity: case EastGravity: case SouthGravity: break; default: tw->tree.gravity = grav; break; } } #define done(address, type) \ { (*toVal).size = sizeof(type); (*toVal).addr = (caddr_t) address; } static struct _namepair { XrmQuark quark; char *name; XtGravity gravity; } names[] = { { NULLQUARK, XtEForget, ForgetGravity }, { NULLQUARK, XtENorthWest, NorthWestGravity }, { NULLQUARK, XtENorth, NorthGravity }, { NULLQUARK, XtENorthEast, NorthEastGravity }, { NULLQUARK, XtEWest, WestGravity }, { NULLQUARK, XtECenter, CenterGravity }, { NULLQUARK, XtEEast, EastGravity }, { NULLQUARK, XtESouthWest, SouthWestGravity }, { NULLQUARK, XtESouth, SouthGravity }, { NULLQUARK, XtESouthEast, SouthEastGravity }, { NULLQUARK, XtEStatic, StaticGravity }, { NULLQUARK, XtEUnmap, UnmapGravity }, { NULLQUARK, XtEleft, WestGravity }, { NULLQUARK, XtEtop, NorthGravity }, { NULLQUARK, XtEright, EastGravity }, { NULLQUARK, XtEbottom, SouthGravity }, { NULLQUARK, NULL, ForgetGravity } }; void CvtStringToGravity (args, num_args, fromVal, toVal) XrmValuePtr args; Cardinal *num_args; XrmValuePtr fromVal; XrmValuePtr toVal; { static Boolean haveQuarks = FALSE; char lowerName[40]; XrmQuark q; char *s, *t; struct _namepair *np; if (*num_args != 0) XtWarningMsg("wrongParameters","cvtStringToGravity","XtToolkitError", "String to Gravity conversion needs no extra arguments", (String *) NULL, (Cardinal *)NULL); if (!haveQuarks) { for (np = names; np->name; np++) { np->quark = XrmStringToQuark (np->name); } haveQuarks = TRUE; } s = (char *) fromVal->addr; if (strlen(s) < sizeof lowerName) { for (t=lowerName; (*t++ = tolower(*s++)) != '\0'; ); q = XrmStringToQuark (lowerName); for (np = names; np->name; np++) { if (np->quark == q) { done (&np->gravity, XtGravity); return; } } } XtStringConversionWarning((char *) fromVal->addr, XtRGravity); } /***************************************************************************** * * * tree class methods * * * *****************************************************************************/ static void ClassInitialize () { XtAddConverter (XtRString, XtRGravity, CvtStringToGravity, (XtConvertArgList) NULL, (Cardinal) 0); } static void Initialize (grequest, gnew) Widget grequest, gnew; { TreeWidget request = (TreeWidget) grequest, new = (TreeWidget) gnew; Arg args[2]; /* * Make sure the widget's width and height are * greater than zero. */ if (request->core.width <= 0) new->core.width = 5; if (request->core.height <= 0) new->core.height = 5; /* * Set the padding according to the orientation */ if (request->tree.hpad == 0 && request->tree.vpad == 0) { if (IsHorizontal (request)) { new->tree.hpad = TREE_HORIZONTAL_DEFAULT_SPACING; new->tree.vpad = TREE_VERTICAL_DEFAULT_SPACING; } else { new->tree.hpad = TREE_VERTICAL_DEFAULT_SPACING; new->tree.vpad = TREE_HORIZONTAL_DEFAULT_SPACING; } } /* * Create a graphics context for the connecting lines. */ new->tree.gc = get_tree_gc (new); /* * Create the hidden root widget. */ new->tree.tree_root = (Widget) NULL; XtSetArg(args[0], XtNwidth, 1); XtSetArg(args[1], XtNheight, 1); new->tree.tree_root = XtCreateWidget ("root", widgetClass, gnew, args,((Cardinal) 2)); /* * Allocate the array used to hold the widest values per depth */ new->tree.largest = NULL; new->tree.n_largest = 0; initialize_dimensions (&new->tree.largest, &new->tree.n_largest, TREE_INITIAL_DEPTH); /* * make sure that our gravity is one of the acceptable values */ check_gravity (new, WestGravity); } /* ARGSUSED */ static void ConstraintInitialize (request, new) Widget request, new; { TreeConstraints tc = TREE_CONSTRAINT(new); TreeWidget tw = (TreeWidget) new->core.parent; /* * Initialize the widget to have no sub-nodes. */ tc->tree.n_children = 0; tc->tree.max_children = 0; tc->tree.children = (Widget *) NULL; tc->tree.x = tc->tree.y = 0; tc->tree.bbsubwidth = 0; tc->tree.bbsubheight = 0; /* * If this widget has a super-node, add it to that * widget' sub-nodes list. Otherwise make it a sub-node of * the tree_root widget. */ if (tc->tree.parent) insert_node (tc->tree.parent, new); else if (tw->tree.tree_root) insert_node (tw->tree.tree_root, new); } /* ARGSUSED */ static Boolean SetValues (gcurrent, grequest, gnew) Widget gcurrent, grequest, gnew; { TreeWidget current = (TreeWidget) gcurrent, new = (TreeWidget) gnew; Boolean redraw = FALSE; /* * If the foreground color has changed, redo the GC's * and indicate a redraw. */ if (new->tree.foreground != current->tree.foreground || new->core.background_pixel != current->core.background_pixel || new->tree.line_width != current->tree.line_width) { XtReleaseGC (gnew, new->tree.gc); new->tree.gc = get_tree_gc (new); redraw = TRUE; } /* * If the minimum spacing has changed, recalculate the * tree layout. layout_tree() does a redraw, so we don't * need SetValues to do another one. */ if (new->tree.gravity != current->tree.gravity) { check_gravity (new, current->tree.gravity); } if (IsHorizontal(new) != IsHorizontal(current)) { if (new->tree.vpad == current->tree.vpad && new->tree.hpad == current->tree.hpad) { new->tree.vpad = current->tree.hpad; new->tree.hpad = current->tree.vpad; } } if (new->tree.vpad != current->tree.vpad || new->tree.hpad != current->tree.hpad || new->tree.gravity != current->tree.gravity) { layout_tree (new, TRUE); redraw = FALSE; } return redraw; } /* ARGSUSED */ static Boolean ConstraintSetValues (current, request, new, args, num_args) Widget current, request, new; ArgList args; Cardinal *num_args; { TreeConstraints newc = TREE_CONSTRAINT(new); TreeConstraints curc = TREE_CONSTRAINT(current); TreeWidget tw = (TreeWidget) new->core.parent; /* * If the parent field has changed, remove the widget * from the old widget's children list and add it to the * new one. */ if (curc->tree.parent != newc->tree.parent){ if (curc->tree.parent) delete_node (curc->tree.parent, new); if (newc->tree.parent) insert_node(newc->tree.parent, new); /* * If the Tree widget has been realized, * compute new layout. */ if (XtIsRealized((Widget)tw)) layout_tree (tw, FALSE); } return False; } static void ConstraintDestroy (w) Widget w; { TreeConstraints tc = TREE_CONSTRAINT(w); TreeWidget tw = (TreeWidget) XtParent(w); int i; /* * Remove the widget from its parent's sub-nodes list and * make all this widget's sub-nodes sub-nodes of the parent. */ if (tw->tree.tree_root == w) { if (tc->tree.n_children > 0) tw->tree.tree_root = tc->tree.children[0]; else tw->tree.tree_root = NULL; } delete_node (tc->tree.parent, (Widget) w); for (i = 0; i< tc->tree.n_children; i++) insert_node (tc->tree.parent, tc->tree.children[i]); layout_tree ((TreeWidget) (w->core.parent), FALSE); } /* ARGSUSED */ static XtGeometryResult GeometryManager (w, request, reply) Widget w; XtWidgetGeometry *request; XtWidgetGeometry *reply; { TreeWidget tw = (TreeWidget) w->core.parent; /* * No position changes allowed!. */ if ((request->request_mode & CWX && request->x!=w->core.x) ||(request->request_mode & CWY && request->y!=w->core.y)) return (XtGeometryNo); /* * Allow all resize requests. */ if (request->request_mode & CWWidth) w->core.width = request->width; if (request->request_mode & CWHeight) w->core.height = request->height; if (request->request_mode & CWBorderWidth) w->core.border_width = request->border_width; if (tw->tree.auto_reconfigure) layout_tree (tw, FALSE); return (XtGeometryYes); } static void ChangeManaged (gw) Widget gw; { layout_tree ((TreeWidget) gw, FALSE); } static void Destroy (gw) Widget gw; { TreeWidget w = (TreeWidget) gw; XtReleaseGC (gw, w->tree.gc); if (w->tree.largest) XtFree ((char *) w->tree.largest); } /* ARGSUSED */ static void Redisplay (tw, event, region) TreeWidget tw; XEvent *event; Region region; { /* * If the Tree widget is visible, visit each managed child. */ if (tw->core.visible) { int i, j; Display *dpy = XtDisplay (tw); Window w = XtWindow (tw); for (i = 0; i < tw->composite.num_children; i++) { register Widget child = tw->composite.children[i]; TreeConstraints tc = TREE_CONSTRAINT(child); /* * Don't draw lines from the fake tree_root. */ if (child != tw->tree.tree_root && tc->tree.n_children) { int srcx = child->core.x + child->core.border_width; int srcy = child->core.y + child->core.border_width; switch (tw->tree.gravity) { case WestGravity: srcx += child->core.width + child->core.border_width; /* fall through */ case EastGravity: srcy += child->core.height / 2; break; case NorthGravity: srcy += child->core.height + child->core.border_width; /* fall through */ case SouthGravity: srcx += child->core.width / 2; break; } for (j = 0; j < tc->tree.n_children; j++) { register Widget k = tc->tree.children[j]; GC gc = (tc->tree.gc ? tc->tree.gc : tw->tree.gc); switch (tw->tree.gravity) { case WestGravity: /* * right center to left center */ XDrawLine (dpy, w, gc, srcx, srcy, (int) k->core.x, (k->core.y + ((int) k->core.border_width) + ((int) k->core.height) / 2)); break; case NorthGravity: /* * bottom center to top center */ XDrawLine (dpy, w, gc, srcx, srcy, (k->core.x + ((int) k->core.border_width) + ((int) k->core.width) / 2), (int) k->core.y); break; case EastGravity: /* * left center to right center */ XDrawLine (dpy, w, gc, srcx, srcy, (k->core.x + (((int) k->core.border_width) << 1) + (int) k->core.width), (k->core.y + ((int) k->core.border_width) + ((int) k->core.height) / 2)); break; case SouthGravity: /* * top center to bottom center */ XDrawLine (dpy, w, gc, srcx, srcy, (k->core.x + ((int) k->core.border_width) + ((int) k->core.width) / 2), (k->core.y + (((int) k->core.border_width) << 1) + (int) k->core.height)); break; } } } } } } static XtGeometryResult QueryGeometry (w, intended, preferred) Widget w; XtWidgetGeometry *intended, *preferred; { register TreeWidget tw = (TreeWidget) w; preferred->request_mode = (CWWidth | CWHeight); preferred->width = tw->tree.maxwidth; preferred->height = tw->tree.maxheight; if (((intended->request_mode & (CWWidth | CWHeight)) == (CWWidth | CWHeight)) && intended->width == preferred->width && intended->height == preferred->height) return XtGeometryYes; else if (preferred->width == w->core.width && preferred->height == w->core.height) return XtGeometryNo; else return XtGeometryAlmost; } /***************************************************************************** * * * tree layout algorithm * * * * Each node in the tree is "shrink-wrapped" with a minimal bounding * * rectangle, laid next to its siblings (with a small about of padding in * * between) and then wrapped with their parent. Parents are centered about * * their children (or vice versa if the parent is larger than the children). * * * *****************************************************************************/ static void compute_bounding_box_subtree (tree, w, depth) TreeWidget tree; Widget w; int depth; { TreeConstraints tc = TREE_CONSTRAINT(w); /* info attached to all kids */ register int i; Bool horiz = IsHorizontal (tree); Dimension newwidth, newheight; Dimension bw2 = w->core.border_width * 2; /* * Set the max-size per level. */ if (depth >= tree->tree.n_largest) { initialize_dimensions (&tree->tree.largest, &tree->tree.n_largest, depth + 1); } newwidth = ((horiz ? w->core.width : w->core.height) + bw2); if (tree->tree.largest[depth] < newwidth) tree->tree.largest[depth] = newwidth; /* * initialize */ tc->tree.bbwidth = w->core.width + bw2; tc->tree.bbheight = w->core.height + bw2; if (tc->tree.n_children == 0) return; /* * Figure the size of the opposite dimension (vertical if tree is * horizontal, else vice versa). The other dimension will be set * in the second pass once we know the maximum dimensions. */ newwidth = 0; newheight = 0; for (i = 0; i < tc->tree.n_children; i++) { Widget child = tc->tree.children[i]; TreeConstraints cc = TREE_CONSTRAINT(child); compute_bounding_box_subtree (tree, child, depth + 1); if (horiz) { if (newwidth < cc->tree.bbwidth) newwidth = cc->tree.bbwidth; newheight += tree->tree.vpad + cc->tree.bbheight; } else { if (newheight < cc->tree.bbheight) newheight = cc->tree.bbheight; newwidth += tree->tree.hpad + cc->tree.bbwidth; } } tc->tree.bbsubwidth = newwidth; tc->tree.bbsubheight = newheight; /* * Now fit parent onto side (or top) of bounding box and correct for * extra padding. Be careful of unsigned arithmetic. */ if (horiz) { tc->tree.bbwidth += tree->tree.hpad + newwidth; newheight -= tree->tree.vpad; if (newheight > tc->tree.bbheight) tc->tree.bbheight = newheight; } else { tc->tree.bbheight += tree->tree.vpad + newheight; newwidth -= tree->tree.hpad; if (newwidth > tc->tree.bbwidth) tc->tree.bbwidth = newwidth; } } static void set_positions (tw, w, level) TreeWidget tw; Widget w; int level; { int i; if (w) { TreeConstraints tc = TREE_CONSTRAINT(w); if (level > 0) { /* * mirror if necessary */ switch (tw->tree.gravity) { case EastGravity: tc->tree.x = (((Position) tw->tree.maxwidth) - ((Position) w->core.width) - tc->tree.x); break; case SouthGravity: tc->tree.y = (((Position) tw->tree.maxheight) - ((Position) w->core.height) - tc->tree.y); break; } /* * Move the widget into position. */ XtMoveWidget (w, tc->tree.x, tc->tree.y); } /* * Set the positions of all children. */ for (i = 0; i < tc->tree.n_children; i++) set_positions (tw, tc->tree.children[i], level + 1); } } static void arrange_subtree (tree, w, depth, x, y) TreeWidget tree; Widget w; int depth; Position x, y; { TreeConstraints tc = TREE_CONSTRAINT(w); /* info attached to all kids */ TreeConstraints firstcc, lastcc; register int i; int newx, newy; Bool horiz = IsHorizontal (tree); Widget child = NULL; Dimension tmp; Dimension bw2 = w->core.border_width * 2; Bool relayout = True; /* * If no children, then just lay out where requested. */ tc->tree.x = x; tc->tree.y = y; if (horiz) { int myh = (w->core.height + bw2); if (myh > (int)tc->tree.bbsubheight) { y += (myh - (int)tc->tree.bbsubheight) / 2; relayout = False; } } else { int myw = (w->core.width + bw2); if (myw > (int)tc->tree.bbsubwidth) { x += (myw - (int)tc->tree.bbsubwidth) / 2; relayout = False; } } if ((tmp = ((Dimension) x) + tc->tree.bbwidth) > tree->tree.maxwidth) tree->tree.maxwidth = tmp; if ((tmp = ((Dimension) y) + tc->tree.bbheight) > tree->tree.maxheight) tree->tree.maxheight = tmp; if (tc->tree.n_children == 0) return; /* * Have children, so walk down tree laying out children, then laying * out parents. */ if (horiz) { newx = x + tree->tree.largest[depth]; if (depth > 0) newx += tree->tree.hpad; newy = y; } else { newx = x; newy = y + tree->tree.largest[depth]; if (depth > 0) newy += tree->tree.vpad; } for (i = 0; i < tc->tree.n_children; i++) { TreeConstraints cc; child = tc->tree.children[i]; /* last value is used outside loop */ cc = TREE_CONSTRAINT(child); arrange_subtree (tree, child, depth + 1, newx, newy); if (horiz) { newy += tree->tree.vpad + cc->tree.bbheight; } else { newx += tree->tree.hpad + cc->tree.bbwidth; } } /* * now layout parent between first and last children */ if (relayout) { Position adjusted; firstcc = TREE_CONSTRAINT (tc->tree.children[0]); lastcc = TREE_CONSTRAINT (child); /* Adjustments are disallowed if they result in a position above * or to the left of the originally requested position, because * this could collide with the position of the previous sibling. */ if (horiz) { tc->tree.x = x; adjusted = firstcc->tree.y + ((lastcc->tree.y + (Position) child->core.height + (Position) child->core.border_width * 2 - firstcc->tree.y - (Position) w->core.height - (Position) w->core.border_width * 2 + 1) / 2); if (adjusted > tc->tree.y) tc->tree.y = adjusted; } else { adjusted = firstcc->tree.x + ((lastcc->tree.x + (Position) child->core.width + (Position) child->core.border_width * 2 - firstcc->tree.x - (Position) w->core.width - (Position) w->core.border_width * 2 + 1) / 2); if (adjusted > tc->tree.x) tc->tree.x = adjusted; tc->tree.y = y; } } } static void set_tree_size (tw, insetvalues, width, height) TreeWidget tw; Boolean insetvalues; Dimension width, height; { if (insetvalues) { tw->core.width = width; tw->core.height = height; } else { Dimension replyWidth = 0, replyHeight = 0; XtGeometryResult result = XtMakeResizeRequest ((Widget) tw, width, height, &replyWidth, &replyHeight); /* * Accept any compromise. */ if (result == XtGeometryAlmost) XtMakeResizeRequest ((Widget) tw, replyWidth, replyHeight, (Dimension *) NULL, (Dimension *) NULL); } return; } static void layout_tree (tw, insetvalues) TreeWidget tw; Boolean insetvalues; { int i; Dimension *dp; /* * Do a depth-first search computing the width and height of the bounding * box for the tree at that position (and below). Then, walk again using * this information to layout the children at each level. */ if (tw->tree.tree_root == NULL) return; tw->tree.maxwidth = tw->tree.maxheight = 0; for (i = 0, dp = tw->tree.largest; i < tw->tree.n_largest; i++, dp++) *dp = 0; initialize_dimensions (&tw->tree.largest, &tw->tree.n_largest, tw->tree.n_largest); compute_bounding_box_subtree (tw, tw->tree.tree_root, 0); /* * Second pass to do final layout. Each child's bounding box is stacked * on top of (if horizontal, else next to) on top of its siblings. The * parent is centered between the first and last children. */ arrange_subtree (tw, tw->tree.tree_root, 0, 0, 0); /* * Move each widget into place. */ set_tree_size (tw, insetvalues, tw->tree.maxwidth, tw->tree.maxheight); set_positions (tw, tw->tree.tree_root, 0); /* * And redisplay. */ if (XtIsRealized ((Widget) tw)) { XClearArea (XtDisplay(tw), XtWindow((Widget)tw), 0, 0, 0, 0, True); } } /***************************************************************************** * * * Public Routines * * * *****************************************************************************/ void #if NeedFunctionPrototypes TreeForceLayout (Widget tree) #else TreeForceLayout (tree) Widget tree; #endif { layout_tree ((TreeWidget) tree, FALSE); } x + (((int) k->core.border_width) << 1) + (int) k->core.width), (k->core.y + ((int) k->core.border_width) + ((int) k->core.height) / 2)); break; case SouthGravity: /* * top center to bottom center */ XDrawLine (dpy, w, gc, srcx, srcy, (k->core.x + ((int) k->core.border_width) + ((int) midaswww-1.0/custom.c100644 002113 001774 00000127627 05302057357 014542 0ustar00tonyjey000000 000000 #include /* For printf and so on. */ #include #include /* Motif Toolkit and MRM */ #include #include #include #include #include #include #include "midaslist.h" #include "midasoperand.h" #include "midasshell.h" XmString MidasCharToString(); MidasShell *MidasGetShell(); Widget MidasFetch(); #ifndef VAX WidgetList DXmChildren(); int DXmNumChildren(); #endif MidasOperand MidasGetAppResource(); struct VerbInMenu { int Verb; int Menu; }; typedef struct VerbInMenu VerbInMenu; struct VerbStruct { char *Command; Boolean IsToggle; }; typedef struct VerbStruct VerbStruct; struct CustomHeader { int Modified; int Changed; Widget Fetched; Widget Parent; Widget CustomCommandText; Widget CustomVerbAddButton; Widget CustomVerbDeleteButton; Widget CustomVerbList; Widget CustomVerbText; Widget CustomVerbIsToggle; Widget CustomMenuAddButton; Widget CustomMenuDeleteButton; Widget CustomMenuList; Widget CustomMenuText; Widget CustomVMUpButton; Widget CustomVMDownButton; Widget CustomVMAddVerbButton; Widget CustomVMAddMenuButton; Widget CustomVMSeparatorButton; Widget CustomVMRemoveButton; Widget CustomVMList; Widget CustomVMActiveLabel; Widget CustomOKButton; Widget CustomApplyButton; Widget CustomCancelButton; Widget CustomResetButton; List TempVerbList; List TempMenuList; List VerbList; List MenuList; List *VMList; List ConnectList; }; typedef struct CustomHeader CustomHeader; struct Link { Widget Widget; CustomHeader *Header; }; typedef struct Link Link; static List CustomHeaders; static int ExitResponse; static void CustomSetActiveMenu(Header,Label) CustomHeader *Header; XmString Label; { int n = 0; Arg args[10]; XtSetArg(args[n],XmNlabelString,Label); n++; XtSetValues(Header->CustomVMActiveLabel,args,n); } static char *CustomAppendArrow(name) char *name; { char *result; result = strcpy(XtMalloc(strlen(name)+4),name); return strcat(result," =>"); } static Boolean CustomIsChild(Header,parent,child) CustomHeader *Header; List *parent; List *child; { ListItem *i; for (i = parent->First; i != 0; i = i->Next) { VerbInMenu *vm = ((VerbInMenu *) i->Pointer); if (vm->Menu != 0) { ListItem *menu = MidasFindItemInListPos(&Header->TempMenuList,vm->Menu); List *NewList = ((List *) menu->Pointer); if (NewList = child) return 1; else if (CustomIsChild(Header,NewList,child)) return 1; } } return 0; } static void CustomUpdatePositionsAdd(L,pos,verb) List *L; int pos; int verb; { ListItem *i , *j; for (i = L->First; i != 0; i = i->Next) { List *menu = ((List *) i->Pointer); if (menu != 0) for (j = menu->First; j != 0; j = j->Next) { VerbInMenu *vm = j->Pointer; if (verb) { if (vm->Verb >= pos) vm->Verb += 1; } else { if (vm->Menu >= pos) vm->Menu += 1; } } } }; static void CustomUpdatePositionsRemove(L,pos,verb) List *L; int pos; int verb; { ListItem *i, *j, *next; for (i = L->First; i != 0; i = i->Next) { List *menu = ((List *) i->Pointer); for (j = menu->First; j != 0; j = next) { VerbInMenu *vm = j->Pointer; next = j->Next; if (verb) { if (vm->Verb == pos) MidasRemoveItemFromList(menu,j); else if (vm->Verb > pos) vm->Verb -= 1; } else { if (vm->Menu == pos) MidasRemoveItemFromList(menu,j); else if (vm->Menu > pos) vm->Menu -= 1; } } } }; static void CustomUpdateSensitivity(Header) /*----Figures out which keys should be sensitive at the current time */ CustomHeader *Header; { char *menu; char *verb; char *command; Boolean sensitive; XtSetSensitive(Header->CustomApplyButton,Header->Changed != 0); XtSetSensitive(Header->CustomResetButton,Header->Changed != 0); XtSetSensitive(Header->CustomVerbDeleteButton, Header->TempVerbList.Selected != 0); XtSetSensitive(Header->CustomMenuDeleteButton, Header->TempMenuList.Selected != 0); verb = XmTextGetString(Header->CustomVerbText); command = XmTextGetString(Header->CustomCommandText); sensitive = (strcmp(verb,"") != 0 && strcmp(command,"") != 0 ); XtSetSensitive(Header->CustomVerbAddButton,sensitive); XtFree(command); XtFree(verb); menu = XmTextGetString(Header->CustomMenuText); sensitive = (strcmp(menu,"")!=0); XtSetSensitive(Header->CustomMenuAddButton,sensitive); XtFree(menu); if (Header->VMList == 0) { XtSetSensitive(Header->CustomVMAddMenuButton,0); XtSetSensitive(Header->CustomVMAddVerbButton,0); XtSetSensitive(Header->CustomVMSeparatorButton,0); XtSetSensitive(Header->CustomVMRemoveButton,0); XtSetSensitive(Header->CustomVMUpButton,0); XtSetSensitive(Header->CustomVMDownButton,0); } else { ListItem *item = Header->VMList->Selected; XtSetSensitive(Header->CustomVMSeparatorButton,1); XtSetSensitive(Header->CustomVMRemoveButton,(item!=0)); XtSetSensitive(Header->CustomVMUpButton, (item!=0 && item!=Header->VMList->First)); XtSetSensitive(Header->CustomVMDownButton, (item!=0 && item!=Header->VMList->Last)); sensitive = (Header->TempVerbList.Selected!=0); if (sensitive) sensitive=(MidasFindItemInList(Header->VMList, Header->TempVerbList.Selected->Entry)==0); XtSetSensitive(Header->CustomVMAddVerbButton,sensitive); sensitive = (Header->TempMenuList.Selected!=0); if (sensitive) { char *entry = CustomAppendArrow(Header->TempMenuList.Selected->Entry); sensitive=(MidasFindItemInList(Header->VMList,entry)==0); XtFree(entry); } if (sensitive) { List *parent = ((List *) Header->TempMenuList.Selected->Pointer); if (parent==0 || parent == Header->VMList) sensitive = 0; else sensitive = (CustomIsChild(Header,parent,Header->VMList)==0); } XtSetSensitive(Header->CustomVMAddMenuButton,sensitive); } } static CustomHeader *CustomFindHeader(w) Widget w; { Widget main; CustomHeader *header; int n = 0; Arg args[10]; XtSetArg(args[n],XmNuserData , &header); n++; for (main=w;; main=XtParent(main)) { XtGetValues(main,args,n); if (header!=0 && header != (CustomHeader *) -1) return header; } } static void CustomUpdateSensitivityCallback(w,closure,cbDataP) Widget w; Opaque closure; XmAnyCallbackStruct *cbDataP; { CustomHeader *Header = CustomFindHeader(w); CustomUpdateSensitivity(Header); } static void CustomAddVerb(w,closure,cbDataP) Widget w; Opaque closure; XmAnyCallbackStruct *cbDataP; { int pos; char *verb; char *command; ListItem *item; CustomHeader *Header = CustomFindHeader(w); Boolean istoggle; VerbStruct *Verb; verb = XmTextGetString(Header->CustomVerbText); command = XmTextGetString(Header->CustomCommandText); istoggle = XmToggleButtonGetState(Header->CustomVerbIsToggle); if (item = MidasFindItemInList(&Header->TempVerbList,verb)) { Verb = (VerbStruct *) item->Pointer; XtFree(Verb->Command); XtFree((char *) Verb); } else { item = MidasAddItemToList(&Header->TempVerbList,verb); pos = MidasFindItemPosInList(&Header->TempVerbList,item); MidasSelectItemPosInList(&Header->TempVerbList,pos,FALSE); CustomUpdatePositionsAdd(&Header->TempMenuList,pos,1); } XtFree(verb); Verb = XtNew(VerbStruct); Verb->Command = command; Verb->IsToggle = istoggle; Header->TempVerbList.Selected = item; item->Pointer = Verb; Header->Changed++; CustomUpdateSensitivity(Header); } static void CustomSelVerb(w,closure,cbDataP) Widget w; Opaque closure; XmListCallbackStruct *cbDataP; { ListItem *item; CustomHeader *Header = CustomFindHeader(w); VerbStruct *Verb; item = MidasFindItemInListPos(&Header->TempVerbList,cbDataP->item_position); Header->TempVerbList.Selected = item; XmTextSetString(Header->CustomVerbText,item->Entry); Verb = (VerbStruct *) item->Pointer; XmToggleButtonSetState(Header->CustomVerbIsToggle,Verb->IsToggle,FALSE); XmTextSetString(Header->CustomCommandText,Verb->Command); CustomUpdateSensitivity(Header); } static void CustomDelVerb(w,closure,cbDataP) Widget w; Opaque closure; XmAnyCallbackStruct *cbDataP; { char *verb; CustomHeader *Header = CustomFindHeader(w); ListItem *item = Header->TempVerbList.Selected; VerbStruct *Verb = (VerbStruct *) item->Pointer; int pos = MidasFindItemPosInList(&Header->TempVerbList,item); XtFree(Verb->Command); CustomUpdatePositionsRemove(&Header->TempMenuList,pos,1); MidasRemoveItemFromList(&Header->TempVerbList,item); XmTextSetString(Header->CustomVerbText,""); XmTextSetString(Header->CustomCommandText,""); XmToggleButtonSetState(Header->CustomVerbIsToggle,FALSE,FALSE); Header->TempVerbList.Selected = 0; Header->Changed++; CustomUpdateSensitivity(Header); } static void CustomAddMenu(w,closure,cbDataP) Widget w; Opaque closure; XmAnyCallbackStruct *cbDataP; { int pos; char *menu; ListItem *item; CustomHeader *Header = CustomFindHeader(w); menu = XmTextGetString(Header->CustomMenuText); XmTextSetString(Header->CustomMenuText,""); item = MidasAddItemToList(&Header->TempMenuList,menu); pos = MidasFindItemPosInList(&Header->TempMenuList,item); MidasSelectItemPosInList(&Header->TempMenuList,pos,FALSE); CustomUpdatePositionsAdd(&Header->TempMenuList,pos,0); item->Pointer = MidasCreateEmptyList(menu); Header->TempMenuList.Selected = item; Header->Changed++; CustomUpdateSensitivity(Header); XtFree(menu); } static void CustomSelConfMenu(w,closure,cbDataP) Widget w; Opaque closure; XmAnyCallbackStruct *cbDataP; { char label[100]; XmString string; CustomHeader *Header = CustomFindHeader(w); strcpy(label,"Menu: "); if (Header->VMList!=0) MidasUnrealizeList(Header->VMList); Header->VMList = ((List *) Header->TempMenuList.Selected->Pointer); MidasRealizeList(Header->VMList,Header->CustomVMList); string = MidasCharToString(strcat(label,Header->TempMenuList.Selected->Entry)); CustomSetActiveMenu(Header,string); XmStringFree(string); CustomUpdateSensitivity(Header); } static void CustomSelMenu(w,closure,cbDataP) Widget w; Opaque closure; XmListCallbackStruct *cbDataP; { ListItem *item; CustomHeader *Header = CustomFindHeader(w); item = MidasFindItemInListPos(&Header->TempMenuList,cbDataP->item_position); Header->TempMenuList.Selected = item; CustomUpdateSensitivity(Header); } static void CustomDelMenu(w,closure,cbDataP) Widget w; Opaque closure; XmAnyCallbackStruct *cbDataP; { char *menu; CustomHeader *Header = CustomFindHeader(w); int pos = MidasFindItemPosInList(&Header->TempMenuList, Header->TempMenuList.Selected); CustomUpdatePositionsRemove(&Header->TempMenuList,pos,0); if (((List *) Header->TempMenuList.Selected->Pointer) == Header->VMList) { XmString string; MidasUnrealizeList(Header->VMList); Header->VMList=0; string = MidasCharToString("No Menu Selected"); CustomSetActiveMenu(Header,string); XmStringFree(string); } MidasDestroyList(Header->TempMenuList.Selected->Pointer); Header->TempMenuList.Selected->Pointer = 0; MidasRemoveItemFromList(&Header->TempMenuList,Header->TempMenuList.Selected); Header->TempMenuList.Selected = 0; Header->Changed++; CustomUpdateSensitivity(Header); } static void CustomVMAddSeparator(w,closure,cbDataP) Widget w; Opaque closure; XmAnyCallbackStruct *cbDataP; { ListItem *item; VerbInMenu *vm; CustomHeader *Header = CustomFindHeader(w); item = MidasAddItemToListPos(Header->VMList,"......",0); MidasSelectItemPosInList(Header->VMList,0,FALSE); vm = XtNew(VerbInMenu); vm->Menu = 0; vm->Verb = 0; item->Pointer = vm; Header->VMList->Selected = item; Header->Changed++; CustomUpdateSensitivity(Header); } static void CustomVMAddVerb(w,closure,cbDataP) Widget w; Opaque closure; XmAnyCallbackStruct *cbDataP; { char *verb; VerbInMenu *vm; ListItem *item; CustomHeader *Header = CustomFindHeader(w); verb = Header->TempVerbList.Selected->Entry; item = MidasAddItemToListPos(Header->VMList,verb,0); MidasSelectItemPosInList(Header->VMList,0,FALSE); vm = XtNew(VerbInMenu); vm->Menu = 0; vm->Verb = MidasFindItemPosInList(&Header->TempVerbList, Header->TempVerbList.Selected); item->Pointer = vm; Header->VMList->Selected = item; Header->Changed++; CustomUpdateSensitivity(Header); } static void CustomSelConfVerb(w,closure,cbDataP) Widget w; Opaque closure; XmAnyCallbackStruct *cbDataP; { CustomHeader *Header = CustomFindHeader(w); if (XtIsSensitive(Header->CustomVMAddVerbButton)) CustomVMAddVerb(w,closure,(XmAnyCallbackStruct *) cbDataP); } static void CustomVMAddMenu(w,closure,cbDataP) Widget w; Opaque closure; XmAnyCallbackStruct *cbDataP; { char *menu, *arrow; VerbInMenu *vm; ListItem *item; CustomHeader *Header = CustomFindHeader(w); menu = Header->TempMenuList.Selected->Entry; arrow = CustomAppendArrow(menu); item = MidasAddItemToListPos(Header->VMList,arrow,0); MidasSelectItemPosInList(Header->VMList,0,FALSE); XtFree(arrow); vm = XtNew(VerbInMenu); vm->Menu = MidasFindItemPosInList(&Header->TempMenuList, Header->TempMenuList.Selected); vm->Verb = 0; item->Pointer = vm; Header->VMList->Selected = item; Header->Changed++; CustomUpdateSensitivity(Header); } static void CustomVMSel(w,closure,cbDataP) Widget w; Opaque closure; XmListCallbackStruct *cbDataP; { ListItem *item; CustomHeader *Header = CustomFindHeader(w); item = MidasFindItemInListPos(Header->VMList,cbDataP->item_position); Header->VMList->Selected = item; CustomUpdateSensitivity(Header); } static void CustomVMSelConf(w,closure,cbDataP) Widget w; Opaque closure; XmListCallbackStruct *cbDataP; { VerbInMenu *vm; ListItem *item; CustomHeader *Header = CustomFindHeader(w); item = MidasFindItemInListPos(Header->VMList,cbDataP->item_position); vm = ((VerbInMenu *) item->Pointer); if (vm->Verb != 0) { ListItem *verb = MidasFindItemInListPos(&Header->TempVerbList,vm->Verb); XmString string = MidasCharToString(verb->Entry); XmListSelectItem(Header->CustomVerbList,string,1); XmStringFree(string); } else if (vm->Menu != 0) { ListItem *menu = MidasFindItemInListPos(&Header->TempMenuList,vm->Menu); XmString string = MidasCharToString(menu->Entry); XmListSelectItem(Header->CustomMenuList,string,1); XmStringFree(string); } } static void CustomVMDel(w,closure,cbDataP) Widget w; Opaque closure; XmAnyCallbackStruct *cbDataP; { char *menu; ListItem *item; CustomHeader *Header = CustomFindHeader(w); MidasRemoveItemFromList(Header->VMList,Header->VMList->Selected); Header->VMList->Selected = 0; Header->Changed++; CustomUpdateSensitivity(Header); } static void CustomMoveUp(Header,item,dir) CustomHeader *Header; ListItem *item; int dir; { XmString NewItems[2]; ListItem *i; ListItem *swap = item->Prev; int position=0; for (i = Header->VMList->First; i != 0; i = i->Next) { position++; if (i == item) break; } NewItems[0] = MidasCharToString(item->Entry); NewItems[1] = MidasCharToString(swap->Entry); XmListReplaceItemsPos(Header->VMList->W,NewItems,2,--position); XmStringFree(NewItems[0]); XmStringFree(NewItems[1]); if (dir) { XmListDeselectPos(Header->VMList->W,position); XmListSelectPos(Header->VMList->W,position+1,0); } else { XmListSelectPos(Header->VMList->W,position,0); XmListDeselectPos(Header->VMList->W,position+1); } if (Header->VMList->First == swap) Header->VMList->First = item; else swap->Prev->Next = item; if (Header->VMList->Last == item) Header->VMList->Last = swap; else item->Next->Prev = swap; item->Prev = swap->Prev; swap->Next = item->Next; item->Next = swap; swap->Prev = item; Header->Changed++; CustomUpdateSensitivity(Header); } static void CustomVMUp(w,closure,cbDataP) Widget w; Opaque closure; XmAnyCallbackStruct *cbDataP; { CustomHeader *Header = CustomFindHeader(w); CustomMoveUp(Header,Header->VMList->Selected,0); } static void CustomVMDown(w,closure,cbDataP) Widget w; Opaque closure; XmAnyCallbackStruct *cbDataP; { CustomHeader *Header = CustomFindHeader(w); CustomMoveUp(Header,Header->VMList->Selected->Next,1); } static void CustomDispatchCommand(w,tag,cbDataP) Widget w; Opaque tag; XmAnyCallbackStruct *cbDataP; { MidasDispatchCommandCallback(w,tag,cbDataP); } static void CustomCreateCallback(w,tag,cbDataP) Widget w; int *tag; XmAnyCallbackStruct *cbDataP; { ListItem *item = CustomHeaders.Selected; CustomHeader *Header = item->Pointer; if (*tag == 1) Header->CustomCommandText = w; else if (*tag == 2) Header->CustomVMUpButton = w; else if (*tag == 3) Header->CustomVMDownButton = w; else if (*tag == 4) Header->CustomVMAddVerbButton = w; else if (*tag == 5) Header->CustomVMAddMenuButton = w; else if (*tag == 6) Header->CustomVMSeparatorButton = w; else if (*tag == 7) Header->CustomVMRemoveButton = w; else if (*tag == 8) Header->CustomVMList = w; else if (*tag == 9) Header->CustomOKButton = w; else if (*tag == 10) Header->CustomApplyButton = w; else if (*tag == 11) Header->CustomCancelButton = w; else if (*tag == 12) Header->CustomResetButton = w; else if (*tag == 13) Header->CustomVerbList = w; else if (*tag == 14) Header->CustomVerbText = w; else if (*tag == 15) Header->CustomVerbAddButton = w; else if (*tag == 16) Header->CustomVerbDeleteButton = w; else if (*tag == 17) Header->CustomMenuList = w; else if (*tag == 18) Header->CustomMenuText = w; else if (*tag == 19) Header->CustomMenuAddButton = w; else if (*tag == 20) Header->CustomMenuDeleteButton = w; else if (*tag == 21) Header->CustomVMActiveLabel = w; else if (*tag == 22) Header->CustomVerbIsToggle = w; } static void CustomDestroyMenu(w) Widget w; { Widget *list = DXmChildren(w); int n = DXmNumChildren(w); for (; n > 0; n--) { XtUnmanageChild(*list); XtDestroyWidget(*list); list++; } } static char *strtrn(in,from,to) char *in; char from; char to; { char *p = in; for (; *p != 0; p++) if (*p == from) *p = to; return in; } static void CustomBuildMenu(Header,w,menu) CustomHeader *Header; Widget w; List *menu; { Widget child[4000]; ListItem *j; int m=0; for (j = menu->First; j != 0; j = j->Next) { VerbInMenu *vm = ((VerbInMenu *) j->Pointer); if (vm->Verb != 0) { ListItem *verb = MidasFindItemInListPos(&Header->VerbList,vm->Verb); XmString verbname = MidasCharToString(verb->Entry); VerbStruct *Verb = (VerbStruct *) verb->Pointer; Arg args[10]; int n = 0; char *name = strtrn(XtNewString(verb->Entry),' ','_'); strtrn(name,'.','_'); if (Verb->IsToggle) { XtSetArg(args[n],XmNlabelString, verbname); n++; child[m] = XmCreateToggleButtonGadget(w,name,args,n); MidasSetupWidget(child[m]); XtAddCallback(child[m++],XmNvalueChangedCallback, CustomDispatchCommand,Verb->Command); } else { XtSetArg(args[n],XmNlabelString, verbname); n++; child[m] = XmCreatePushButtonGadget(w,name,args,n); MidasSetupWidget(child[m]); XtAddCallback(child[m++],XmNactivateCallback, CustomDispatchCommand,Verb->Command); } XtFree(name); XmStringFree(verbname); } else if (vm->Menu != 0) { ListItem *menu = MidasFindItemInListPos(&Header->MenuList,vm->Menu); XmString menuname = MidasCharToString(menu->Entry); char *name = strtrn(XtNewString(menu->Entry),' ','_'); Widget submenu = XmCreatePulldownMenu(w,name,NULL,0); int n = 0; Arg args[10]; XtSetArg(args[n],XmNlabelString , menuname ); n++; XtSetArg(args[n],XmNsubMenuId , submenu ); n++; child[m] = XmCreateCascadeButtonGadget(w,name,args,n); /* * If the last item in a menu is a HELP menu, force it to be right aligned */ if (j->Next == NULL && strcmp(name,"Help")==0) { n = 0; XtSetArg(args[n],XmNmenuHelpWidget,child[m]); n++; XtSetValues(w,args,n); } MidasSetupWidget(submenu); MidasSetupWidget(child[m++]); XtFree(name); XmStringFree(menuname); CustomBuildMenu(Header,submenu,menu->Pointer); } else { child[m++] = XmCreateSeparatorGadget(w," ",NULL,0); } } XtManageChildren(child,m); } static void CustomUpdateMenus(Header) CustomHeader *Header; { ListItem *connect = Header->ConnectList.First; for (; connect != 0 ; connect = connect->Next ) { Link *link = connect->Pointer; ListItem *menu = MidasFindItemInList(&Header->MenuList,connect->Entry); CustomDestroyMenu(link->Widget); CustomBuildMenu(Header,link->Widget,menu->Pointer); } } static VerbStruct *CustomCopyVerbListElement(Old) VerbStruct *Old; { VerbStruct *New = XtNew(VerbStruct); New->IsToggle = Old->IsToggle; New->Command = XtNewString(Old->Command); return New; } static VerbInMenu *CustomCopyVMListElement(vm) VerbInMenu *vm; { return (VerbInMenu *) memcpy(XtMalloc(sizeof(VerbInMenu)),vm,sizeof(VerbInMenu)); } static List *CustomCopyMenuListElement(L) List *L; { List *New = MidasCreateEmptyList(""); MidasCopyList(L,New,(MidasCopyListRtn)CustomCopyVMListElement); return New; } static void CustomCopyVerbList(Old,New) List *Old; List *New; { MidasCopyList(Old,New,(MidasCopyListRtn)CustomCopyVerbListElement); } static void CustomCopyMenuList(Old,New) List *Old; List *New; { MidasCopyList(Old,New,(MidasCopyListRtn)CustomCopyMenuListElement); } static void CustomCleanup(Header) CustomHeader *Header; { XmString string; if (Header->VMList != 0) MidasUnrealizeList(Header->VMList); MidasUnrealizeList(&Header->TempVerbList); MidasUnrealizeList(&Header->TempMenuList); Header->VMList=0; string = MidasCharToString("No Menu Selected"); CustomSetActiveMenu(Header,string); XmStringFree(string); XmTextSetString(Header->CustomVerbText,""); XmTextSetString(Header->CustomMenuText,""); XmTextSetString(Header->CustomCommandText,""); } static void CustomApply(w,tag,cbDataP) Widget w; int *tag; XmSelectionBoxCallbackStruct *cbDataP; { ListItem *i; CustomHeader *Header = CustomFindHeader(w); Header->Changed = 0; Header->Modified++; for (i = Header->MenuList.First ; i != 0 ; i = i->Next ) { MidasDestroyList(i->Pointer); i->Pointer = 0; } for (i = Header->VerbList.First ; i != 0 ; i = i->Next ) { VerbStruct *Verb = (VerbStruct *) i->Pointer; XtFree(Verb->Command); XtFree((char *) Verb); i->Pointer = 0; } MidasEmptyList(&Header->VerbList); MidasEmptyList(&Header->MenuList); Header->VerbList = NullList; Header->MenuList = NullList; CustomCopyVerbList(&Header->TempVerbList,&Header->VerbList); CustomCopyMenuList(&Header->TempMenuList,&Header->MenuList); CustomUpdateMenus(Header); CustomUpdateSensitivity(Header); } static void CustomReset(w,tag,cbDataP) Widget w; int *tag; XmSelectionBoxCallbackStruct *cbDataP; { CustomHeader *Header = CustomFindHeader(w); ListItem *i; CustomCleanup(Header); for (i = Header->TempMenuList.First ; i != 0 ; i = i->Next ) { MidasDestroyList(i->Pointer); i->Pointer = 0; } for (i = Header->TempVerbList.First ; i != 0 ; i = i->Next ) { VerbStruct *Verb = (VerbStruct *) i->Pointer; XtFree(Verb->Command); XtFree((char *) Verb); i->Pointer = 0; } MidasEmptyList(&Header->TempVerbList); MidasEmptyList(&Header->TempMenuList); Header->TempVerbList = NullList; Header->TempMenuList = NullList; CustomCopyVerbList(&Header->VerbList,&Header->TempVerbList); CustomCopyMenuList(&Header->MenuList,&Header->TempMenuList); MidasRealizeList(&Header->TempVerbList,Header->CustomVerbList); MidasRealizeList(&Header->TempMenuList,Header->CustomMenuList); Header->Changed = 0; CustomUpdateSensitivity(Header); } static void CustomCancel(w,tag,cbDataP) Widget w; int *tag; XmSelectionBoxCallbackStruct *cbDataP; { ListItem *i; CustomHeader *Header = CustomFindHeader(w); XtUnmanageChild(Header->Fetched); CustomCleanup(Header); for (i = Header->TempMenuList.First ; i != 0 ; i = i->Next ) { MidasDestroyList(i->Pointer); i->Pointer = 0; } for (i = Header->TempVerbList.First ; i != 0 ; i = i->Next ) { VerbStruct *Verb = (VerbStruct *) i->Pointer; XtFree(Verb->Command); XtFree((char *) Verb); i->Pointer = 0; } MidasEmptyList(&Header->TempVerbList); MidasEmptyList(&Header->TempMenuList); Header->TempVerbList = NullList; Header->TempMenuList = NullList; } static void CustomOk(w,tag,cbDataP) Widget w; int *tag; XmSelectionBoxCallbackStruct *cbDataP; { CustomHeader *Header = CustomFindHeader(w); ListItem *i; CustomCleanup(Header); if (Header->Changed != 0) { for (i = Header->MenuList.First ; i != 0 ; i = i->Next ) { MidasDestroyList(i->Pointer); i->Pointer = 0; } for (i = Header->VerbList.First ; i != 0 ; i = i->Next ) { VerbStruct *Verb = (VerbStruct *) i->Pointer; XtFree(Verb->Command); XtFree((char *) Verb); i->Pointer = 0; } MidasEmptyList(&Header->VerbList); MidasEmptyList(&Header->MenuList); Header->VerbList = Header->TempVerbList; Header->MenuList = Header->TempMenuList; CustomUpdateMenus(Header); Header->Modified++; } else { for (i = Header->TempMenuList.First ; i != 0 ; i = i->Next ) { MidasDestroyList(i->Pointer); i->Pointer = 0; } for (i = Header->TempVerbList.First ; i != 0 ; i = i->Next ) { VerbStruct *Verb = (VerbStruct *) i->Pointer; XtFree(Verb->Command); XtFree((char *) Verb); i->Pointer = 0; } MidasEmptyList(&Header->TempVerbList); MidasEmptyList(&Header->TempMenuList); } Header->TempVerbList = NullList; Header->TempVerbList = NullList; XtUnmanageChild(Header->Fetched); } static void CustomWrite(Header,Name) CustomHeader *Header; char *Name; { ListItem *i,*j; List *menu; char list[4096]; char value[4096]; char specifier[80]; char *l = list; MidasShell *ms = MidasGetShell(Header->Parent); XrmDatabase *database = &ms->Database; int n= 0 ; for (i = Header->VerbList.First; i != 0; i = i->Next) { VerbStruct *Verb = (VerbStruct *) i->Pointer; strcpy(l,i->Entry); l += strlen(i->Entry); *l++ = '#'; sprintf(specifier,"CUSTOM.%s.Verb.%d",Name,++n); if (Verb->IsToggle) sprintf(value,"#%s",Verb->Command); else sprintf(value,"%s" ,Verb->Command); XrmPutStringResource(database,specifier,value); } *(--l) = '\0'; sprintf(specifier,"CUSTOM.%s.Verbs",Name); XrmPutStringResource(database,specifier,list); l = list; n = 0; for (i = Header->MenuList.First; i != 0; i = i->Next) { char *v = value; menu = i->Pointer; strcpy(l,i->Entry); l += strlen(i->Entry); *l++ = '#'; for (j = menu->First; j != 0; j = j->Next) { VerbInMenu *vm = ((VerbInMenu *) j->Pointer); int pos = 0; if (vm->Verb != 0) pos = vm->Verb; else if (vm->Menu != 0) pos = -vm->Menu; sprintf(v,"%s\\%d#",j->Entry,pos); v += strlen(v); } *(--v) = '\0'; sprintf(specifier,"CUSTOM.%s.Menu.%d",Name,++n); XrmPutStringResource(database,specifier,value); } *(--l) = '\0'; sprintf(specifier,"CUSTOM.%s.Menus",Name); XrmPutStringResource(database,specifier,list); ms->Changes++; Header->Modified = 0; } static void CustomReadOld(Header,Name,UserDefaults) CustomHeader *Header; char *Name; int UserDefaults; { char buffer[4000] , name[80]; FILE *file; if (UserDefaults) { #ifdef VAX sprintf(name,"DECW$USER_DEFAULTS:MIDAS_%s.DAT",Name); #else sprintf(name,".Midas_%src",Name); #endif file = fopen(name,"r"); } if (file == 0) { sprintf(name,"DECW$SYSTEM_DEFAULTS:MIDAS_%s.DAT",Name); file = fopen(name,"r"); } if (file == 0) file = fopen("DECW$SYSTEM_DEFAULTS:MIDAS_CUSTOM.DAT","r"); if (file == 0) MidasError("Could not open customization file for %s",Name); for (;;) { int c = fgetc(file); if (c == EOF) break; if (c == '$') { int i,j,l; char type[6],*p; p = type; *p++ = fgetc(file); *p++ = fgetc(file); *p++ = fgetc(file); *p++ = fgetc(file); *p++ = fgetc(file); *p = '\0'; for (l=0;;l++) { c = fgetc(file); buffer[l] = c; if (c == '{') j=l; if (c == '}' | c == EOF) break; } i = 1; buffer[j-1] = '\0'; j += 2; if (strcmp(type,"Verb:") == 0) { VerbStruct *Verb = XtNew(VerbStruct); ListItem *item; if (buffer[i]=='#') { i++; Verb->IsToggle = TRUE; } else Verb->IsToggle = FALSE; item = MidasAddItemToList(&Header->VerbList,&buffer[i]); buffer[l-1] = '\0'; item->Pointer = Verb; Verb->Command = XtNewString(&buffer[j]); } else if (strcmp(type,"Menu:") == 0) { int k; List *list; ListItem *item = MidasAddItemToListPos(&Header->MenuList,&buffer[i],0); list = XtNew(List); list->First = 0; list->Last = 0; list->Selected = 0; list->W = 0; item->Pointer = list; for (;;) { VerbInMenu *vm; int pos; for (;buffer[j]==' ';j++); for (k=j; buffer[k]!='\\' && buffer[k]!='}'; k++); if (buffer[k]=='}') break; buffer[k]='\0'; item = MidasAddItemToListPos(list,&buffer[j],0); vm = XtNew(VerbInMenu); item->Pointer = vm; vm->Menu = 0; vm->Verb = 0; j = k+1; for (k=j; buffer[k]!='\n'; k++); buffer[k]='\0'; pos = atoi(&buffer[j]); if (pos > 0) vm->Verb = pos; else if (pos < 0) vm->Menu = -pos; j = k+1; } } } } fclose(file); } static void CustomRead(Header,Name,UserDefaults) CustomHeader *Header; char *Name; int UserDefaults; { XrmDatabase database = XtDatabase(XtDisplay(Header->Parent)); char specifier[80]; char *type; XrmRepresentation rep; char *Verbs, *verb; char *Menus, *menu; XrmValue value; Boolean found; int n = 0; XrmHashTable root[10]; XrmQuark quarks[3]; /* * Start by reading the lists of verbs and menus */ sprintf(specifier,"CUSTOM.%s.Verbs",Name); found = XrmGetResource(database,specifier,specifier,&type,&value); if (!found) { CustomReadOld(Header,Name,UserDefaults); return; } Verbs = XtNewString(value.addr); sprintf(specifier,"CUSTOM.%s.Menus",Name); found = XrmGetResource(database,specifier,specifier,&type,&value); Menus = XtNewString(value.addr); sprintf(specifier,"CUSTOM.%s.Verb",Name); XrmStringToNameList(specifier,quarks); XrmQGetSearchList(database,quarks,quarks,root,XtNumber(root)); for (verb = strtok(Verbs,"#"); verb != NULL; verb = strtok(NULL,"#")) { VerbStruct *Verb = XtNew(VerbStruct); ListItem *item = MidasAddItemToListPos(&Header->VerbList,verb,0); char name[8]; char *command; sprintf(name,"%d",++n); XrmQGetSearchResource(root,XrmStringToName(name),XrmStringToClass(name),&rep,&value); command = value.addr; if (Verb->IsToggle = (*command == '#')) command++; item->Pointer = Verb; Verb->Command = XtNewString(command); } n = 0; sprintf(specifier,"CUSTOM.%s.Menu",Name); XrmStringToNameList(specifier,quarks); XrmQGetSearchList(database,quarks,quarks,root,XtNumber(root)); for (menu = strtok(Menus,"#"); menu != NULL; menu = strtok(NULL,"#")) { char *menuitems, *p; char name[8]; List *list = MidasCreateEmptyList(""); ListItem *item = MidasAddItemToListPos(&Header->MenuList,menu,0); item->Pointer = list; sprintf(name,"%d",++n); XrmQGetSearchResource(root,XrmStringToName(name),XrmStringToClass(name),&rep,&value); menuitems = XtNewString(value.addr); for (p = menuitems; *p != '\0'; p++) { VerbInMenu *vm = XtNew(VerbInMenu); int pos; ListItem *item; for (verb = p; *p != '\\'; p++); *p = '\0'; item = MidasAddItemToListPos(list,verb,0); item->Pointer = vm; vm->Menu = 0; vm->Verb = 0; for (verb = ++p; *p != '#' && *p != '\0'; p++); pos = atoi(verb); if (pos > 0) vm->Verb = pos; else if (pos < 0) vm->Menu = -pos; if (*p == '\0') break; } XtFree(menuitems); } XtFree(Verbs); XtFree(Menus); } static void CustomDisconnect(w,connect,cbDataP) Widget w; ListItem *connect; XmSelectionBoxCallbackStruct *cbDataP; { Link *link = connect->Pointer; CustomHeader *Header = link->Header; MidasRemoveItemFromList(&Header->ConnectList,connect); } void CustomWriteUser(name,entry) char *name; char *entry; { CustomHeader *Header; ListItem *item = MidasFindItemInList(&CustomHeaders,name); char *fname; if (item == 0) return; Header = item->Pointer; if (entry==0) fname=name; else fname=entry; CustomWrite(Header,fname); } void CustomReadUser(name,entry) char *name; char *entry; { CustomHeader *Header; ListItem *item = MidasFindItemInList(&CustomHeaders,name); char *fname; if (item == 0) return; Header = item->Pointer; if (entry==0) fname=name; else fname=entry; CustomRead(Header,fname,1); } void CustomReadSystem(name,entry) char *name; char *entry; { CustomHeader *Header; ListItem *item = MidasFindItemInList(&CustomHeaders,name); char *fname; if (item == 0) return; Header = item->Pointer; if (entry==0) fname=name; else fname=entry; CustomRead(Header,fname,0); } void CustomConnect(name,entry,w) char *name; char *entry; Widget w; { CustomHeader *Header; ListItem *item = MidasFindItemInList(&CustomHeaders,name); ListItem *menu, *connect; Link *link; int pos; if (item == 0) return; Header = item->Pointer; menu = MidasFindItemInList(&Header->MenuList,entry); if (menu==0) { menu = MidasAddItemToList(&Header->MenuList,entry); pos = MidasFindItemPosInList(&Header->MenuList,menu); CustomUpdatePositionsAdd(&Header->MenuList,pos,0); menu->Pointer = MidasCreateEmptyList(""); } else { CustomBuildMenu(Header,w,menu->Pointer); } connect = MidasAddItemToListPos(&Header->ConnectList,entry,0); link = XtNew(Link); connect->Pointer = link; link->Widget = w; link->Header = Header; XtAddCallback(w,XmNdestroyCallback,CustomDisconnect,(XtPointer) connect); } void CustomPopup(name) char *name; { CustomHeader *Header; ListItem *item = MidasFindItemInList(&CustomHeaders,name); if (item == 0) return; Header = item->Pointer; if (Header->Fetched == 0) { int n = 0; Arg args[10]; XtSetArg(args[n],XmNuserData , Header); n++; CustomHeaders.Selected = item; Header->Fetched = MidasFetch("Midas_Custom",Header->Parent); XtSetValues(Header->Fetched,args,n); } if (XtIsManaged(Header->Fetched) == 0) { Header->TempVerbList = NullList; Header->TempMenuList = NullList; CustomCopyVerbList(&Header->VerbList,&Header->TempVerbList); CustomCopyMenuList(&Header->MenuList,&Header->TempMenuList); MidasRealizeList(&Header->TempVerbList,Header->CustomVerbList); MidasRealizeList(&Header->TempMenuList,Header->CustomMenuList); Header->Changed = 0; XtManageChild(Header->Fetched); } CustomUpdateSensitivity(Header); } void CustomCreate(name,parent) char *name; Widget parent; { CustomHeader *NewHeader; ListItem *NewItem; if (MidasFindItemInList(&CustomHeaders,name)) return; NewItem = MidasAddItemToList(&CustomHeaders,name); NewHeader = XtNew(CustomHeader); NewItem->Pointer = NewHeader; NewHeader->Modified = 0; NewHeader->Fetched = 0; NewHeader->Parent = parent; NewHeader->MenuList = NullList; NewHeader->VerbList = NullList; NewHeader->TempMenuList = NullList; NewHeader->TempVerbList = NullList; NewHeader->VMList = 0; NewHeader->ConnectList = NullList; CustomRead(NewHeader,name,1); } int CustomExit() { ListItem *i; int mods = 0; Widget w; for (i = CustomHeaders.First; i != 0; i = i->Next) { CustomHeader *Header = i->Pointer; mods += Header->Modified; } if (mods>0) { w = MidasFetch("MidasCustomExitDialog",0); XtManageChild(w); ExitResponse = -1; for (;ExitResponse == -1;) MidasFetchDispatchEvent(); } if (ExitResponse == 2 ) /* Cancel */ { XtUnmanageChild(w); return 0; } if (ExitResponse == 1 ) /* Yes */ for (i = CustomHeaders.First; i != 0; i = i->Next) { CustomHeader *Header = i->Pointer; if (Header->Modified != 0) CustomWrite(Header,i->Entry); } return 1; } static void CustomExitCallback(w,tag,cbDataP) Widget w; int *tag; XmAnyCallbackStruct *cbDataP; { ExitResponse = *tag; } void CustomInit() { static MrmRegisterArg reglist[] = { {"CustomAddVerb", (caddr_t) CustomAddVerb}, {"CustomDelVerb", (caddr_t) CustomDelVerb}, {"CustomSelVerb", (caddr_t) CustomSelVerb}, {"CustomSelConfVerb", (caddr_t) CustomSelConfVerb}, {"CustomAddMenu", (caddr_t) CustomAddMenu}, {"CustomDelMenu", (caddr_t) CustomDelMenu}, {"CustomSelMenu", (caddr_t) CustomSelMenu}, {"CustomSelConfMenu", (caddr_t) CustomSelConfMenu}, {"CustomVMAddSeparator", (caddr_t) CustomVMAddSeparator}, {"CustomVMAddVerb", (caddr_t) CustomVMAddVerb}, {"CustomVMAddMenu", (caddr_t) CustomVMAddMenu}, {"CustomVMDel", (caddr_t) CustomVMDel}, {"CustomVMSel", (caddr_t) CustomVMSel}, {"CustomVMSelConf", (caddr_t) CustomVMSelConf}, {"CustomVMUp", (caddr_t) CustomVMUp}, {"CustomVMDown", (caddr_t) CustomVMDown}, {"CustomUpdateSensitivity", (caddr_t) CustomUpdateSensitivityCallback}, {"CustomCreate", (caddr_t) CustomCreateCallback }, {"CustomApply", (caddr_t) CustomApply }, {"CustomReset", (caddr_t) CustomReset }, {"CustomOk", (caddr_t) CustomOk }, {"CustomCancel", (caddr_t) CustomCancel }, {"CustomExit", (caddr_t) CustomExitCallback } }; MrmRegisterNames(reglist, XtNumber (reglist)); CustomHeaders = NullList; MidasDeclareVerb("CUSTOM CREATE upname Widget" ,CustomCreate); MidasDeclareVerb("CUSTOM POPUP upname" ,CustomPopup); MidasDeclareVerb("CUSTOM CONNECT upname name Widget",CustomConnect); MidasDeclareVerb("CUSTOM WRITE upname {name}" ,CustomWriteUser); MidasDeclareVerb("CUSTOM READ USER upname {name}" ,CustomReadUser); MidasDeclareVerb("CUSTOM READ SYSTEM upname {name}" ,CustomReadSystem); } pos = atoi(&buffer[j]); if (pos > 0) vm->Verb = pos; midaswww-1.0/dxm.c100644 002113 001774 00000000554 05302057357 014005 0ustar00tonyjey000000 000000 #include /* Motif Toolkit and MRM */ #include Cardinal DXmNumChildren(w) Widget w; { CompositePart *p; p = &(((CompositeRec *)w)->composite); return p->num_children; } Widget *DXmChildren(w) Widget w; { CompositePart *p; p = &(((CompositeRec *)w)->composite); return p->children; } midaswww-1.0/midas.c100644 002113 001774 00000204151 05302057357 014311 0ustar00tonyjey000000 000000 #include /* For printf and so on. */ #include /* For setjmp and so on. */ #include /* for system() etc. */ #include /* Motif Toolkit and MRM */ #include #include #include #include #include #include #include #include "SGMLHyper.h" #include "SGMLCompositeText.h" #include "midaslist.h" #include "midasoperand.h" #include "midaswidget.h" #include "midasshell.h" #include "Tree.h" #if !defined(__STDC__) && !defined(_NO_PROTO) #define _NO_PROTO #endif #if defined(__STDC__) && defined(_NO_PROTO) #undef _NO_PROTO #endif #ifdef __STDC__ # ifndef MISSING_STDARG_H # include # endif # define Va_start(a,b) va_start(a,b) #else # include # define Va_start(a,b) va_start(a) #endif #ifndef VAX #include #endif #ifdef EDITRES extern void _XEditResCheckMessages(); #endif MidasOperand MidasGetIngot(); MidasOperand MidasGetCreateCallback(); void MidasLoadImage(); void MidasDispatchCommandCallback(); MidasOperand MidasEvaluateExpression(); #ifndef VAX WidgetList DXmChildren(); int DXmNumChildren(); #endif /* * Global data */ Display *display; /* Display variable */ XtAppContext app_context; /* application context */ static Widget WidgetTree = NULL; static Widget MidasMain; /* Root widget ID of main */ /* MRM fetch */ #define HASHTABLESIZE 137 static MidasWidget *HashTable[HASHTABLESIZE]; struct QueuedCommand { Widget Widget; char *Command; struct QueuedCommand *Next; }; typedef struct QueuedCommand QueuedCommand; static struct { QueuedCommand *Head; QueuedCommand *Tail; } CommandQueue; struct MidasFile { MrmHierarchy Hierarchy; Widget DefaultParent; }; typedef struct MidasFile MidasFile; struct ConvertPair { char *Name; char Value; }; typedef struct ConvertPair ConvertPair; static int ExitResponse; static ConvertPair ConvertBoolean[] = {{"true",1}, {"false",0}, {0,0}}; static XtConvertArgRec ConvertBooleanArg[] = {{XtAddress,(XtPointer) ConvertBoolean,sizeof(XtPointer)}}; static ConvertPair ConvertPacking[] = {{"XmPACK_TIGHT" ,1}, {"XmPACK_COLUMN",2}, {"XmPACK_NONE" ,3}, {0,0}}; static XtConvertArgRec ConvertPackingArg[] = {{XtAddress,(XtPointer) ConvertPacking,sizeof(XtPointer)}}; static XtConvertArgRec ConvertWidgetArg[] = {{XtBaseOffset,0,sizeof(Widget)}}; static List *MidasWidgetList; static List *MidasFileList; static List *MidasShellList; static XtTranslations MidasTranslations; Widget ActiveWidget; XmAnyCallbackStruct *ActiveCallback; Boolean IfState; static char ProblemStrings[2000]; static char *ProblemPtr = ProblemStrings; /* we need some protection here against exceeding the buffer size */ jmp_buf JmpEnv[100]; int NumJump = 0; static Widget MidasFindName(); void *MidasConvertExpression(); static XtErrorMsgHandler OldHandler; void MidasDummyHandler(){} void MidasSuppressXtWarningMessages() { OldHandler = XtAppSetWarningMsgHandler(app_context,MidasDummyHandler); } void MidasReenableXtWarningMessages() { XtAppSetWarningMsgHandler(app_context,OldHandler); } static char *MidasClassName(w) Widget w; { CoreClassPart *Class = (CoreClassPart *) XtClass(w); return Class->class_name; } Widget MidasGetActiveWidget() { return ActiveWidget; } XmString MidasCharToString(C) /*---Convert a char * to an XmString */ char *C; { return XmStringCreateSimple(C); } #ifndef _NO_PROTO void MidasError(char *fmt,...) #else /* VARARGS2*/ void MidasError(fmt,va_alist) char *fmt; va_dcl #endif { va_list args; Va_start(args, fmt); vsprintf(ProblemPtr, fmt, args); printf("Error: %s\n",ProblemPtr); ProblemPtr += strlen(ProblemPtr); *ProblemPtr++ = '\n'; va_end(args); if (NumJump > 0) longjmp(JmpEnv[--NumJump],1); *--ProblemPtr = '\0'; { Widget w; XmString string = XmStringCreateLtoR(ProblemStrings, XmSTRING_DEFAULT_CHARSET); int n = 0; Arg args[10]; XtSetArg(args[n],XmNmessageString, string); n++; w = MidasFindName("MidasErrorBox"); if (w != 0) { XtSetValues(w,args,n); XtFree(string); XtManageChild(w); } } ProblemPtr = ProblemStrings; }; char *MidasStringToChar(string) /*----Convert an XmString to a char */ XmString string; { XmStringContext context; char *result; XmStringCharSet charset; XmStringDirection direction; Boolean separator; XmStringInitContext(&context,string); XmStringGetNextSegment(context,&result,&charset,&direction,&separator); XmStringFreeContext(context); return result; }; void MidasScanChildren(w,Rtn,Closure1,Closure2) Widget w; void (*Rtn)(); XtPointer Closure1; XtPointer Closure2; { int n; Widget *list; if (XtIsSubclass(w,compositeWidgetClass)) { list = DXmChildren(w); n = DXmNumChildren(w); for (; n > 0; n-- , list++) Rtn(*list,Closure1,Closure2); } if (SGMLIsCompositeText(w)) { Arg arglist[10]; int nn = 0; XtSetArg(arglist[nn],XtNchildren,&list); nn++; XtSetArg(arglist[nn],XtNnumChildren,&n); nn++; XtGetValues(w,arglist,nn); for (; n > 0; n-- , list++) Rtn(*list,Closure1,Closure2); } if (XtIsWidget(w) && w->core.screen != 0) { list = w->core.popup_list; n = w->core.num_popups; if (list != NULL) for (; n > 0; n-- , list++) Rtn(*list,Closure1,Closure2); } } void MidasScanAncestors(w,Rtn,Closure1) Widget w; void (*Rtn)(); XtPointer Closure1; { int n; Widget *list; Rtn(w,Closure1); MidasScanChildren(w,MidasScanAncestors,(XtPointer) Rtn,Closure1); } static MrmHierarchy MidasOpenUidFile(name,parent) char *name; Widget parent; { MrmHierarchy hierarchy; MidasFile *mfile; ListItem *item; MrmOpenHierarchy(1, &name, NULL, &hierarchy); item = MidasAddItemToList(MidasFileList,name); mfile = XtNew(MidasFile); mfile->DefaultParent = parent; mfile->Hierarchy = hierarchy; item->Pointer = mfile; return hierarchy; } void MidasWidgetBeingDestroyed(w,mw,reason) Widget w; MidasWidget *mw; MidasWidget **reason; { /* remove from hash chain */ int hash = ((int) w) % HASHTABLESIZE; MidasWidget *loop = HashTable[hash]; if (loop == mw) HashTable[hash] = mw->HashChain; else { for ( ; loop->HashChain != mw; loop = loop->HashChain); loop->HashChain = mw->HashChain; } if (mw->Map != NULL) XtDestroyWidget(mw->Map); if (mw->IngotList != NULL) MidasDestroyIngots(mw); if (mw->NameEntry != NULL) MidasRemoveItemFromList(MidasWidgetList,mw->NameEntry); else XtFree((char *) mw); } MidasWidget *MidasWidgetToMW(w) Widget w; /* * This routine returns a pointer to the MidasWidget structure for any widget. */ { int hash = ((int) w) % HASHTABLESIZE; MidasWidget *mw = HashTable[hash]; for ( ; mw != NULL; mw = mw->HashChain) if (mw->Widget == w) return mw; mw = XtNew(MidasWidget); mw->Widget = w; mw->ShowChildren = False; mw->Map = NULL; mw->IngotList = NULL; mw->Parent = NULL; mw->NameEntry = NULL; mw->HashChain = HashTable[hash]; mw->Inited = FALSE; HashTable[hash] = mw; return mw; } static void MidasRegisterName(name,w) char *name; Widget w; { ListItem *item = MidasFindItemInList(MidasWidgetList,name); if (item == NULL || ((MidasWidget *) item->Pointer)->Widget != w) { MidasWidget *mw = MidasWidgetToMW(w); item = MidasAddItemToList(MidasWidgetList,name); item->Pointer = mw; mw->NameEntry = item; } } static void MidasAddChildTree(Child,mw) Widget Child; MidasWidget *mw; { Widget w; MidasWidget *newmw = MidasWidgetToMW(Child); XmString label; Arg arglist[3]; int n = 0; if (WidgetTree == NULL) return; label = MidasCharToString(XtName(Child)); if (mw != NULL) { XtSetArg(arglist[n],XtNtreeParent,mw->Map); n++; } XtSetArg(arglist[n],XmNuserData,Child); n++; XtSetArg(arglist[n],XmNlabelString,label); n++; w = XmCreatePushButton(WidgetTree,"TreeLeaf",arglist,n); XmStringFree(label); XtManageChild(w); newmw->Map = w; } static void MidasRemoveChildTree(Child) Widget Child; { MidasWidget *mw = MidasWidgetToMW(Child); if (mw->ShowChildren) MidasScanChildren(Child,MidasRemoveChildTree,NULL,NULL); if (mw->Map != NULL) { XtDestroyWidget(mw->Map); mw->Map = NULL; } mw->ShowChildren = FALSE; } static void MidasToggleChildrenTree(w) Widget w; { MidasWidget *mw = MidasWidgetToMW(w); if (WidgetTree == NULL) return; mw->ShowChildren = !mw->ShowChildren; if (mw->ShowChildren) MidasScanChildren(w,MidasAddChildTree,(XtPointer) mw,NULL); else MidasScanChildren(w,MidasRemoveChildTree,NULL,NULL); } void MidasSetupWidget(w) Widget w; { typedef struct _MR { char *Ingots; char *CreateCallback; } MidasResources; MidasResources result; MidasWidget *mw = MidasWidgetToMW(w); MidasWidget *parent = MidasWidgetToMW(XtParent(w)); #define Offset(field) XtOffsetOf(MidasResources,field) static XtResource resources[] = {{"midasIngots" ,"MidasIngots" ,XtRString ,sizeof(char *), Offset(Ingots) ,XtRImmediate ,NULL}, {"midasCreateCallback" ,"MidasCreateCallback" ,XtRString ,sizeof(char *), Offset(CreateCallback) ,XtRImmediate ,NULL}}; #undef Offset /* * Check if widget already initialized */ if (mw->Inited) return; mw->Inited = TRUE; /* * If the widgets parent has show children (in the widget tree) * then make it so */ if (parent->ShowChildren) MidasAddChildTree(w,parent); /* * Add the special midas translation to all Widget children */ if (XtIsWidget(w)) XtOverrideTranslations(w,MidasTranslations); XtAddCallback(w,XtNdestroyCallback,MidasWidgetBeingDestroyed,(XtPointer) mw); XtGetApplicationResources(w,(XtPointer)&result,resources,XtNumber(resources),NULL,0); if (result.Ingots != NULL) MidasSetupIngots(mw,result.Ingots); if (result.CreateCallback != NULL) { MidasSetIngotString(w,"midasCreateCallback",result.CreateCallback); MidasDispatchCommandCallback(w,result.CreateCallback,NULL); } } Widget MidasCreateWidget(Parent,Class,Name) Widget Parent; WidgetClass Class; char *Name; { Widget w = XtCreateManagedWidget(Name,Class,Parent,NULL,0); MidasRegisterName(Name,w); MidasSetupWidget(w); return w; } Widget MidasFetch(name,parent) char *name; Widget parent; { MrmType class; Widget actualParent, widget = 0; MidasFile *mfile; ListItem *i; Boolean Dialog = MidasGetQualifier("DIALOG"); static LookingForParent = FALSE; if (!LookingForParent) { LookingForParent = TRUE; MidasGetQualifier("PARENT",&parent); LookingForParent = FALSE; } for (i=MidasFileList->First; i != 0; i=i->Next) { mfile = i->Pointer; if (parent==0) actualParent = mfile->DefaultParent; else actualParent = parent; if (Dialog) { Arg args[10]; int n = 0; char *dialogName = strcat(strcpy(XtMalloc(strlen(name)+7),name),"Dialog"); Widget Dw = XmCreateDialogShell(actualParent,dialogName,NULL,0); XtSetArg(args[n],XmNx, 0); n++; XtSetArg(args[n],XmNy, 0); n++; if (MrmFetchWidgetOverride(mfile->Hierarchy,name,Dw,NULL, args,n,&widget,&class) ==MrmSUCCESS) { MidasRegisterName(name,widget); MidasScanAncestors(Dw,MidasSetupWidget,NULL); return widget; } XtDestroyWidget(Dw); } else { if (MrmFetchWidget(mfile->Hierarchy,name,actualParent,&widget,&class) == MrmSUCCESS) { MidasRegisterName(name,widget); MidasScanAncestors(widget,MidasSetupWidget,NULL); return widget; } } } return 0; } Pixmap MidasFetchIcon(name) char *name; { Pixmap PixMap; ListItem *i; MidasSuppressXtWarningMessages(); for (i=MidasFileList->First; i != 0; i=i->Next) { MidasFile *mfile = i->Pointer; Widget w = mfile->DefaultParent; Screen *screen = XtScreen(w); Pixel foreground = WhitePixelOfScreen(screen); Pixel background = BlackPixelOfScreen(screen); if (MrmFetchIconLiteral(mfile->Hierarchy,name, screen, XtDisplay(w), foreground, background, &PixMap) == MrmSUCCESS) { MidasReenableXtWarningMessages(); /* printf("found icon at %x!!!\n",PixMap); */ return PixMap; } } MidasReenableXtWarningMessages(); /* printf("failed to find icon!!!\n"); */ return 0; } static Widget MidasFindName(name) char *name; { ListItem *item = MidasFindItemInList(MidasWidgetList,name); if (item != 0) { MidasWidget *mw = item->Pointer; return mw->Widget; } else { return MidasFetch(name,0); } } void MidasFetchDispatchEvent() { XEvent event; XtAppNextEvent(app_context,&event); XtDispatchEvent(&event); } void MidasGetCallbacks(L,w) List *L; Widget w; { unsigned int numResource; XtResource *Resource, *R; WidgetClass Class = XtClass(w); MidasEmptyList(L); MidasAddItemToList(L,"midasCreateCallback"); XtGetResourceList(Class,&Resource,&numResource); for (R=Resource; numResource-- > 0; R += 1) if (strcmp(R->resource_type,"Callback") == 0) { ListItem *item = MidasAddItemToList(L,R->resource_name); } } void MidasGetResources(L,w) List *L; Widget w; { unsigned int numResource; XtResource *Resource, *R; WidgetClass Class = XtClass(w); MidasEmptyList(L); XtGetResourceList(Class,&Resource,&numResource); for (R=Resource; numResource-- > 0; R += 1) if (strcmp(R->resource_type,"Callback") != 0) { ListItem *item = MidasAddItemToList(L,R->resource_name); } } MidasOperand MidasGetAppResource(w,ResourceName) Widget w; char *ResourceName; { static XtResource resources = {"userData","UserData",XtRString,sizeof(char *),0,XtRString,""}; char *result=""; MidasOperand Temp; XtResource *rt = XtNew(XtResource); *rt = resources; rt->resource_name = XtNewString(ResourceName); XtGetApplicationResources(w,(XtPointer) &result,rt,1,NULL,0); Temp.Value.P = result; Temp.Dynamic = FALSE; Temp.Type = MString; return Temp; } MidasOperand MidasGetValue(w,ResourceName) Widget w; char *ResourceName; { MidasOperand Temp; char result[200], *ret; unsigned int numResource; int notfound = 1; XtResource *Resource, *R; WidgetClass Class = XtClass(w); /* Special handling for midasCreateCallback resource */ if (strcmp(ResourceName,"midasCreateCallback") == 0) return MidasGetCreateCallback(w); XtGetResourceList(Class,&Resource,&numResource); for (R=Resource; numResource-- > 0; R += 1) { if (strcmp(R->resource_name,ResourceName) == 0) { notfound = 0; if (strcmp(R->resource_type,XtRString) == 0) { char *ptr; int n=0; Arg args[10]; XtSetArg(args[n],ResourceName,&ptr); n++; XtGetValues(w,args,n); ret = XtNewString(ptr); } else if (strcmp(R->resource_type,"XmString") == 0) { String ptr; int n=0; Arg args[10]; XtSetArg(args[n],ResourceName, &ptr); n++; XtGetValues(w,args,n); if (ptr == 0) ret = XtNewString(""); else ret = MidasStringToChar(ptr); } else { XrmValue from,to; if (strcmp(R->resource_type,"Callback") == 0) { int n = 0; Arg args[10]; XtSetArg(args[n],ResourceName, &from.addr); n++; XtGetValues(w,args,n); } else from.addr = ((char *) w) + R->resource_offset; from.size = R->resource_size; to.size = 200; to.addr = result; XtConvertAndStore(w,R->resource_type,&from,XtRString,&to); if (to.size > 200) { ret = XtMalloc(to.size); to.addr = ret; XtConvertAndStore(w,R->resource_type,&from,XtRString,&to); } else ret = XtNewString(result); } } } XtFree((char *)Resource); if (notfound) MidasError("Resource %s not found",ResourceName); Temp.Value.P = ret; Temp.Dynamic = TRUE; Temp.Type = MString; return Temp; } MidasShell *MidasGetShell(w) Widget w; { MidasShell *ms; ListItem *i; for (; ; w = XtParent(w)) for (i = MidasShellList->First; i != 0; i = i->Next) { ms = i->Pointer; if (ms->Widget == w) return ms; } } void MidasDispatchAndTrapErrors(command) char *command; { if (setjmp(JmpEnv[NumJump++]) == 0) { MidasDispatchCommand(command); NumJump--; } else MidasError("Error interpreting command: %s\n from widget %s (class %s)" ,command,XtName(ActiveWidget),MidasClassName(ActiveWidget)); } static void midas_command_proc(w,tag,reason) Widget w; char *tag; XmCommandCallbackStruct *reason; { char *command = MidasStringToChar(reason->value); Widget Stack = ActiveWidget; Boolean StackIf = IfState; ActiveWidget = w; IfState = FALSE; MidasDispatchAndTrapErrors(command); ActiveWidget = Stack; IfState = StackIf; XtFree(command); }; void MidasEchoCommand(command) char *command; { XmString s = MidasCharToString(command); Widget w = MidasFindName("MidasCommand"); if (w != 0) w = XmCommandGetChild(w,XmDIALOG_HISTORY_LIST); if (w != 0) { XmListAddItem(w,s,0); XmListSetBottomPos(w,0); } XmStringFree(s); #ifdef debug printf("Executing Command: %s\n",command); #endif } void MidasDispatchCommandCallback(w,tag,reason) Widget w; char *tag; XmAnyCallbackStruct *reason; { char buffer[2000]; char *p = tag , *q = buffer; Widget Stack = ActiveWidget; XmAnyCallbackStruct *CStack = reason; ActiveWidget = w; ActiveCallback = reason; for (;; p++) { if (*p == '\n' || *p == ';') { *q = '\0'; if (*buffer != '\0') { MidasEchoCommand(buffer); MidasDispatchAndTrapErrors(buffer); } q = buffer; } else if (*p == '\0') { *q = '\0'; if (*buffer != '\0') { MidasEchoCommand(buffer); MidasDispatchAndTrapErrors(buffer); } break; } else if (*p == '%') MidasForceEvaluateExpression(&p,&q); else *q++ = *p; } ActiveWidget = Stack; ActiveCallback = CStack; }; void MidasSendActionProc(w,event,params,num_params) Widget w; XEvent *event; String *params; Cardinal *num_params; { MidasDispatchCommandCallback(w,*params,NULL); } void MidasSpecialActionProc(w,event,params,num_params) Widget w; XButtonEvent *event; String *params; Cardinal *num_params; { /* * Check to see if the event really came from some child gadget * or insenstive widget */ Widget OldWidget = 0; for ( ;w != OldWidget && XtIsComposite(w); ) { Widget *list = DXmChildren(w); int n = DXmNumChildren(w); OldWidget = w; for (; n>0; n--, list++) { if (!XtIsWidget(*list) || !XtIsSensitive(*list)) { Dimension width, height; Position x,y; Arg arglist[4]; XtSetArg(arglist[0],XmNx,&x); XtSetArg(arglist[1],XmNy,&y); XtSetArg(arglist[2],XmNwidth ,&width); XtSetArg(arglist[3],XmNheight,&height); XtGetValues(*list,arglist,4); if (event->x >= x && event->x < x+width && event->y >= y && event->y < y+height) { w = *list; break; } } } } MidasDispatchCommandCallback(w,*params,NULL); } void MidasQueueCommand(w,Command) Widget w; char *Command; { QueuedCommand *QC = XtNew(QueuedCommand); QC->Widget = w; QC->Command = XtNewString(Command); QC->Next = 0; if (CommandQueue.Head == 0) CommandQueue.Head = QC; else CommandQueue.Tail->Next = QC; CommandQueue.Tail = QC; } void MidasDispatchQueuedCommands() { QueuedCommand *QC, *Next; for (QC = CommandQueue.Head; QC != 0; QC = Next) { MidasDispatchCommandCallback(QC->Widget, QC->Command, 0); XtFree(QC->Command); Next = QC->Next; XtFree((char *)QC); } CommandQueue.Head = 0; CommandQueue.Tail = 0; } void MidasIgnore(Command) char *Command; { MidasDispatchCommandCallback(ActiveWidget,Command,NULL); } void MidasIf(Doit,Command) Boolean Doit; char *Command; { if (Doit) MidasDispatchCommandCallback(ActiveWidget,Command,NULL); IfState = Doit; } void MidasElseIf(Doit,Command) Boolean Doit; char *Command; { if (!IfState) MidasIf(Doit,Command); } void MidasElse(Command) char *Command; { if (!IfState) MidasDispatchCommandCallback(ActiveWidget,Command,NULL); } void MidasBeep(pcent,w) int pcent; Widget w; { if (w == NULL) w = ActiveWidget; XBell(XtDisplay(w),pcent); } /* * This procedure will ensure that, if a dialog window is being mapped, * its contents become visible before returning. It is intended to be * used just before a bout of computing that doesn't service the display. * You should still call XmUpdateDisplay() at intervals during this * computing if possible. * * The monitoring of window states is necessary because attempts to map * the dialog are redirected to the window manager (if there is one) and * this introduces a significant delay before the window is actually mapped * and exposed. This code works under mwm, twm, uwm, and no-wm. It * doesn't work (but doesn't hang) with olwm if the mainwindow is iconified. * * The argument to ForceDialog is any widget in the dialog (often it * will be the BulletinBoard child of a DialogShell). */ void MidasForceDialog(w) Widget w; { Widget diashell, topshell; Window diawindow, topwindow; Display *dpy; XWindowAttributes xwa; XEvent event; XtAppContext cxt; /* Locate the shell we are interested in. In a particular instance, you * may know these shells already. */ for (diashell = w; !XtIsShell(diashell); diashell = XtParent(diashell)) ; /* Locate its primary window's shell (which may be the same) */ for (topshell = diashell; !XtIsTopLevelShell(topshell); topshell = XtParent(topshell)) ; if (XtIsRealized(diashell) && XtIsRealized(topshell)) { dpy = XtDisplay(topshell); diawindow = XtWindow(diashell); topwindow = XtWindow(topshell); cxt = XtWidgetToApplicationContext(diashell); /* Wait for the dialog to be mapped. It's guaranteed to become so unless... */ while (XGetWindowAttributes(dpy, diawindow, &xwa), xwa.map_state != IsViewable) { /* ...if the primary is (or becomes) unviewable or unmapped, it's probably iconified, and nothing will happen. */ if (XGetWindowAttributes(dpy, topwindow, &xwa), xwa.map_state != IsViewable) break; /* At this stage, we are guaranteed there will be an event of some kind. Beware; we are presumably in a callback, so this can recurse. */ XtAppNextEvent(cxt, &event); XtDispatchEvent(&event); } } /* The next XSync() will get an expose event if the dialog was unmapped. */ XmUpdateDisplay(topshell); } void MidasSetCursor(w,c) Widget w; int c; { Cursor C; if (c!=0) C = XCreateFontCursor(XtDisplay(w),c); else C = None; XDefineCursor(XtDisplay(w),XtWindow(w),C); XFlush(XtDisplay(w)); } void MidasSetSensitive(w,Sensitive) Widget w; Boolean Sensitive; { XtSetSensitive(w,Sensitive); } char *MidasGetWidgetName(w) Widget w; { char *parent, *thisone, *new; int pl, tl; MidasShell *ms = MidasGetShell(w); thisone = XtName(w); if (*thisone == '\0' || strchr(thisone,'-') != 0) MidasError("Can not STORE RESOURCE for unnamed widget"); parent = XtName(ms->Widget); pl = strlen(parent); tl = strlen(thisone); new = XtMalloc(pl+tl+2); strcpy(new,parent); if (ms->Widget != w) { strcat(new,"*"); strcat(new,thisone); } return new; } void MidasSetValue(w,ResourceName,Op) Widget w; char *ResourceName; MidasOperand *Op; { char *result; unsigned int numResource; int found = FALSE; XtResource *Resource, *R; WidgetClass Class = XtClass(w); if (strcmp(ResourceName,"midasCreateCallback") == 0) { MidasSetIngotP(w,ResourceName,Op); return; } XtGetResourceList(Class,&Resource,&numResource); for (R=Resource; numResource-- > 0; R += 1) { if (strcmp(R->resource_name,ResourceName) == 0) { Arg arglist[1]; found = TRUE; MidasConvertOperand(Op,R->resource_type); XtSetArg(arglist[0],ResourceName,Op->Value.P); XtSetValues(w,arglist,1); break; } } XtFree((char *) Resource); if (!found) MidasError("Resource %s not found",ResourceName); } static void MidasStoreAppResource(w,resource,value) Widget w; char *resource; char *value; { char *name = MidasGetWidgetName(w); char *new = XtMalloc(strlen(name)+strlen(resource)+2); MidasShell *ms = MidasGetShell(w); strcpy(new,name); strcat(new,"."); strcat(new,resource); XrmPutStringResource(&ms->Database,new,value); ms->Changes++; XtFree(new); XtFree(name); } static void MidasStoreResource(w,resource) Widget w; char *resource; { MidasOperand Temp; Temp = MidasGetValue(w,resource); if (strcmp(Temp.Type,MString)) MidasConvertOperand(Temp,MString); MidasStoreAppResource(w,resource,Temp.Value.P); if (Temp.Dynamic) XtFree(Temp.Value.P); } static void MidasSaveStoredResources(w) Widget w; { MidasShell *ms = MidasGetShell(w); XrmPutFileDatabase(ms->Database, ms->Filename); ms->Changes = 0; } static void MidasSaveGeometry(w) Widget w; { MidasStoreResource(w,XmNx); MidasStoreResource(w,XmNy); MidasStoreResource(w,XmNwidth); MidasStoreResource(w,XmNheight); MidasSaveStoredResources(w); } static void MidasHelpOnContext(w) Widget w; { MidasShell *ms = MidasGetShell(w); Cursor C = XCreateFontCursor(XtDisplay(w),XC_question_arrow); Widget new = XmTrackingLocate(ms->Widget,C,FALSE); for (; new != NULL; new = XtParent(new)) if (XtHasCallbacks(new,XmNhelpCallback) == XtCallbackHasSome) { XtCallCallbacks(new,XmNhelpCallback,NULL); break; } XFreeCursor(XtDisplay(w),C); } static MidasOperand MidasInt(f) float f; { MidasOperand Temp; Temp.Dynamic = FALSE; Temp.Type = MInt; Temp.Value.I = (int) f; return Temp; } static void MidasSetFlag(w,flag) Widget w; int *flag; { *flag = 1; } static MidasOperand MidasHasChildren(w) Widget w; { MidasOperand Temp; Temp.Dynamic = FALSE; Temp.Type = MBoolean; Temp.Value.I = FALSE; MidasScanChildren(w,MidasSetFlag,(XtPointer) &Temp.Value.I,NULL); return Temp; } static MidasOperand MidasChildrenInTree(w) Widget w; { MidasOperand Temp; MidasWidget *mw = MidasWidgetToMW(w); Temp.Dynamic = FALSE; Temp.Type = MBoolean; Temp.Value.I = mw->ShowChildren; return Temp; } static MidasOperand MidasStrnspn(s,t) char *s; char *t; /* Exceedingly temporary */ { MidasOperand Temp; char *p = s; for (;*p != '\0' && *p == ' '; p++); for (;*p != '\0' && *p != ' '; p++); *p = '\0'; Temp.Dynamic = TRUE; Temp.Type = MString; Temp.Value.P = (XtPointer) XtNewString(s); return Temp; } static MidasOperand MidasGetWidgetId(w) Widget w; { MidasOperand Temp; Temp.Dynamic = FALSE; Temp.Type = MInt; Temp.Value.I = (int) w; return Temp; } static MidasOperand MidasIsManaged(w) Widget w; { MidasOperand Temp; int result = XtIsManaged(w); Temp.Dynamic = FALSE; Temp.Type = MBoolean; Temp.Value.I = (result != 0); return Temp; } static MidasOperand MidasIsRealized(w) Widget w; { MidasOperand Temp; int result = XtIsRealized(w); Temp.Dynamic = FALSE; Temp.Type = MBoolean; Temp.Value.I = (result != 0); return Temp; } static MidasOperand MidasGetOperandType(Op) MidasOperand *Op; { MidasOperand Temp; Temp.Dynamic = FALSE; Temp.Type = MString; Temp.Value.P = Op->Type; return Temp; } static MidasOperand MidasWidgetFunction(w) Widget w; { MidasOperand Temp; Temp.Dynamic = FALSE; Temp.Type = MWidget; Temp.Value.P = (XtPointer) w; return Temp; } static MidasOperand MidasFetchFunction(name,parent) char *name; Widget parent; { MidasOperand Temp; Temp.Dynamic = FALSE; Temp.Type = MWidget; Temp.Value.P = (XtPointer) MidasFetch(name,parent); return Temp; } static MidasOperand MidasParent(w) Widget w; { MidasOperand Temp; Temp.Dynamic = FALSE; Temp.Type = MWidget; Temp.Value.P = (XtPointer) XtParent(w); return Temp; } static MidasOperand MidasShellFunction(w) Widget w; { MidasOperand Temp; MidasShell *ms = MidasGetShell(w); Temp.Dynamic = FALSE; Temp.Type = MWidget; Temp.Value.P = (XtPointer) ms->Widget; return Temp; } static MidasOperand MidasWidgetName(w) Widget w; { MidasOperand Temp; char *name = XtName(w); if (*name == '\0') { name = XtMalloc(24); sprintf(name,"No Name (%d)",w); Temp.Dynamic = TRUE; } else Temp.Dynamic = FALSE; Temp.Value.P = name; Temp.Type = MString; return Temp; } static MidasOperand MidasWidgetClass(w) Widget w; { MidasOperand Temp; Temp.Dynamic = FALSE; Temp.Type = MString; Temp.Value.P = MidasClassName(w); return Temp; } static MidasOperand MidasGetCommand() { MidasOperand Temp; XmCommandCallbackStruct *cb = (XmCommandCallbackStruct *) ActiveCallback; if (ActiveCallback->reason != XmCR_COMMAND_ENTERED) MidasError("GETCOMMAND requires callback reason XmCR_COMMAND_ENTERED"); Temp.Dynamic = TRUE; Temp.Type = MString; Temp.Value.P = MidasStringToChar(cb->value); return Temp; } static MidasOperand MidasGetClickCount() { MidasOperand Temp; XmPushButtonCallbackStruct *cb = (XmPushButtonCallbackStruct *) ActiveCallback; if (ActiveCallback->reason != XmCR_ACTIVATE) MidasError("GETCLICKCOUNT requires callback reason XmCR_ACTIVATE"); Temp.Dynamic = FALSE; Temp.Type = MInt; Temp.Value.I = cb->click_count; return Temp; } static MidasOperand MidasHyperGetText() { MidasOperand Temp; SGMLHyperCallbackStruct *cb = (SGMLHyperCallbackStruct *) ActiveCallback; /* if (ActiveCallback->reason != SGMLHYPER_REASON) MidasError("HYPERGETTEXT requires callback reason SGMLHYPER_REASON"); */ Temp.Dynamic = TRUE; Temp.Type = MString; Temp.Value.P = XtNewString(cb->text); return Temp; } static MidasOperand MidasHyperGetHidden() { MidasOperand Temp; SGMLHyperCallbackStruct *cb = (SGMLHyperCallbackStruct *) ActiveCallback; /* if (ActiveCallback->reason != SGMLHYPER_REASON) MidasError("HYPERGETTEXT requires callback reason SGMLHYPER_REASON"); */ Temp.Dynamic = TRUE; Temp.Type = MString; Temp.Value.P = XtNewString(cb->hidden); return Temp; } static MidasOperand MidasHyperGrep(w,string) Widget w; char *string; { MidasOperand Temp; Boolean result = SGMLHyperGrep(w,string,TRUE,FALSE,TRUE); Temp.Value.I = result; Temp.Type = MBoolean; Temp.Dynamic = FALSE; return Temp; } #ifndef VAX static String MidasGetRootDirName(buf) String buf; { #ifndef X_NOT_POSIX uid_t uid; #else int uid; extern int getuid(); #ifndef SYSV386 extern struct passwd *getpwuid(), *getpwnam(); #endif #endif struct passwd *pw; static char *ptr = NULL; if (ptr == NULL) { if (!(ptr = getenv("HOME"))) { if (ptr = getenv("USER")) pw = getpwnam(ptr); else { uid = getuid(); pw = getpwuid(uid); } if (pw) ptr = pw->pw_dir; else { ptr = NULL; *buf = '\0'; } } } if (ptr) (void) strcpy(buf, ptr); buf += strlen(buf); *buf = '/'; buf++; *buf = '\0'; return buf; } #endif static char* MidasGetAppUserDefaults(dpy,name) Display *dpy; char *name; { char *filename; #ifdef VAX static char file[] = "DECW$USER_DEFAULTS:", ext[] = ".DAT"; int totlen; totlen = strlen(file) + strlen(ext) + strlen(name) + 1; filename = XtMalloc(totlen); strcpy(filename,file); strcat(filename,name); strcat(filename,ext); #else char* path; Boolean Alloc=False; char homedir[256]; MidasGetRootDirName(homedir); if (!(path = getenv("XUSERFILESEARCHPATH"))) { char *old_path; if (!(old_path = getenv("XAPPLRESDIR"))) { char *path_default = "%s/%%L/%%N%%C:%s/%%l/%%N%%C:%s/%%N%%C:%s/%%L/%%N:%s/%%l/%%N:%s/%%N"; path = XtMalloc(6*strlen(homedir) + strlen(path_default)); sprintf( path, path_default, homedir, homedir, homedir, homedir, homedir, homedir ); } else { char *path_default = "%s/%%L/%%N%%C:%s/%%l/%%N%%C:%s/%%N%%C:%s/%%N%%C:%s/%%L/%%N:%s/%%l/%%N:%s/%%N:%s/%%N"; path = XtMalloc( 6*strlen(old_path) + 2*strlen(homedir) + strlen(path_default)); sprintf(path, path_default, old_path, old_path, old_path, homedir, old_path, old_path, old_path, homedir ); } Alloc=True; } filename = XtResolvePathname(dpy,NULL,name,NULL,path,NULL,0,NULL); if (!filename) { filename = XtMalloc(strlen(homedir)+strlen(name)+1); strcpy(filename,homedir); strcat(filename,name); } if (Alloc) XtFree(path); #endif return filename; } Widget MidasCreateDialog(name) char *name; { Widget parent, dialog; if (MidasGetQualifier("PARENT",&parent) == 0) MidasError("Parent required"); dialog = XmCreateDialogShell(parent,name,NULL,0); MidasRegisterName(name,dialog); return dialog; } Widget MidasCreateShellArg(name,argv,argc) char *name; String *argv; Cardinal *argc; { int totlen; char *new; ListItem *item; MidasShell *ms = XtNew(MidasShell); char *ShellName = XtNewString(name); char *ShellClass = XtNewString(name); char *uidfile; Pixmap icon; Widget w; *ShellName = tolower(*ShellName); *ShellClass = toupper(*ShellClass); display = XtOpenDisplay(app_context,NULL,NULL,ShellClass, NULL, 0, argc, argv); if (display == 0) { MidasError("Could not open display"); exit(0); } w = XtAppCreateShell(ShellName,ShellClass, applicationShellWidgetClass, display, NULL, 0); new = MidasGetAppUserDefaults(display,ShellClass); XtFree(ShellName); XtFree(ShellClass); item = MidasAddItemToList(MidasShellList,name); item->Pointer = ms; ms->Widget = w; ms->Database = XrmGetFileDatabase(new); ms->Filename = new; ms->Changes = 0; MidasSetupWidget(w); MidasRegisterName(name,w); if (MidasGetQualifier("UIDFILE",&uidfile)) MidasOpenUidFile(uidfile,w); if (MidasGetQualifier("ICON",&icon)) { int n = 0; Arg args[10]; XtSetArg(args[n],XmNiconPixmap, icon); n++; XtSetValues(w, args, n); } #ifdef EDITRES XtAddEventHandler(w, (EventMask)0, True, _XEditResCheckMessages, (XtPointer)NULL); #endif /* Shells are always displayed in the Widget Tree */ MidasAddChildTree(w,NULL); return w; } Widget MidasCreateShell(name) char *name; { Cardinal zilch=0; return MidasCreateShellArg(name,NULL,&zilch); } static MidasOperand MidasTreeToWidget(w) Widget w; { MidasOperand Temp; Arg arglist[1]; XtSetArg(arglist[0],XmNuserData,&Temp.Value.P); XtGetValues(w,arglist,1); Temp.Type = MWidget; Temp.Dynamic = FALSE; return Temp; } void MidasCreateWidgetTree(Tree) Widget Tree; { ListItem *item; WidgetTree = Tree; for (item = MidasShellList->First; item != 0; item = item->Next) { MidasShell *ms = (MidasShell *) item->Pointer; MidasAddChildTree(ms->Widget,NULL); } } static void MidasInvertWidget(w) Widget w; { Arg arglist[2]; Pixel fg; Pixel bg; XtSetArg(arglist[0],XmNforeground,&fg); XtSetArg(arglist[1],XmNbackground,&bg); XtGetValues(w,arglist,2); XtSetArg(arglist[0],XmNforeground,bg); XtSetArg(arglist[1],XmNbackground,fg); XtSetValues(w,arglist,2); } static void MidasCurrentWidgetInTree(w) Widget w; { static Widget OldWidget = NULL; Widget TreeW; MidasWidget *mw, *parent; if (OldWidget != NULL) { mw = MidasWidgetToMW(OldWidget); TreeW = mw->Map; if (TreeW != NULL) MidasInvertWidget(TreeW); } OldWidget = w; mw = MidasWidgetToMW(w); /* if this widget isnt in the tree, make it so */ for (; mw->Map == NULL; ) { for (parent = mw; parent->Map == NULL ; parent = MidasWidgetToMW(XtParent(parent->Widget)) ); MidasToggleChildrenTree(parent->Widget); } TreeW = mw->Map; MidasInvertWidget(TreeW); /* it may be necessary to scroll the tree to make this widget visible */ { Arg arglist[10]; int n=0; Widget h_scroll, v_scroll; Widget Tree = XtParent(TreeW); Widget Clip = XtParent(Tree); Widget Swin = XtParent(Clip); Position x_button,y_button; Dimension h_button,w_button; Position x_clip,y_clip; Dimension h_clip,w_clip; Position dv=0,dh=0; int min,max; int v_val,v_size,v_inc,v_page; int h_val,h_size,h_inc,h_page; Position x,y; /* Get window scroll bars */ XtSetArg(arglist[n],XmNhorizontalScrollBar, &h_scroll); n++; XtSetArg(arglist[n],XmNverticalScrollBar, &v_scroll); n++; XtGetValues(Swin,arglist,n); /* Get size of clip window and button */ n = 0; XtSetArg(arglist[n],XmNwidth, &w_clip); n++; XtSetArg(arglist[n],XmNheight, &h_clip); n++; XtGetValues(Clip,arglist,n); n = 0; XtSetArg(arglist[n],XmNwidth, &w_button); n++; XtSetArg(arglist[n],XmNheight, &h_button); n++; XtGetValues(TreeW,arglist,n); /* Get global coordinates of clip and selection rect */ XtTranslateCoords(Clip,0,0,&x_clip,&y_clip); XtTranslateCoords(TreeW,0,0,&x_button,&y_button); /* offset of selection within clip window */ x = x_button - x_clip; y = y_button - y_clip; /* selection y coordinate is not visible */ if( y < 0 || y + h_button > h_clip) { /* the widget must be moved verticaly by dv pixels */ dv = (y + h_button / 2) - h_clip / 2; n = 0; XtSetArg(arglist[n],XmNminimum,&min); n++; XtSetArg(arglist[n],XmNmaximum,&max); n++; XtGetValues(v_scroll,arglist,n); XmScrollBarGetValues(v_scroll,&v_val,&v_size,&v_inc,&v_page); max -= v_size; if( dv + v_val > max ) dv = max - v_val; if( dv + v_val < min ) dv = min - v_val; } /* selection x coordinate is not visible */ if( x < 0 || x + w_button > w_clip) { /* the widget must be moved horizontaly by dh pixels */ dh = (x + w_button / 2) - w_clip / 2; n = 0; XtSetArg(arglist[n],XmNminimum,&min); n++; XtSetArg(arglist[n],XmNmaximum,&max); n++; XtGetValues(h_scroll,arglist,n); XmScrollBarGetValues(h_scroll,&h_val,&h_size,&h_inc,&h_page); max -= h_size; if( dh + h_val > max ) dh = max - h_val; if( dh + h_val < min ) dh = min - h_val; } /* if the widget must be moved */ if(dv || dh) { Position x,y; n = 0; XtSetArg(arglist[n],XmNx,&x); n++; XtSetArg(arglist[n],XmNy,&y); n++; XtGetValues(Tree,arglist,n); x -= dh; y -= dv; /* move it */ n = 0; XtSetArg(arglist[n],XmNx,x); n++; XtSetArg(arglist[n],XmNy,y); n++; XtSetValues(Tree,arglist,n); /* update scroll bars */ if(dv) XmScrollBarSetValues(v_scroll,v_val+dv,v_size,v_inc, v_page,TRUE); if(dh) XmScrollBarSetValues(h_scroll,h_val+dh,h_size,h_inc, h_page,TRUE); } } } Widget MidasTraceWidgetTree(root,path) Widget root; char *path; { Widget w = root; if (strcmp(path,"") == 0) return w; else if (strncmp("^^^",path,3) == 0) { path += 3; for (w = XtParent(w); w != 0; w = XtParent(w)) { Widget result = MidasTraceWidgetTree(w,path); if (result != 0) return result; } return 0; } else if (*path == '^') { path += 1; w = XtParent(w); return MidasTraceWidgetTree(w,path); } else if (strncmp("...",path,3) == 0) { Widget *list, *save; int n , nsave; if (XtIsSubclass(w,compositeWidgetClass) != 0) { save = DXmChildren(w); nsave = DXmNumChildren(w); path += 3; for (list = save , n = nsave; n > 0; n-- , list++) { Widget result = MidasTraceWidgetTree(*list,path); if (result != 0) return result; } path -= 3; for (list = save , n = nsave; n > 0; n-- , list++) { Widget result = MidasTraceWidgetTree(*list,path); if (result != 0) return result; } } if (XtIsWidget(w)) { save = w->core.popup_list; nsave = w->core.num_popups; for (list = save , n = nsave; n > 0; n-- , list++) { Widget result = MidasTraceWidgetTree(*list,path); if (result != 0) return result; } return 0; } } else if (*path == '.') { Widget *list; int n; if (XtIsSubclass(w,compositeWidgetClass) == 0) return 0; list = DXmChildren(w); n = DXmNumChildren(w); path += 1; for (; n > 0; n-- , list++) { Widget result = MidasTraceWidgetTree(*list,path); if (result != 0) return result; } return 0; } else { char temp, *p, *e = 0; for (p=path; *p != '.' && *p != '^' && *p != '\0'; p++) { if (*p == '=') e = p; } temp = *p; *p = '\0'; if (e == 0) { if (strcmp(path,"*") == 0) { *p = temp; return MidasTraceWidgetTree(w,p); } else { if (strcmp(XtName(w),path) == 0) { *p = temp; return MidasTraceWidgetTree(w,p); } else if (strcmp(MidasClassName(w),path) == 0) { *p = temp; return MidasTraceWidgetTree(w,p); } else { *p = temp; return 0; } } } else { unsigned int numResource; XtResource *Resource, *R; WidgetClass Class = XtClass(w); XtGetResourceList(Class,&Resource,&numResource); *e = '\0'; for (R=Resource; numResource-- > 0; R += 1) if (strcmp(R->resource_name,path) == 0) { XtPointer ptr , result; XrmValue from,to; int n = 0; Arg args[10]; XtSetArg(args[n],path,&result); n++; XtGetValues(w, args, n); *e = '='; *p = temp; from.size = strlen(e+1)+1; from.addr = e+1; to.size = sizeof(XtArgVal); to.addr = (XtPointer) &ptr; XtConvertAndStore(w,XtRString,&from,R->resource_type,&to); if (to.size > sizeof(XtArgVal)) { Widget res; XtPointer ptr = XtMalloc(to.size); to.addr = ptr; XtConvertAndStore(w,XtRString,&from,R->resource_type,&to); if (memcmp(to.addr,result,to.size) == 0) res = MidasTraceWidgetTree(w,p); else res = NULL; XtFree((char *) ptr); return res; } else { if (memcmp(to.addr,result,to.size) == 0) return MidasTraceWidgetTree(w,p); else return 0; } } *e = '='; *p = temp; return 0; } } } Widget MidasFindWidget(name) char *name; { Widget w, root; char temp, *p, *path = XtNewString(name); for (p = path+1; *p != '.' && *p != '^' && *p != '\0'; p++); temp = *p; *p = '\0'; if (strcmp(path,".") == 0) root = ActiveWidget; else root = MidasFindName(path); if (root == 0) MidasError("Could not find widget %s",path); *p = temp; w = MidasTraceWidgetTree(root,p); if (w == 0) MidasError("Could not follow path %s",path); XtFree(path); return w; } static void MidasDestroy(widget) Widget widget; { XtDestroyWidget(widget); } int MidasExit() { MidasShell *ms; ListItem *i; int mods = 0; Widget w; for (i = MidasShellList->First; i != 0; i = i->Next) { ms = i->Pointer; mods += ms->Changes; } if (mods>0) { w = MidasFetch("MidasExitDialog",0); XtManageChild(w); ExitResponse = -1; for (;ExitResponse == -1;) MidasFetchDispatchEvent(); } if (ExitResponse == 2 ) /* Cancel */ { XtUnmanageChild(w); return 0; } if (ExitResponse == 1 ) /* Yes */ for (i = MidasShellList->First; i != 0; i = i->Next) { ms = i->Pointer; if (ms->Changes != 0) { XrmPutFileDatabase(ms->Database, ms->Filename); ms->Changes = 0; } } return 1; } static void MidasExitCallback(w,tag,cbDataP) Widget w; int *tag; XmAnyCallbackStruct *cbDataP; { ExitResponse = *tag; } static void MidasQuit() { if (CustomExit() && MidasExit()) exit(1); } void MidasClearWindow(w) Widget w; { XClearArea(XtDisplay(w),XtWindow(w),0,0,0,0,TRUE); } void MidasPopup(widget) Widget widget; { if (XtIsManaged(widget)==0) XtManageChild(widget); else if (XtIsRealized(widget)) { Widget parent = XtParent(widget); if (XtIsShell(parent)) XRaiseWindow(XtDisplay(parent),XtWindow(parent)); } if (XtIsRealized(widget)==0) { MidasShell *ms = MidasGetShell(widget); XtRealizeWidget(ms->Widget); } } static void MidasPopdown(widget) Widget widget; { MidasShell *ms = MidasGetShell(widget); if (ms->Widget == widget) widget = MidasTraceWidgetTree(widget,"."); if (XtIsManaged(widget)) XtUnmanageChild(widget); if (XtParent(widget) == ms->Widget) XtUnrealizeWidget(ms->Widget); } static void MidasToggle(widget) Widget widget; { if (XtIsManaged(widget)) MidasPopdown(widget); else MidasPopup(widget); } static void MidasCenterHorizontal(w,position) Widget w; int position; { Dimension width; Position offset; Widget parent = XtParent(w); int n = 0; Arg args[10]; XtSetArg(args[n],XmNwidth, &width); n++; if (XmIsForm(parent) == 0) MidasError("Can only center widgets whose parent is FORM"); XtGetValues(w,args,n); offset = -((int) width)/2; { int n = 0; Arg args[10]; XtSetArg(args[n],XmNleftAttachment, XmATTACH_POSITION); n++; XtSetArg(args[n],XmNleftOffset, offset); n++, XtSetArg(args[n],XmNleftPosition, position); n++; XtSetValues(w,args,n); } } static void MidasInvokeApplication(AppName) char *AppName; { Widget toplevel_widget = MidasCreateShell(AppName); MidasOperand Temp; Temp = MidasGetAppResource(toplevel_widget,"startup"); /* printf("\nThe startup string is %s\n",Temp.Value.P); */ if (*Temp.Value.P != '\0') MidasQueueCommand(toplevel_widget,Temp.Value.P); } static MidasOperand MidasQueryUser(w) Widget w; { int flag = 0; Arg arglist[10]; if (!XmIsBulletinBoard(w)) MidasError("QUERYUSER requires a widget of subclass BulletinBoard"); XtAddCallback(w,XmNunmapCallback,MidasSetFlag,(XtPointer) &flag); XtSetArg(arglist[0],XmNdialogStyle,XmDIALOG_FULL_APPLICATION_MODAL); XtSetValues(w,arglist,1); MidasPopup(w); for (;flag == 0;) { MidasDispatchQueuedCommands(); MidasFetchDispatchEvent(); } return MidasGetIngot(w,"result"); } /* The names and addresses of Things that Mrm.has to bind. The names do * not have to be in alphabetical order. */ static MrmRegisterArg reglist[] = { {"midas_command_proc", (caddr_t) midas_command_proc}, {"midas_exit", (caddr_t) MidasExitCallback}, {"SendMidas", (caddr_t) MidasDispatchCommandCallback}}; static XtActionsRec actions[] = { {"SendMidas" , (XtActionProc) MidasSendActionProc}, {"MidasSpecial", (XtActionProc) MidasSpecialActionProc}}; static Boolean MidasConvertStringToCallback(display,args,nargs,from,to,converter_data) Display *display; XrmValue *args; Cardinal *nargs; XrmValue *from; XrmValue *to; XtPointer *converter_data; { int size = sizeof(XtPointer); XtPointer new; XtCallbackRec *Callback; if (*from->addr == '\0') Callback = 0; else { /* This stuff is currently never freed....need to implement destructor??? */ Callback = (XtCallbackRec *) XtMalloc(sizeof(XtCallbackRec)*2); Callback[0].callback = (XtCallbackProc) MidasDispatchCommandCallback; Callback[0].closure = (XtPointer) XtNewString((char *) from->addr); Callback[1].callback = NULL; Callback[1].closure = NULL; } new = (XtPointer) &Callback; if (to->addr == 0) { to->addr = new; to->size = size; return TRUE; } else if (to->size >= size) { memcpy(to->addr,new,size); to->size = size; return TRUE; } else { to->size = size; return FALSE; } } static Boolean MidasConvertCallbackToString(display,args,nargs,from,to,converter_data) Display *display; XrmValue *args; Cardinal *nargs; XrmValue *from; XrmValue *to; XtPointer *converter_data; { XtCallbackRec *Callback = (XtCallbackRec *) from->addr; int size; XtPointer new; static char empty[] = ""; if (Callback == 0) { new = empty; } else if (Callback[0].callback == (XtCallbackProc) MidasDispatchCommandCallback) { new = Callback[0].closure; } else { new = empty; } size = strlen((char *) new) + 1; if (to->addr == 0) { to->addr = new; to->size = size; return TRUE; } else if (to->size >= size) { memcpy(to->addr,new,size); to->size = size; return TRUE; } else { to->size = size; return FALSE; } } static Boolean MidasConvertStringTable(display,args,nargs,from,to,converter_data) Display *display; XrmValue *args; Cardinal *nargs; XrmValue *from; XrmValue *to; XtPointer *converter_data; { XmString **string = (XmString **) from->addr; char *new; int size; if (*string == 0 || **string == 0) { new = XtNewString(""); size = 1; } else { new = MidasStringToChar(**string); size = strlen(new) + 1; } if (to->addr == 0) { to->addr = new; to->size = size; return TRUE; } else if (to->size >= size) { strcpy(to->addr,new); to->size = size; XtFree(new); return TRUE; } else { to->size = size; XtFree(new); return FALSE; } } static Boolean MidasConvertEnum(display,args,nargs,from,to,converter_data) Display *display; XrmValue *args; Cardinal *nargs; XrmValue *from; XrmValue *to; XtPointer *converter_data; { char *val = from->addr; char *new; int size; ConvertPair *cp = (ConvertPair *) args->addr; for (; cp->Name != 0; cp++) if (cp->Value == *val) { new = cp->Name; break; } if (cp->Name == 0) return FALSE; size =strlen(new); if (to->addr == 0) { to->addr = new; to->size = size; return TRUE; } else if (to->size >= size) { strcpy(to->addr,new); to->size = size; return TRUE; } else { to->size = size; return FALSE; } } static Boolean MidasConvertInteger(display,args,nargs,from,to,converter_data) Display *display; XrmValue *args; Cardinal *nargs; XrmValue *from; XrmValue *to; XtPointer *converter_data; { static char buffer[12]; int size; if (from->size == sizeof(short int)) { int i; short int s; memcpy(&s,from->addr,sizeof(s)); i = s; sprintf(buffer,"%d",i); size = 1 + strlen(buffer); } else { int s; memcpy(&s,from->addr,sizeof(s)); sprintf(buffer,"%d",s); size = 1 + strlen(buffer); } if (to->addr == 0) { to->addr = buffer; to->size = size; return TRUE; } else if (to->size >= size) { strcpy(to->addr,buffer); to->size = size; return TRUE; } else { to->size = size; return FALSE; } } void MidasMainLoop() { for (;;) { MidasDispatchQueuedCommands(); MidasFetchDispatchEvent(); } } void MidasInvokeAction(w,name) Widget w; char *name; { XtCallActionProc(w,name,NULL,NULL,0); } void MidasSystem(name) char *name; { system(name); } void MidasInvokeCallback(w,name) Widget w; char *name; { XtCallCallbacks(w,name,NULL); } void MidasFlush(w) Widget w; { XFlush(XtDisplay(w)); } void MidasUpdate(w) Widget w; { XmUpdateDisplay(w); } void MidasInitialize(argc,argv) Cardinal argc; char *argv[]; { MrmHierarchy MidasHierarchy; MrmType *dummy_class; Pixmap PixMap; Pixel foreground,background; Widget MidasMenu; char junk[100]; MidasOperand Temp; Widget toplevel_widget; int i; for (i=0; i < HASHTABLESIZE; i++) HashTable[i] = NULL; MidasWidgetList = MidasCreateEmptyList("MidasWidgets"); MidasFileList = MidasCreateEmptyList("MidasFiles"); MidasShellList = MidasCreateEmptyList("MidasShells"); CommandQueue.Head = 0; CommandQueue.Tail = 0; MrmInitialize(); /* Initialize MRM before initializing */ /* the X Toolkit. */ /* If we had user-defined widgets, we would register them with Mrm.here. */ /* Set up initial command parsing stuff */ XtSetTypeConverter("XmStringTable","String",MidasConvertStringTable, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("ShellVertPos","String",MidasConvertInteger, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("ShellHorizPos","String",MidasConvertInteger, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("ShellVertDim","String",MidasConvertInteger, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("ShellHorizDim","String",MidasConvertInteger, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("VerticalPosition","String",MidasConvertInteger, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("HorizontalPosition","String",MidasConvertInteger, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("VerticalDimension","String",MidasConvertInteger, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("HorizontalDimension","String",MidasConvertInteger, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("Dimension","String",MidasConvertInteger, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("Int","String",MidasConvertInteger, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("Short","String",MidasConvertInteger, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("Cardinal","String",MidasConvertInteger, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("String","Callback",MidasConvertStringToCallback, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("Callback","String",MidasConvertCallbackToString, NULL,0,XtCacheNone,NULL); XtSetTypeConverter("Boolean","String",MidasConvertEnum, ConvertBooleanArg,1,XtCacheNone,NULL); XtSetTypeConverter("Packing","String",MidasConvertEnum, ConvertPackingArg,1,XtCacheNone,NULL); MidasDeclareInit(); MidasConvertInit(); MidasDeclareQualifier("PARENT","Widget"); MidasDeclareQualifier("UIDFILE","name"); MidasDeclareQualifier("ICON","Icon"); MidasDeclareQualifier("DIALOG",""); MidasDeclareFunction("STRNSPN(name,name)" ,MidasStrnspn); MidasDeclareFunction("GETWIDGETID(Widget)" ,MidasGetWidgetId); MidasDeclareFunction("HASCHILDREN(Widget)" ,MidasHasChildren); MidasDeclareFunction("CHILDRENINTREE(Widget)" ,MidasChildrenInTree); MidasDeclareFunction("ISMANAGED(Widget)" ,MidasIsManaged); MidasDeclareFunction("ISREALIZED(Widget)" ,MidasIsRealized); MidasDeclareFunction("GETVALUE(Widget,name)" ,MidasGetValue); MidasDeclareFunction("GETAPPRESOURCE(Widget,name)" ,MidasGetAppResource); MidasDeclareFunction("EVALU8(name)" ,MidasEvaluateExpression); MidasDeclareFunction("INT(Float)" ,MidasInt); MidasDeclareFunction("FETCH(name,{Widget})" ,MidasFetchFunction); MidasDeclareFunction("WIDGET(Widget)" ,MidasWidgetFunction); MidasDeclareFunction("WIDGETNAME(Widget)" ,MidasWidgetName); MidasDeclareFunction("WIDGETCLASS(Widget)" ,MidasWidgetClass); MidasDeclareFunction("PARENT(Widget)" ,MidasParent); MidasDeclareFunction("SHELL(Widget)" ,MidasShellFunction); MidasDeclareFunction("TYPE(any)" ,MidasGetOperandType); MidasDeclareFunction("GETCOMMAND()" ,MidasGetCommand); MidasDeclareFunction("GETCLICKCOUNT()" ,MidasGetClickCount); MidasDeclareFunction("HYPERGETTEXT()" ,MidasHyperGetText); MidasDeclareFunction("HYPERGETHIDDEN()" ,MidasHyperGetHidden); MidasDeclareFunction("QUERYUSER(Widget)" ,MidasQueryUser); MidasDeclareFunction("HYPERGREP(Widget,name)" ,MidasHyperGrep); MidasDeclareFunction("TREETOWIDGET(Widget)" ,MidasTreeToWidget); MidasDeclareVerb("MIDAS *name..." ,MidasIgnore); MidasDeclareVerb("POPUP Widget" ,MidasPopup); MidasDeclareVerb("POPDOWN Widget" ,MidasPopdown); MidasDeclareVerb("TOGGLE Widget" ,MidasToggle); MidasDeclareVerb("FETCH name {Widget}" ,MidasFetch); MidasDeclareVerb("DESTROY Widget" ,MidasDestroy); MidasDeclareVerb("OPEN UID name {Widget}" ,MidasOpenUidFile); MidasDeclareVerb("CREATE SHELL name" ,MidasCreateShell); MidasDeclareVerb("CREATE WIDGET TREE Widget" ,MidasCreateWidgetTree); MidasDeclareVerb("CREATE DIALOG name" ,MidasCreateDialog); MidasDeclareVerb("CREATE WIDGET Widget Class name" ,MidasCreateWidget); MidasDeclareVerb("QUIT" ,MidasQuit); MidasDeclareVerb("REGISTER NAME name Widget" ,MidasRegisterName); MidasDeclareVerb("TOGGLE CHILDREN Widget" ,MidasToggleChildrenTree); MidasDeclareVerb("GET CALLBACKS list Widget" ,MidasGetCallbacks); MidasDeclareVerb("GET RESOURCES list Widget" ,MidasGetResources); MidasDeclareVerb("SET VALUE Widget name any..." ,MidasSetValue); MidasDeclareVerb("SET SENSITIVE Widget Boolean" ,MidasSetSensitive); MidasDeclareVerb("SAVE GEOMETRY Widget" ,MidasSaveGeometry); MidasDeclareVerb("STORE RESOURCE Widget name" ,MidasStoreResource); MidasDeclareVerb("STORE APP RESOURCE Widget name name" ,MidasStoreAppResource); MidasDeclareVerb("SAVE STORED RESOURCES Widget" ,MidasSaveStoredResources); MidasDeclareVerb("CENTER HORIZONTAL Widget Int" ,MidasCenterHorizontal); MidasDeclareVerb("CLEAR WINDOW Widget", MidasClearWindow); MidasDeclareVerb("CURRENT WIDGET IN TREE Widget" ,MidasCurrentWidgetInTree); MidasDeclareVerb("IF Boolean *name...", MidasIf); MidasDeclareVerb("ELSE IF Boolean *name...", MidasElseIf); MidasDeclareVerb("ELSE *name...", MidasElse); MidasDeclareVerb("INVOKE ACTION Widget name", MidasInvokeAction); MidasDeclareVerb("INVOKE CALLBACK Widget name", MidasInvokeCallback); MidasDeclareVerb("LOAD IMAGE name", MidasLoadImage); MidasDeclareVerb("FLUSH Widget", MidasFlush); MidasDeclareVerb("UPDATE Widget", MidasUpdate); MidasDeclareVerb("FORCE DIALOG Widget", MidasForceDialog); MidasDeclareVerb("SYSTEM name...", MidasSystem); MidasDeclareVerb("INVOKE APPLICATION name", MidasInvokeApplication); MidasDeclareVerb("SET CURSOR Widget Cursor", MidasSetCursor); MidasDeclareVerb("ERROR name...", MidasError); MidasDeclareVerb("BEEP {Int} {Widget}", MidasBeep); MidasDeclareVerb("HYPER LOAD FILE Widget name", SGMLHyperLoadFile); MidasDeclareVerb("LIST SELECT ITEM Widget XmString {Boolean}",XmListSelectItem); MidasDeclareVerb("HELP ON CONTEXT Widget", MidasHelpOnContext); MidasUtilInit(); MidasListInit(); MidasInitializeIngots(); /* Initialize the X Toolkit. We get back a top level shell widget. */ XtToolkitInitialize(); app_context = XtCreateApplicationContext(); /* declare SendMidas action routine */ XtAppAddActions(app_context,actions,XtNumber(actions)); /* Parse the special midas translations */ MidasTranslations = XtParseTranslationTable("Ctrl : MidasSpecial(\"Set Ingot WidgetList currentWidget Widget(.):dialog;Popup MidasInfo:parent=WidgetList;Register Name WidgetName(.) .\")"); toplevel_widget = MidasCreateShellArg("Midas",argv,&argc); /* Open the UID files (the output of the UIL compiler) in the hierarchy*/ MidasHierarchy = MidasOpenUidFile("midas.uid",toplevel_widget); /* Register the items MRM needs to bind for us. */ MrmRegisterNames(reglist,XtNumber(reglist)); /* Go get the midas pixmap */ PixMap = MidasFetchIcon("MidasIcon"); { int n = 0; Arg args[10]; XtSetArg(args[n],XmNiconPixmap, PixMap); n++; XtSetValues(toplevel_widget, args, n); } /* Initialize Customization stuff */ CustomInit(); /* Invoke the users profile */ { char *AppName, *AppClass; XtGetApplicationNameAndClass(XtDisplay(toplevel_widget),&AppName,&AppClass); /* printf("Application name %s",AppName); */ if (strcmp(AppName,"midas") && strcmp(AppName,"MIDAS") && strcmp(AppName,"Midas")) { toplevel_widget = MidasCreateShell(AppName); } } Temp = MidasGetAppResource(toplevel_widget,"startup"); /* printf("\nThe startup string is %s\n",Temp.Value.P); */ if (*Temp.Value.P != '\0') MidasQueueCommand(toplevel_widget,Temp.Value.P); else MidasQueueCommand(toplevel_widget,"Midas Popup Midas_Main"); }; argc; char *argv[]; { MrmHierarchy MidasHierarchy; MrmType *dummy_class; Pixmap PixMap; Pixel foreground,background; Widget MidasMenu; char junk[100]; MidasOperand Temp; Widget toplevel_widget; int i; for (i=0; i < HASHTABLESIZE; i++) HashTable[i] = NULL; MidasWidgetList = MidasCreateEmptyList("MidasWidgets"); MidasFileList = MidasCreateEmptyList("midaswww-1.0/midasclass.c100644 002113 001774 00000000746 05302057360 015335 0ustar00tonyjey000000 000000 #include #include #include #include #include #include "SGMLHyper.h" #include "Tree.h" void MidasClassInit() { MidasDeclareClass(xmRowColumnWidgetClass); MidasDeclareClass(xmPushButtonWidgetClass); MidasDeclareClass(xmPushButtonGadgetClass); MidasDeclareClass(xmLabelWidgetClass); MidasDeclareClass(xmLabelGadgetClass); MidasDeclareClass(sGMLHyperWidgetClass); MidasDeclareClass(treeWidgetClass); } midaswww-1.0/midasconvert.c100644 002113 001774 00000027465 05302057360 015717 0ustar00tonyjey000000 000000 #include /* Motif Toolkit and MRM */ #include "midaslist.h" #include "midaserrors.h" #include "midasoperand.h" #include "midasconvert.h" #include #include #include static List ConverterList; static List MidasClassList; Widget MidasGetActiveWidget(); ConvertBlock *MidasFindStringConverter(Type) MidasType Type; { ListItem *item; char buffer[256]; strcpy(buffer,MString); strcat(buffer,"."); strcat(buffer,Type); item = MidasFindItemInList(&ConverterList,buffer); if (item == 0) MidasError("Could not find converter for %s to %s",MString,Type); return item->Pointer; } void MidasDeclareConverter(FromType,ToType,ConvertRtn) MidasType FromType; MidasType ToType; Boolean (*ConvertRtn)(); { char *name = XtMalloc(strlen(FromType)+strlen(ToType)+2); ListItem *item; strcpy(name,FromType); strcat(name,"."); strcat(name,ToType); item = MidasFindItemInList(&ConverterList,name); if (item != 0) { XtFree(name); MidasError("Duplicate converter for %s to %s ignored",FromType,ToType); } else { ConvertBlock *ab = XtNew(ConvertBlock); item = MidasAddItemToList(&ConverterList,name); item->Pointer = ab; ab->ConvertRtn = ConvertRtn; ab->FromType = FromType; ab->ToType = ToType; } XtFree(name); } void MidasDeclareStringConverter(ToType,ConvertRtn) MidasType ToType; Boolean (*ConvertRtn)(); { MidasDeclareConverter(MString,ToType,ConvertRtn); } Boolean MidasConvertOperandInternal(Operand,Type) MidasOperand *Operand; MidasType Type; { MidasOperand Temp; char name[256]; ListItem *item; ConvertBlock *cb; Boolean ok; if (strcmp(Operand->Type,Type) == 0) return TRUE; if (strcmp(Type,"any") == 0) { MidasOperand *new = XtNew(MidasOperand); *new = *Operand; Operand->Type = "any"; Operand->Dynamic = TRUE; Operand->Value.P = (XtPointer) new; return TRUE; } strcpy(name,Operand->Type); strcat(name,"."); strcat(name,Type); item = MidasFindItemInList(&ConverterList,name); if (item == 0) { /* * Maybe the intrinsics can do the job for us? * */ XrmValue from, to; Widget ActiveWidget = MidasGetActiveWidget(); int result; if (strcmp(Operand->Type,MString) == 0) { from.size = strlen(Operand->Value.P) + 1; from.addr = Operand->Value.P; } else { from.size = sizeof(Operand->Value.P); from.addr = Operand->Value.P; } to.addr = (XtPointer) &result; to.size = sizeof(result); MidasSuppressXtWarningMessages(); ok = XtConvertAndStore(ActiveWidget,Operand->Type,&from,Type,&to); MidasReenableXtWarningMessages(); if (ok) { if (to.size == sizeof(result)) Operand->Value.I = result; else { short s; memcpy(&s,to.addr,to.size); Operand->Value.I = s; } } else if (to.size>sizeof(result)) { to.addr = XtMalloc(to.size); ok = XtConvertAndStore(ActiveWidget,Operand->Type,&from,Type,&to); Operand->Value.P = to.addr; Operand->Dynamic = TRUE; } if (ok) { Operand->Type = Type; return ok; } if (strcmp(Type,MString) == 0) { char *p = XtMalloc(12); sprintf(p,"%d",Operand->Value.I); if (Operand->Dynamic) XtFree(Operand->Value.P); Operand->Value.P = p; Operand->Dynamic = TRUE; Operand->Type = MString; return TRUE; } MidasError("No converter declared for %s to %s",Operand->Type,Type); } cb = item->Pointer; Temp.Dynamic = FALSE; Temp.Type = Type; ok = cb->ConvertRtn(Operand,&Temp); if (ok) { if (Operand->Dynamic) XtFree(Operand->Value.P); *Operand = Temp; } return ok; } void MidasConvertOperand(Operand,Type) MidasOperand *Operand; MidasType Type; { Boolean ok = MidasConvertOperandInternal(Operand, Type); if (ok) return; /* Try to report error as best we can */ if (strcmp(Operand->Type,MString) == 0) MidasError("Can not convert %s from %s to %s",Operand->Value.P,Operand->Type,Type); else if (strcmp(Type,MString) == 0) MidasError("Can not convert operand from %s to %s",Operand->Type,Type); else { ok = MidasConvertOperandInternal(Operand, MString); if (ok) MidasError("Can not convert %s from %s to %s",Operand->Value.P,Operand->Type,Type); else MidasError("Can not convert operand from %s to %s",Operand->Type,Type); } } static MidasOperand MidasConvertForce(Operand,Type) MidasOperand *Operand; char *Type; { MidasOperand Temp; Temp = *Operand; MidasConvertOperand(&Temp,XtNewString(Type)); /* bug ... never freed */ return Temp; } static Boolean MidasConvertBooleanString(In,Out) MidasOperand *In; MidasOperand *Out; { if (In->Value.I) Out->Value.P = "True"; else Out->Value.P = "False"; return TRUE; } static Boolean MidasConvertIntString(In,Out) MidasOperand *In; MidasOperand *Out; { char *new = XtMalloc(12); sprintf(new,"%d",In->Value.P); Out->Value.P = new; return TRUE; } static Boolean MidasConvertFloatString(In,Out) MidasOperand *In; MidasOperand *Out; { char *new = XtMalloc(20); sprintf(new,"%f",In->Value.F); Out->Value.P = new; return TRUE; } static Boolean MidasConvertStringBoolean(In,Out) MidasOperand *In; MidasOperand *Out; { if (strcmp(In->Value.P,"True" ) == 0) Out->Value.I = TRUE; else if (strcmp(In->Value.P,"true" ) == 0) Out->Value.I = TRUE; else if (strcmp(In->Value.P,"TRUE" ) == 0) Out->Value.I = TRUE; else if (strcmp(In->Value.P,"False") == 0) Out->Value.I = FALSE; else if (strcmp(In->Value.P,"false") == 0) Out->Value.I = FALSE; else if (strcmp(In->Value.P,"FALSE") == 0) Out->Value.I = FALSE; else return FALSE; return TRUE; } static Boolean MidasConvertStringXmString(In,Out) MidasOperand *In; MidasOperand *Out; { Out->Value.P = (XtPointer) MidasCharToString(In->Value.P); Out->Dynamic = TRUE; /* Need special destructor for this ??? */ return TRUE; } static Boolean MidasConvertStringUpperName(In,Out) MidasOperand *In; MidasOperand *Out; { char *p = In->Value.P; for (; *p != '\0'; p++) *p = toupper(*p); Out->Value.P = In->Value.P; Out->Dynamic = In->Dynamic; In->Dynamic = FALSE; return TRUE; } static Boolean MidasConvertStringName(In,Out) MidasOperand *In; MidasOperand *Out; { Out->Value.P = In->Value.P; Out->Dynamic = In->Dynamic; In->Dynamic = FALSE; return TRUE; } static Boolean MidasConvertStringInt(In,Out) MidasOperand *In; MidasOperand *Out; { char *End; Out->Value.P = (XtPointer) strtol((char *)In->Value.P,&End,10); return (*End == '\0'); } static Boolean MidasConvertStringFloat(In,Out) MidasOperand *In; MidasOperand *Out; { char *End; Out->Value.F = strtod(In->Value.P,&End); return (*End == '\0'); } static Boolean MidasConvertStringWidget(In,Out) MidasOperand *In; MidasOperand *Out; { Out->Value.P = (XtPointer) MidasFindWidget(In->Value.P); return TRUE; } static Boolean MidasConvertStringIcon(In,Out) MidasOperand *In; MidasOperand *Out; { Out->Value.P = (XtPointer) MidasFetchIcon(In->Value.P); return TRUE; } static Boolean MidasConvertStringClass(In,Out) MidasOperand *In; MidasOperand *Out; { ListItem *i = MidasFindItemInList(&MidasClassList,In->Value.P); if (i == 0) return FALSE; Out->Value.P = i->Pointer; return TRUE; } void MidasDeclareClass(Class) CoreClassPart *Class; { ListItem *i = MidasFindItemInList(&MidasClassList,Class->class_name); if (i==0) { i = MidasAddItemToList(&MidasClassList,Class->class_name); i->Pointer = Class; } } static Boolean MidasConvertStringAny(In,Out) MidasOperand *In; MidasOperand *Out; { return FALSE; } static Boolean MidasConvertIntNumber(In,Out) MidasOperand *In; MidasOperand *Out; { *Out = *In; return TRUE; } static Boolean MidasConvertFloatNumber(In,Out) MidasOperand *In; MidasOperand *Out; { *Out = *In; return TRUE; } static Boolean MidasConvertIntFloat(In,Out) MidasOperand *In; MidasOperand *Out; { Out->Value.F = (float) In->Value.I; return TRUE; } /* * * Converting shorts to Ints in a portable way is not trivial * */ static Boolean MidasConvertIntShort(In,Out) MidasOperand *In; MidasOperand *Out; { if (In->Value.I > 32767 || In->Value.I < -32768) return FALSE; Out->Value.I = In->Value.I; return TRUE; } static Boolean MidasConvertShortInt(In,Out) MidasOperand *In; MidasOperand *Out; { printf("%x\n",In->Value.I); printf("%x\n",In->Value.S); Out->Value.I = (int) In->Value.S; printf("%x\n",Out->Value.I); return TRUE; } static Boolean MidasConvertStringNumber(In,Out) MidasOperand *In; MidasOperand *Out; { Boolean ok; ok = MidasConvertStringInt(In,Out); if (ok) { Out->Type = MInt; return ok; } ok = MidasConvertStringFloat(In,Out); if (ok) { Out->Type = MFloat; return ok; } return ok; } static Boolean MidasConvertStringCursor(In,Out) MidasOperand *In; MidasOperand *Out; { int r; if (strcmp(In->Value.P,"" ) == 0) r = 0; else if (strcmp(In->Value.P,"watch") == 0) r = XC_watch; else if (strcmp(In->Value.P,"trek" ) == 0) r = XC_trek; else return False; Out->Value.I = r; return True; } void MidasConvertInit() { ConverterList = NullList; MidasClassList = NullList; MidasDeclareStringConverter("name", MidasConvertStringName); MidasDeclareStringConverter("upname", MidasConvertStringUpperName); MidasDeclareStringConverter("Widget", MidasConvertStringWidget); MidasDeclareStringConverter("list", MidasConvertStringList); MidasDeclareStringConverter("Int", MidasConvertStringInt); MidasDeclareStringConverter("Float", MidasConvertStringFloat); MidasDeclareStringConverter("Icon", MidasConvertStringIcon); MidasDeclareStringConverter("Boolean", MidasConvertStringBoolean); MidasDeclareStringConverter("any", MidasConvertStringAny); MidasDeclareStringConverter("XmString", MidasConvertStringXmString); MidasDeclareStringConverter("MenuWidget", MidasConvertStringWidget); MidasDeclareStringConverter("Pixmap", MidasConvertStringIcon); MidasDeclareStringConverter("Cursor", MidasConvertStringCursor); MidasDeclareStringConverter("Class", MidasConvertStringClass); MidasDeclareConverter("Boolean","String", MidasConvertBooleanString); MidasDeclareConverter("Int","String", MidasConvertIntString); MidasDeclareConverter("Float","String", MidasConvertFloatString); MidasDeclareConverter("String","Number", MidasConvertStringNumber); MidasDeclareConverter("Int","Number", MidasConvertIntNumber); MidasDeclareConverter("Float","Number", MidasConvertFloatNumber); MidasDeclareConverter("Int","Float", MidasConvertIntFloat); MidasDeclareConverter("Int","Short", MidasConvertIntShort); MidasDeclareConverter("Int","HorizontalDimension",MidasConvertIntShort); MidasDeclareConverter("Int","VerticalDimension" ,MidasConvertIntShort); MidasDeclareConverter("Int","ShellHorizPos" ,MidasConvertIntShort); MidasDeclareConverter("Int","ShellVertPos" ,MidasConvertIntShort); MidasDeclareConverter("HorizontalDimension","Int",MidasConvertShortInt); MidasDeclareConverter("VerticalDimension","Int" ,MidasConvertShortInt); MidasDeclareConverter("HorizontalDimension","Number",MidasConvertShortInt); MidasDeclareConverter("VerticalDimension","Number" ,MidasConvertShortInt); MidasDeclareFunction("CONVERT(any,name)",MidasConvertForce); MidasClassInit(); } e) == 0) return TRUE; if (strcmp(Type,"any") == 0) { MidasOperand *new = XtNew(MidasOperand); *new = *Operand; Operand->Type = "any"; Operand->Dynamic = TRUE; Operamidaswww-1.0/midasdeclare.c100644 002113 001774 00000040272 05302057360 015625 0ustar00tonyjey000000 000000 #include /* Motif Toolkit and MRM */ #include "midaslist.h" #include "midaserrors.h" #include "midasoperand.h" #include "midasconvert.h" #include MidasOperand MidasEvaluateExpression(); ConvertBlock *MidasFindStringConverter(); struct ActionBlock { void (*ActionRtn)(); }; typedef struct ActionBlock ActionBlock; struct ConvertLink { List *CList; ConvertBlock *CLink; }; typedef struct ConvertLink ConvertLink; static List TopLevelCommandList; static List FunctionList; static List QualifierList; static List *QualifierLists[20]; static List **CurrentQualifierList = QualifierLists; static char *MidasRemoveSpuriousJunk(in) char *in; { /* * BUG: This should also support {&*aaa} */ int l = strlen(in); if (*in == '&') { in++; l--; } if (*in == '*') { in++; l--; } if (*in == '{') { char *p = strncpy(XtMalloc(l-1),++in,l-2); *(p+l-2) = '\0'; return p; } else if (l > 3 && strcmp("...",in+l-3) == 0) { char *p = strncpy(XtMalloc(l-2),in,l-3); *(p+l-3) = '\0'; return p; } else return XtNewString(in); } static char *MidasRestOfLine(i,VerbVector,VerbCount) int i; char *VerbVector[]; int VerbCount; { char *p; for (p = VerbVector[i]; p < VerbVector[VerbCount-1]; p++) if (*p == '\0') *p = ' '; return VerbVector[i]; } void MidasTokenizeCommand(command,verbVector,verbCount,maxVerbs,delimiters) char *command; char *verbVector[]; int *verbCount; int maxVerbs; char *delimiters; { char *p; *verbCount = 0; for (p=command;;) { int quotes = 0, paren = 0; for (; *p == ' '; p++); if (*p == '\0') break; if (*verbCount == maxVerbs) MidasError("Too many tokens found in line"); verbVector[(*verbCount)++] = p; for (; (paren > 0 || quotes || strchr(delimiters,*p) == 0) && *p != '\0'; p++) if (*p == '"') quotes = !quotes; else if (*p == '(') paren++; else if (*p == ')') paren--; if (*p == '\0') break; *p++ = '\0'; } } void MidasDeclareInit() { TopLevelCommandList = NullList; FunctionList = NullList; QualifierList = NullList; } void MidasDeclare(CList,command,ActionRtn,delimiters) List *CList; char *command; void (*ActionRtn)(); char *delimiters; { ActionBlock *ab; ConvertLink *cl; ListItem *item; int verbCount , i; char *verbVector[20]; MidasTokenizeCommand(command,verbVector,&verbCount, XtNumber(verbVector),delimiters); for (i=0; i < verbCount; i++) { char *token = verbVector[i]; Boolean allupper = TRUE; char *p = token; if (*token == '\0') continue; for (; *p != '\0'; p++) if (islower(*p)) { allupper = FALSE; break; } item = MidasFindItemInList(CList,token); if (item == 0) { item = MidasAddItemToList(CList,token); cl = XtNew(ConvertLink); item->Pointer = cl; cl->CList = MidasCreateEmptyList(""); if (allupper) cl->CLink = 0; else { MidasType type = MidasRemoveSpuriousJunk(token); cl->CLink = MidasFindStringConverter(type); XtFree(type); } } cl = item->Pointer; CList = cl->CList; } item = MidasFindItemInList(CList,"endofcommand"); if (item == 0) { item = MidasAddItemToList(CList,"endofcommand"); item->Pointer = XtNew(ActionBlock); } ab = item->Pointer; ab->ActionRtn = ActionRtn; } void MidasDeclareVerb(command,ActionRtn) char *command; void (*ActionRtn)(); { char *buffer = XtNewString(command); MidasDeclare(&TopLevelCommandList,buffer,ActionRtn," "); XtFree(buffer); } void MidasDeclareFunction(command,ActionRtn) char *command; void (*ActionRtn)(); { char *buffer = XtNewString(command); MidasDeclare(&FunctionList,buffer,ActionRtn,"(,)"); XtFree(buffer); } MidasDeclareQualifier(qualifier,type) char *qualifier; MidasType type; { ListItem *item; ConvertBlock *ab,*cab; item = MidasAddItemToList(&QualifierList,qualifier); if (*type == '\0') item->Pointer = 0; else { cab = MidasFindStringConverter(type); ab = XtNew(ConvertBlock); *ab = *cab; item->Pointer = ab; } } ActionBlock *MidasPrepareToDispatch(CList,command,delimiters,Argv,Argi,ArgC) List *CList; char *command; char *delimiters; MidasOperand Argv[10]; Boolean Argi[10]; int *ArgC; { int verbCount , i, Argc = 0; char *verbVector[100]; ListItem *item = 0; void *result = 0; char *rest = 0; MidasTokenizeCommand(command,verbVector,&verbCount, XtNumber(verbVector),delimiters); for (i=0; i < verbCount; i++) { char *c , *token = XtNewString(verbVector[i]); for (c=token ; *c != '\0' ; c++ ) *c = toupper(*c); item = MidasFindItemInList(CList,token); XtFree(token); if (item != 0) { ConvertLink *cl = item->Pointer; CList = cl->CList; } else { for (item = CList->First; item != 0; item = item->Next ) { ConvertLink *cl = item->Pointer; ConvertBlock *ab = cl->CLink; char *entry = item->Entry; Boolean indirect = (*entry == '&'); if (indirect) entry++; if (ab != 0) { MidasOperand Temp; if (strcmp("...",item->Entry+strlen(entry)-3)) { if (*entry == '*') { Temp.Value.P = verbVector[i]; if (*Temp.Value.P == '"') { Temp.Value.P++; *(Temp.Value.P+strlen(Temp.Value.P)-1) = '\0'; } Temp.Dynamic = FALSE; Temp.Type = MString; } else Temp = MidasEvaluateExpression(verbVector[i]); } else { rest = MidasRestOfLine(i,verbVector,verbCount); if (*entry == '*') { Temp.Value.P = rest; if (*Temp.Value.P == '"') { Temp.Value.P++; *(Temp.Value.P+strlen(Temp.Value.P)-1) = '\0'; } Temp.Dynamic = FALSE; Temp.Type = MString; } else Temp = MidasEvaluateExpression(rest); i = verbCount; } /* * if (strcmp(ab->FromType,Temp.Type) == 0) ab->ConvertRtn(&Temp); * */ if (strcmp(ab->ToType,Temp.Type)) MidasConvertOperand(&Temp,ab->ToType); Argv[Argc ] = Temp; Argi[Argc++] = indirect; CList = cl->CList; break; } } } } /* Skip optional arguments until end of command */ if (item != 0) { for (; (item = MidasFindItemInList(CList,"endofcommand")) == 0;) { for (item = CList->First; item != 0; item = item->Next ) if (*item->Entry == '{') { ConvertLink *cl = item->Pointer; Argv[Argc].Value.I = 0; Argv[Argc].Dynamic = FALSE; Argv[Argc].Type = MInt; Argi[Argc] = FALSE; Argc++; CList = cl->CList; break; } if (item == 0) MidasError("Premature end of command found"); } } if (item == 0) { for (i=0; iPointer; } MidasOperand MidasCallFunction(in) char **in; { MidasOperand result; if (setjmp(JmpEnv[NumJump++]) == 0) { char buffer[2000]; char *p = *in, *q = buffer; int n=0 , m=0; for (; *p != '\0'; p++) { *q = *p; if (*p == '"') m = !m; else if (!m && *p == '(') { if (++n == 1) *q = ' '; } else if (!m && *p == ')') { if (--n == 0) break; } q++; } if (n != 0) MidasError("Parentheses error in expression: %s",*in+1); if (m != 0) MidasError("Mismatched quotes in expression: %s",*in+1); *q = '\0'; { MidasOperand Argv[10]; Boolean Argi[10]; int Argc, i; ActionBlock *ab = MidasPrepareToDispatch(&FunctionList,buffer," ,",Argv,Argi,&Argc); MidasOperand (*routine)() = (MidasOperand (*)()) ab->ActionRtn; int A[10]; for (i=0; iPointer = Temp; Temp->Type = MString; Temp->Dynamic = TRUE; Temp->Value.P = (XtPointer) XtNewString(q+1); } else { r = q; new->Pointer = 0; } for (; p < r ; p++) *p=' '; *p = delim; p--; } return CurrentQualifierList; } void MidasDispatchCommand(command) char *command; { char *p; char *buffer = XtNewString(command); List *QL = 0; ListItem *item; if (setjmp(JmpEnv[NumJump++]) == 0) { QL = MidasFindCommandQualifiers(&QualifierList,buffer); *++CurrentQualifierList = QL; { MidasOperand Argv[10]; Boolean Argi[10]; int Argc, i; ActionBlock *ab = MidasPrepareToDispatch(&TopLevelCommandList,buffer," ",Argv,Argi,&Argc); int A[10]; for (i=0; iActionRtn(); break; case 1: ab->ActionRtn(A[0]); break; case 2: ab->ActionRtn(A[0],A[1]); break; case 3: ab->ActionRtn(A[0],A[1],A[2]); break; case 4: ab->ActionRtn(A[0],A[1],A[2],A[3]); break; case 5: ab->ActionRtn(A[0],A[1],A[2],A[3],A[4]); break; case 6: ab->ActionRtn(A[0],A[1],A[2],A[3],A[4],A[5]); break; case 7: ab->ActionRtn(A[0],A[1],A[2],A[3],A[4],A[5],A[6]); break; case 8: ab->ActionRtn(A[0],A[1],A[2],A[3],A[4],A[5],A[6],A[7]); break; case 9: ab->ActionRtn(A[0],A[1],A[2],A[3],A[4],A[5],A[6],A[7],A[8]); break; case 10: ab->ActionRtn(A[0],A[1],A[2],A[3],A[4],A[5],A[6],A[7],A[8],A[9]); } for (i=0; iFirst; item != 0; item = item->Next) { MidasOperand *Temp = item->Pointer; if (Temp != 0 && Temp->Dynamic) XtFree((char *) Temp->Value.P); } MidasDestroyList(*CurrentQualifierList--); XtFree(buffer); NumJump--; } else { if (QL != 0) { for (item = QL->First; item != 0; item = item->Next) { MidasOperand *Temp = item->Pointer; if (Temp != 0 && Temp->Dynamic) XtFree((char *) Temp->Value.P); } MidasDestroyList(*CurrentQualifierList--); } XtFree(buffer); MidasError("Illegal command"); } } Boolean MidasGetQualifier(Qualifier,Result) char *Qualifier; XtPointer *Result; { ConvertBlock *ab; ListItem *qitem, *item; if (*CurrentQualifierList == 0) return FALSE; item = MidasFindItemInList(*CurrentQualifierList, Qualifier); if (item == 0) return FALSE; qitem = MidasFindItemInList(&QualifierList,Qualifier); ab = qitem->Pointer; if (ab != 0) { MidasOperand *Temp = item->Pointer; /* * Speed up temporarily removed. * if (strcmp(Temp->Type,ab->FromType) == 0) ab->ConvertRtn(Temp); * */ if (strcmp(Temp->Type,ab->ToType)) MidasConvertOperand(Temp,ab->ToType); *Result = Temp->Value.P; } return TRUE; } void MidasSetQualifier(Qualifier,Value) char *Qualifier; char *Value; { ActionBlock *ab; ListItem *qitem, *item; if (*CurrentQualifierList == 0) *CurrentQualifierList = MidasCreateEmptyList("CurrentQualifiers"); item = MidasFindItemInList(*CurrentQualifierList, Qualifier); if (item == 0) { item = MidasAddItemToList(*CurrentQualifierList, Qualifier); } else { if (item->Pointer != 0) XtFree(item->Pointer); } if (Value == NULL) item->Pointer = NULL; else { MidasOperand *Operand = XtNew(MidasOperand); item->Pointer = Operand; Operand->Type = MString; Operand->Dynamic = TRUE; Operand->Value.P = (XtPointer) XtNewString(Value); } } midaswww-1.0/midasevaluate.c100644 002113 001774 00000025557 05302057360 016045 0ustar00tonyjey000000 000000 #include /* Motif Toolkit and MRM */ #include "midasoperand.h" #include extern Widget ActiveWidget; MidasOperand MidasGetIngotValue(); MidasOperand MidasCallFunction(); XtPointer MidasFindIngot(); static char *UnaryOperatorCharacters = "+-"; static char *BinaryOperatorCharacters = "+-*/>=", 7, MNumber, MNumber, MBoolean}, {"&&", 1, MBoolean, MBoolean, MBoolean}, {"||", 1, MBoolean, MBoolean, MBoolean}, {"//", 9, MInt, MInt, MInt}, {"++",10, MString, MString, MString}, {"<" , 7, MNumber, MNumber, MBoolean}, {">" , 7, MNumber, MNumber, MBoolean}, {"+" , 8, MNumber, MNumber, MNumber}, {"-" , 8, MNumber, MNumber, MNumber}, {"*" , 9, MNumber, MNumber, MNumber}, {"/" , 9, MNumber, MNumber, MNumber}}; static char *SBool[2] = {"False" , "True"}; MidasOperand MidasApplyOperation(Op1,Op2,Op) MidasOperand Op1; MidasOperand Op2; MidasOperator *Op; { MidasOperand Result; Boolean Float = FALSE; int v1,v2,v; float f; Result.Dynamic = FALSE; if (strcmp(Op1.Type,Op->Op1)) MidasConvertOperand(&Op1,Op->Op1); if (strcmp(Op2.Type,Op->Op2)) MidasConvertOperand(&Op2,Op->Op2); if (strcmp(Op->Op1,MNumber) == 0) { if (strcmp(Op1.Type,MFloat) == 0) Float = TRUE; else if (strcmp(Op2.Type,MFloat) == 0) Float = TRUE; if (Float && strcmp(Op1.Type,MFloat)) MidasConvertOperand(&Op1,MFloat); if (Float && strcmp(Op2.Type,MFloat)) MidasConvertOperand(&Op2,MFloat); } v1 = Op1.Value.I; v2 = Op2.Value.I; if (strcmp(Op->Symbol,"==") == 0) v = strcmp((char *)v1,(char *)v2) == 0; else if (strcmp(Op->Symbol,"!=") == 0) v = strcmp((char *)v1,(char *)v2) != 0; else if (strcmp(Op->Symbol,"&&") == 0) v = v1 ? v2 : FALSE; else if (strcmp(Op->Symbol,"||") == 0) v = v1 ? TRUE : v2; else if (strcmp(Op->Symbol,"++") == 0) { v = (int) XtMalloc(strlen((char *)v1)+strlen((char *)v2)+1); strcpy((char *)v,(char *)v1); strcat((char *)v,(char *)v2); Result.Dynamic = TRUE; } else if (strcmp(Op->Symbol,"//") == 0) { if ( v2 == 0) MidasError("Integer division by zero"); v = v1 / v2; } else if (Float) { float f1 = Op1.Value.F; float f2 = Op2.Value.F; if (strcmp(Op->Symbol,">=") == 0) f = f1 >= f2; else if (strcmp(Op->Symbol,"<=") == 0) f = f1 <= f2; else if (strcmp(Op->Symbol,">" ) == 0) f = f1 > f2; else if (strcmp(Op->Symbol,"<" ) == 0) f = f1 < f2; else if (strcmp(Op->Symbol,"-") == 0) f = f1 - f2; else if (strcmp(Op->Symbol,"+") == 0) f = f1 + f2; else if (strcmp(Op->Symbol,"*") == 0) f = f1 * f2; else if (strcmp(Op->Symbol,"/") == 0) { if (f2 == 0) MidasError("Division by zero"); f = f1 / f2; } else MidasError("Midas Internal Error: MidasApplyOperation"); } else { if (strcmp(Op->Symbol,">=") == 0) v = v1 >= v2; else if (strcmp(Op->Symbol,"<=") == 0) v = v1 <= v2; else if (strcmp(Op->Symbol,">" ) == 0) v = v1 > v2; else if (strcmp(Op->Symbol,"<" ) == 0) v = v1 < v2; else if (strcmp(Op->Symbol,"-") == 0) v = v1 - v2; else if (strcmp(Op->Symbol,"+") == 0) v = v1 + v2; else if (strcmp(Op->Symbol,"*") == 0) v = v1 * v2; else if (strcmp(Op->Symbol,"/") == 0) { float r; if (v2 == 0) MidasError("Division by zero"); if (v1 % v2 == 0) v = v1 / v2; else { f = (float) v1 / (float) v2; Float = TRUE; } } else MidasError("Midas Internal Error: MidasApplyOperation"); } if (Op1.Dynamic) XtFree((char *)Op1.Value.P); if (Op2.Dynamic) XtFree((char *)Op2.Value.P); if (Float) Result.Value.F = f; else Result.Value.I = v; if (strcmp(Op->Result,MNumber) == 0) Result.Type = Float ? MFloat : MInt; else Result.Type = Op->Result; return Result; } static MidasOperand MidasEvaluateFunction(in,outlen) char *in; int *outlen; { MidasOperand Temp; char *q = in; Temp = MidasCallFunction(&q); *outlen = q - in + 1; return Temp; } MidasOperand MidasEvaluateExpression(in) char *in; { MidasStack Stack[10]; MidasStack *SP = &Stack[0]; MidasOperator Dummy, EndOfLine, *CurrentOperator; char Unary = '\0'; #ifdef debug printf("Evaluating: %s\n",in); #endif Dummy.Precedence = -1; EndOfLine.Precedence = 0; EndOfLine.Symbol = ""; SP->Op = &Dummy; for (;;) { int l1; if (*in != '\0' && strchr(UnaryOperatorCharacters,*in) != 0) Unary = *in++; /* Tokens in expressions may be: a) sub-expressions (in parentheses) b) Function invokations c) Quoted strings d) Ingots e) Unquoted strings First deal with Sub-expressions */ if (*in == '(') { int n = 1, q = 0; char *p = in + 1; for (; *p != '\0'; p++) { if (*p == '"') q = !q; else if (!q && *p == '(') n++; else if (!q && *p == ')') if (--n == 0) break; } if (q != 0) MidasError("Mismatched quotes in expression: %s",in); if (n != 0) MidasError("Parenthesis error in expression: %s",in); *p = '\0'; in++; SP->Operand = MidasEvaluateExpression(in); l1 = p - in + 1; } /* Now deal with quoted strings */ else if (*in == '"') { int q = 1; char *p = in + 1; for (; *p != '\0'; p++) if (*p == '"') { q = 0; break; } if (q != 0) MidasError("Mismatched quotes in expression: %s",in); *p = '\0'; in++; SP->Operand.Type = MString; SP->Operand.Dynamic = FALSE; SP->Operand.Value.P = (XtPointer) in; l1 = p - in + 1; } else /* Could be a function invokation */ { char *l2 = strchr(in,'('); l1 = strcspn(in,BinaryOperatorCharacters); if (l2 != NULL && l2 < in+l1) { SP->Operand = MidasEvaluateFunction(in,&l1); } else { /* Or it could be an ingot */ XtPointer Ingot; char temp = *(in + l1); *(in + l1) = '\0'; Ingot = MidasFindIngot(ActiveWidget,in); if (Ingot != 0) SP->Operand = MidasGetIngotValue(Ingot); else { SP->Operand.Type = MString; SP->Operand.Dynamic = FALSE; SP->Operand.Value.P = (XtPointer) in; } *(in + l1) = temp; } } /* Now deal with any pending unary operator */ if (Unary == '-') { MidasConvertOperand(&SP->Operand,MInt); SP->Operand.Value.I = -(int) SP->Operand.Value.I; } if (*(in+l1) == '\0') CurrentOperator = &EndOfLine; else { int op; for (op = 0; op < XtNumber(BinaryOperators); op++) if (strncmp(in+l1,BinaryOperators[op].Symbol, strlen(BinaryOperators[op].Symbol)) == 0) break; if (op == XtNumber(BinaryOperators)) MidasError("Unrecognised operator %s in expression",in+l1); CurrentOperator = &BinaryOperators[op]; } *(in+l1) = '\0'; in += l1 + strlen(CurrentOperator->Symbol); for (; CurrentOperator->Precedence <= SP->Op->Precedence; ) { (SP-1)->Operand = MidasApplyOperation((SP-1)->Operand,SP->Operand,SP->Op); SP--; } if (strcmp(CurrentOperator->Symbol,"&&") == 0) { if (strcmp(SP->Operand.Type,MBoolean)) MidasConvertOperand(&SP->Operand,MBoolean); if (SP->Operand.Value.I == FALSE) break; } else if (strcmp(CurrentOperator->Symbol,"||") == 0) { if (strcmp(SP->Operand.Type,MBoolean)) MidasConvertOperand(&SP->Operand,MBoolean); if (SP->Operand.Value.I == TRUE) break; } if (CurrentOperator == &EndOfLine) break; (++SP)->Op = CurrentOperator; } #ifdef debug printf ("Result is %s = ",SP->Operand.Type); if (strcmp(SP->Operand.Type,MString) == 0) printf("%s\n",SP->Operand.Value.I); else printf("%d\n",SP->Operand.Value.I); #endif return SP->Operand; } void MidasForceEvaluateExpression(in,out) char **in; char **out; { MidasOperand Result; char temp, *p = *in+1, *pp, *buffer; int q = 0, m = 0; for (; *p != '\0' && *p != '\n'; p++) { if (*p == '"') { if (m == 0 && !q) break; else q = !q; } else if (!q && *p == '(') m++; else if (!q && *p == ')') m--; else if (!q && m == 0 && *p == ' ') break; } temp = *p; *p = '\0'; buffer = XtNewString(*in+1); *p = temp; Result = MidasEvaluateExpression(buffer); if (strcmp(Result.Type,MString) != 0) MidasConvertOperand(&Result,MString); for (pp = Result.Value.P; *pp != '\0';) *(*out)++ = *pp++; if (Result.Dynamic) XtFree((char *)Result.Value.P); XtFree(buffer); *in = p - 1; } int MidasConvertToInteger(Operand) MidasOperand Operand; { if (strcmp(Operand.Type,MInt)) MidasConvertOperand(&Operand,MInt); return Operand.Value.I; } char *MidasConvertToString(Operand) MidasOperand Operand; { if (strcmp(Operand.Type,MString)) MidasConvertOperand(&Operand,MString); return XtNewString(Operand.Value.P); } char *MidasConvertToBoolean(Operand) MidasOperand Operand; { if (strcmp(Operand.Type,MBoolean)) MidasConvertOperand(&Operand,MString); return Operand.Value.P; } MidasOperand MidasConvertFromString(string) char *string; { MidasOperand Temp; Temp.Type = MString; Temp.Dynamic = TRUE; Temp.Value.P = XtNewString(string); return Temp; } MidasOperand MidasConvertFromInteger(i) int i; { MidasOperand Temp; Temp.Type = MInt; Temp.Dynamic = FALSE; Temp.Value.I = i; return Temp; } MidasOperand MidasConvertFromBoolean(b) int b; { MidasOperand Temp; Temp.Type = MBoolean; Temp.Dynamic = FALSE; Temp.Value.I = (b != 0); return Temp; } nt, MInt, MInt}, {"++",10, MString, MString, MString}, {"<" , 7, MNumidaswww-1.0/midasingot.c100644 002113 001774 00000034344 05302057361 015352 0ustar00tonyjey000000 000000 #include /* Motif Toolkit and MRM */ #include "midaslist.h" #include "midasoperand.h" #include "midaswidget.h" #include "midasshell.h" #include MidasOperand MidasConvertFromInteger(); MidasOperand MidasConvertFromString(); MidasOperand MidasConvertFromBoolean(); MidasWidget *MidasWidgetToMW(); MidasShell *MidasGetShell(); char *MidasGetWidgetName(); char *MidasConvertToString(); static char *Option = "ExecuteWhenCreated"; typedef struct _IR {char *Command; Boolean ExecuteWhenCreated; } IngotParm; #define Offset(field) XtOffsetOf(IngotParm,field) static XtResource resources[] = { {"midasIngots","MidasIngots",XtRString ,sizeof(char *) ,Offset(Command) ,XtRImmediate,(XtPointer)0}, {"midasIngots","MidasIngots",XtRBoolean,sizeof(Boolean),Offset(ExecuteWhenCreated),XtRImmediate,(XtPointer)True}}; #undef Offset static List *IngotRList; struct Ingot { Boolean Valued; MidasOperand Operand; char *Command; Widget Parent; struct Ingot *ValueOwner; List *CallbackList; Boolean ExecuteWhenCreated; }; typedef struct Ingot Ingot; static XtConvertArgRec ConvertWidgetArg[] = {{XtBaseOffset,0,sizeof(Widget)}}; Ingot *MidasFindIngotHere(w,Name) Widget w; char *Name; { MidasWidget *mw = MidasWidgetToMW(w); ListItem *i; List *TList = mw->IngotList; if (TList != NULL) { i = MidasFindItemInList(TList,Name); if (i != 0) return i->Pointer; } return 0; } Ingot *MidasFindIngot(w,Name) Widget w; char *Name; { MidasShell *ms = MidasGetShell(w); for (;; w = XtParent(w)) { Ingot *T = MidasFindIngotHere(w,Name); if (T != 0) return T; if (w == ms->Widget) break; } return 0; } static void MidasDestroyIngot(T) Ingot *T; /* This routine is called from MidasDestroyIngots during the destruction of a widget that has ingots. It assumes that all child widgets are also being destroyed and therefore does not worry about them. */ { if (!T->Valued) { Ingot *ValueOwner = T->ValueOwner; List *CallbackList = ValueOwner->CallbackList; if (CallbackList != 0) { ListItem *item; for (item = CallbackList->First; item != 0 ; item = item->Next) { if (item->Pointer == T) { item->Pointer = 0; MidasRemoveItemFromList(CallbackList,item); break; } } } } else if (T->Operand.Dynamic) XtFree((char *)T->Operand.Value.P); if (T->CallbackList != 0) MidasDestroyList(T->CallbackList); XtFree(T->Command); } void MidasDestroyIngots(mw) MidasWidget *mw; /* * This routine is called whenever a widget that has ingots * goes and gets itself destroyed. */ { ListItem *item; List *TList = mw->IngotList; for (item = TList->First; item != 0; item = item->Next) { Ingot *T = item->Pointer; MidasDestroyIngot(T); item->Pointer = 0; } MidasDestroyList(TList); } Ingot *MidasCreateIngot(w,Name) Widget w; char *Name; /* If this ingot does not already have an explicit ingot of this name it is created. A pointer to the (newly created) ingot is returned; A created ingot initially has no value and no callbacks; */ { MidasWidget *mw = MidasWidgetToMW(w); Ingot *T; ListItem *item; List *TList = mw->IngotList; if (TList == NULL) { mw->IngotList = TList = MidasCreateEmptyList(XtName(w)); } item = MidasFindItemInList(TList,Name); if (item == 0) { T = XtNew(Ingot); T->CallbackList = 0; T->Command = 0; T->Parent = w; T->ValueOwner = 0; T->Valued = FALSE; T->ExecuteWhenCreated = TRUE; item = MidasAddItemToList(TList,Name); item->Pointer = T; } else T = item->Pointer; return T; } void MidasInheritIngotValue(T,Name) Ingot *T; char *Name; { Ingot *ValueOwner; MidasShell *ms = MidasGetShell(T->Parent); if (strncmp(Name,"Midas",5) && ms->Widget != T->Parent) ValueOwner = MidasFindIngot(XtParent(T->Parent),Name); else ValueOwner = 0; if (ValueOwner == 0) { T->Valued = TRUE; T->Operand.Value.P = (XtPointer)""; T->Operand.Dynamic = FALSE; T->Operand.Type = MString; } else { if (ValueOwner->Valued == 0) ValueOwner = ValueOwner->ValueOwner; T->ValueOwner = ValueOwner; } #ifdef debug if (T->Valued) printf("Ingot %s in %s did not ingerit a value\n",Name,XtName(T->Parent)); else printf("Ingot %s inherited value %s from %s\n",Name,ValueOwner->Operand.Value, XtName(ValueOwner->Parent)); #endif } void MidasSetIngotValue(T,Operand) Ingot *T; MidasOperand Operand; /* This routine sets the value of the specified ingot and calls the value changed callbacks belonging to the ingot */ { if (T->Valued && T->Operand.Dynamic) XtFree((char *)T->Operand.Value.P); T->Operand = Operand; /* * BIG KLUGE .. must be fixed soon */ if (strcmp(Operand.Type,MString)==0 && Operand.Dynamic==FALSE) { T->Operand.Value.P = XtNewString(Operand.Value.P); T->Operand.Dynamic = TRUE; } T->Valued = TRUE; if (T->Command != 0) MidasDispatchCommandCallback(T->Parent,T->Command,0); if (T->CallbackList != 0) { ListItem *item; for (item = T->CallbackList->First; item != 0; item = item->Next) { Ingot *T = item->Pointer; MidasDispatchCommandCallback(T->Parent,T->Command,0); } } } void MidasSetCallbackValue(T,Command) Ingot *T; char *Command; { Widget SW, w = T->Parent; MidasShell *ms = MidasGetShell(w); if (T->Command == 0) { if (T->Valued == 0) { ListItem *item; Ingot *ValueOwner = T->ValueOwner; if (ValueOwner->CallbackList == 0) ValueOwner->CallbackList = MidasCreateEmptyList(""); item = MidasAddItemToListPos(ValueOwner->CallbackList,XtName(w),0); item->Pointer = T; } } else XtFree(T->Command); T->Command = XtNewString(Command); } MidasOperand MidasGetIngotValue(T) Ingot *T; { MidasOperand Temp; if (T->Valued == 0) T = T->ValueOwner; Temp = T->Operand; Temp.Dynamic = FALSE; /* The ingot retains ownership of the operand */ return Temp; } char *MidasGetCallbackValue(T) Ingot *T; { if (T->Command == 0) return XtNewString(""); else return XtNewString(T->Command); } MidasOperand MidasGetCallback(w,Name) Widget w; char *Name; { MidasOperand Temp; Ingot *T = MidasFindIngotHere(w,Name); if (T == 0) { Temp.Value.P = ""; Temp.Dynamic = FALSE; } else { Temp.Value.P = MidasGetCallbackValue(T); Temp.Dynamic = TRUE; } Temp.Type = MString; return Temp; } MidasOperand MidasGetCreateCallback(w) Widget w; { Ingot *T = MidasFindIngotHere(w,"midasCreateCallback"); if (T == 0) { MidasOperand Temp; Temp.Value.P = ""; Temp.Dynamic = FALSE; Temp.Type = MString; return Temp; } else return MidasGetIngotValue(T); } MidasOperand MidasGetIngot(w,Name) Widget w; char *Name; { Ingot *T = MidasFindIngot(w,Name); if (T == 0) MidasError("Can not find ingot %s",Name); return MidasGetIngotValue(T); } MidasOperand MidasGetValueOwner(w,Name) Widget w; char *Name; { MidasOperand Temp; Ingot *T = MidasFindIngot(w,Name); if (T == 0) MidasError("Can not find ingot %s",Name); if (T->Valued) Temp.Value.P = (XtPointer) T->Parent; else Temp.Value.P = (XtPointer) T->ValueOwner->Parent; Temp.Type = MWidget; Temp.Dynamic = FALSE; return Temp; } MidasOperand MidasGetIngotOption(w,Name) Widget w; char *Name; { MidasOperand Temp; Ingot *T = MidasFindIngot(w,Name); if (T == 0) MidasError("Can not find ingot %s",Name); Temp.Value.I = T->ExecuteWhenCreated; Temp.Type = MBoolean; Temp.Dynamic = FALSE; return Temp; } void MidasSetIngotOption(w,Name,Opt) Widget w; char *Name; Boolean Opt; { MidasOperand Temp; Ingot *T = MidasFindIngot(w,Name); if (T == 0) MidasError("Can not find ingot %s",Name); T->ExecuteWhenCreated = Opt; } void MidasSetIngot(w,Name,Temp) Widget w; char *Name; MidasOperand Temp; { Ingot *T = MidasCreateIngot(w, Name); MidasSetIngotValue(T, Temp); #ifdef debug printf("Set Ingot %s in %s to value %s\n",Name,XtName(w),Temp.Value.I); #endif } void MidasSetIngotString(w,Name,Value) Widget w; char *Name; char *Value; { MidasSetIngot(w,Name,MidasConvertFromString(Value)); } void MidasSetIngotP(w,Name,Temp) Widget w; char *Name; MidasOperand *Temp; { MidasSetIngot(w,Name,*Temp); } void MidasSetCallback(w,Name,Command) Widget w; char *Name; char *Command; { Ingot *T = MidasCreateIngot(w, Name); MidasInheritIngotValue(T,Name); MidasSetCallbackValue(T,Command); } void MidasGetIngots(L,w) List *L; Widget w; { MidasShell *ms = MidasGetShell(w); MidasEmptyList(L); for (;; w = XtParent(w)) { MidasWidget *mw = MidasWidgetToMW(w); ListItem *i; List *TList = mw->IngotList; if (TList != NULL) for (i = TList->First; i != 0; i = i->Next) if (strncmp(i->Entry,"midas",5)) if (MidasFindItemInList(L,i->Entry) == 0) MidasAddItemToList(L,i->Entry); if (w == ms->Widget) break; } } static void MidasStoreCallback(w,cname) Widget w; char *cname; { char *result; char *name = MidasGetWidgetName(w); char *value = MidasConvertToString(MidasGetCallback(w,cname)); char *new = XtMalloc(strlen(name)+strlen(cname)+strlen(Option)+2); MidasShell *ms = MidasGetShell(w); XtGetApplicationResources(w,(XtPointer) &result,resources,1,NULL,0); strcpy(new,name); strcat(new,"."); strcat(new,cname); XrmPutStringResource(&ms->Database,new,value); strcat(new,Option); value = MidasConvertToString(MidasGetIngotOption(w,cname)); XrmPutStringResource(&ms->Database,new,value); ms->Changes++; XtFree(new); XtFree(value); if (result != 0) { Boolean found = FALSE; char *token, *old = XtNewString(result); for (token = strtok(old," "); token != NULL; token = strtok(NULL," ")) if (strcmp(token,cname)==0) found = TRUE; XtFree(old); if (found) { XtFree(name); return; } value = XtMalloc(strlen(result)+strlen(cname)+2); strcpy(value,result); strcat(value," "); strcat(value,cname); } else value = XtNewString(cname); new = XtMalloc(strlen(name)+strlen(".midasIngots")+1); strcpy(new,name); strcat(new,".midasIngots"); XrmPutStringResource(&ms->Database,new,value); XtFree(new); XtFree(value); XtFree(name); } void MidasSetupIngots(mw,IngotNames) MidasWidget *mw; char *IngotNames; { List *TList; ListItem *item; char *Input = XtNewString(IngotNames); char *VerbVector[100]; int VerbCount, i; Widget w = mw->Widget; MidasShell *ms = MidasGetShell(w); mw->IngotList = TList = MidasCreateEmptyList(XtName(w)); MidasTokenizeCommand(Input,VerbVector,&VerbCount,XtNumber(VerbVector)," "); /* This could be made more efficient by fetching all the ingots at once */ for (i = 0; i < VerbCount; i++) { IngotParm result; Ingot *T = XtNew(Ingot); XtResource *temp; ListItem *item = MidasFindItemInList(IngotRList,VerbVector[i]); if (item == 0) { temp = (XtResource *) XtMalloc(sizeof(XtResource)*2); temp[0] = resources[0]; temp[1] = resources[1]; temp[0].resource_name = XtNewString(VerbVector[i]); temp[1].resource_name = strcpy(XtMalloc(strlen(VerbVector[i])+strlen(Option)+1),VerbVector[i]); strcat(temp[1].resource_name,Option); item = MidasAddItemToList(IngotRList,temp->resource_name); item->Pointer = temp; } else temp = item->Pointer; XtGetApplicationResources(w,(XtPointer) &result,temp,XtNumber(resources), NULL,0); if (result.Command == 0 || *result.Command == '\0') T->Command = 0; else T->Command = XtNewString(result.Command); T->Valued = 0; T->Parent = w; T->ValueOwner = 0; T->CallbackList = 0; T->ExecuteWhenCreated = result.ExecuteWhenCreated; item = MidasAddItemToList(TList,VerbVector[i]); item->Pointer = T; } XtFree(Input); for (item = TList->First; item != 0; item = item->Next) { Widget SW; Ingot *T = item->Pointer; if (T->Valued == 0) MidasInheritIngotValue(T,item->Entry); if (T->Command != 0) { if (T->Valued == 0) { ListItem *item; Ingot *ValueOwner = T->ValueOwner; if (ValueOwner->CallbackList == 0) ValueOwner->CallbackList = MidasCreateEmptyList(""); item = MidasAddItemToListPos(ValueOwner->CallbackList,XtName(w),0); item->Pointer = T; } if (T->ExecuteWhenCreated) MidasQueueCommand(w,T->Command); } } } void MidasInitializeIngots() { IngotRList = MidasCreateEmptyList("IngotResourceList"); MidasDeclareFunction("GETINGOT(Widget,name)" ,MidasGetIngot); MidasDeclareFunction("GETCALLBACK(Widget,name)" ,MidasGetCallback); MidasDeclareFunction("GETVALUEOWNER(Widget,name)" ,MidasGetValueOwner); MidasDeclareFunction("GETINGOTOPTION(Widget,name)" ,MidasGetIngotOption); MidasDeclareVerb("SET INGOT Widget *name any..." ,MidasSetIngotP); MidasDeclareVerb("GET INGOTS list Widget" ,MidasGetIngots); MidasDeclareVerb("SET CALLBACK Widget name name...", MidasSetCallback); MidasDeclareVerb("SET INGOT OPTION Widget name Boolean",MidasSetIngotOption); MidasDeclareVerb("STORE CALLBACK Widget name", MidasStoreCallback); } must be fixed soon */ if (strcmp(Operand.Type,MString)==0 && Operand.Dynamic==FALSE) { T->Operand.Value.P = XtNewString(Operand.Value.P); T->Operand.Dynamic = TRUE; } T->Valued = TRUE; if (T->Command != 0) MidasDispatchCommandCallback(T->Paremidaswww-1.0/midaslist.c100644 002113 001774 00000014431 05302057361 015200 0ustar00tonyjey000000 000000 #include /* Motif Toolkit and MRM */ #include "midaslist.h" #include "midasoperand.h" XmString MidasCharToString(); static List MasterList = {0,0,0,0,0}; Boolean MidasConvertStringList(In,Out) MidasOperand *In; MidasOperand *Out; { ListItem *item = MidasFindItemInList(&MasterList,In->Value.P); if (item == 0) Out->Value.P = (void *) MidasCreateEmptyList(In->Value.P); else Out->Value.P = item->Pointer; return TRUE; } List *MidasCreateEmptyList(name) char *name; { ListItem *item; List *list = XtNew(List); *list = NullList; item = MidasAddItemToList(&MasterList,name); item->Pointer = list; list->Name = item->Entry; return list; } void MidasEmptyList(L) List *L; { ListItem *i, *next; for (i = L->First; i != 0; i = next) { next = i->Next; XtFree(i->Entry); XtFree(i->Pointer); XtFree((char *)i); } L->First = 0; L->Last = 0; L->Selected = 0; if (L->W != 0) XmListDeleteAllItems(L->W); } ListItem *MidasFindItemInList(L,Entry) List *L; char *Entry; { ListItem *i; for (i = L->First; i != 0; i = i->Next) if (strcmp(i->Entry,Entry) == 0) return i; return 0; } int MidasFindItemPosInList(L,Item) List *L; ListItem *Item; { ListItem *i; int p = 1; for (i = L->First; i != 0; i = i->Next, p++) if (i == Item) return p; return 0; } ListItem *MidasFindItemInListPos(L,Pos) List *L; int Pos; { ListItem *i; if (Pos == 0) return L->Last; for (i = L->First; i != 0; i = i->Next) if (--Pos == 0) return i; return 0; } ListItem *MidasAddItemToListPos(L,Entry,position) List *L; char *Entry; int position; { XmString string; ListItem *i; ListItem *new = XtNew(ListItem); new->Entry = XtNewString(Entry); new->Pointer = 0; if (L->W != 0) { string = MidasCharToString(Entry); XmListAddItem(L->W,string,position); XmStringFree(string); } if (position == 0) i = 0; else for (i = L->First; --position; i = i->Next); if (L->First == 0) { new->Next = 0; new->Prev = 0; L->Last = new; L->First = new; } else if (i == 0 ) { new->Next = 0; L->Last->Next = new; new->Prev = L->Last; L->Last = new; } else if (i == L->First) { new->Prev = 0; L->First->Prev = new; new->Next = L->First; L->First = new; } else { new->Next = i; new->Prev = i->Prev; i->Prev->Next = new; i->Prev = new; } return new; } ListItem *MidasAddItemToList(L,Entry) List *L; char *Entry; { XmString string; int position=1; ListItem *i; for (i = L->First; i != 0; i = i->Next, position++) { int compare = strcmp(i->Entry,Entry); if (compare >= 0) break; } if (i==0) position=0; return MidasAddItemToListPos(L,Entry,position); } void *MidasCopyList(Old,New,CopyRtn) List *Old; List *New; XtPointer (*CopyRtn)(); { ListItem *iold, *inew; for (iold = Old->First; iold != 0; iold = iold->Next) { inew = MidasAddItemToListPos(New,iold->Entry,0); inew->Pointer = CopyRtn(iold->Pointer); } } void MidasRealizeList(L,W) List *L; Widget W; { XmString list[4000]; ListItem *i; int list_size=0; for (i = L->First; i != 0; i = i->Next) list[list_size++] = MidasCharToString(i->Entry); { int n=0; Arg args[10]; XtSetArg(args[n],XmNitemCount,list_size ); n++; XtSetArg(args[n],XmNselectedItemCount, (XtArgVal) 0 ); n++; XtSetArg(args[n],XmNselectedItems, NULL ); n++; XtSetArg(args[n],XmNitems, (XtArgVal) list); n++; XtSetValues(W,args,n); } for (; list_size > 0; ) XmStringFree(list[--list_size]); L->Selected = 0; L->W = W; } void MidasUnrealizeList(L) List *L; { if (L->W != 0) { XmListDeleteAllItems(L->W); L->Selected = 0; L->W = 0; } } void MidasRemoveItemFromList(L,item) List *L; ListItem *item; { int position=1; ListItem *i; for (i = L->First; i != 0; i = i->Next, position++) if (i == item) break; if (i == 0) return; if (L->W != 0) XmListDeletePos(L->W,position); if (i->Next == 0) L->Last = i->Prev; else i->Next->Prev = i->Prev; if (i->Prev == 0) L->First = i->Next; else i->Prev->Next = i->Next; if (i->Pointer != 0) XtFree(i->Pointer); XtFree(i->Entry); XtFree((char *)i); } void MidasSelectItemPosInList(L,Pos,Notify) List *L; int Pos; Boolean Notify; { XmListSelectPos(L->W,Pos,Notify); } void MidasDestroyList(L) List *L; { ListItem *i; MidasEmptyList(L); for (i = MasterList.First; i != 0; i = i->Next) if (i->Pointer == L) { MidasRemoveItemFromList(&MasterList,i); return; } } static MidasOperand MidasFindNameInListPos(L,pos) List *L; int pos; { MidasOperand Temp; ListItem *item = MidasFindItemInListPos(L,pos); if (item != NULL) Temp.Value.P = item->Entry; else Temp.Value.P = ""; Temp.Dynamic = FALSE; Temp.Type = MString; return Temp; } static MidasOperand MidasCreateList(name) char *name; { MidasOperand Temp; Temp.Value.P = (XtPointer) MidasCreateEmptyList(name); Temp.Dynamic = False; /* A lie...but what is one to do */ Temp.Type = "list"; return Temp; } MidasListInit() { MidasDeclareVerb("ADD LIST POSITION list name Int" ,MidasAddItemToListPos); MidasDeclareVerb("ADD LIST list name" ,MidasAddItemToList); MidasDeclareVerb("REALIZE LIST list Widget" ,MidasRealizeList); MidasDeclareVerb("UNREALIZE LIST list" ,MidasUnrealizeList); MidasDeclareVerb("EMPTY LIST list" ,MidasEmptyList); MidasDeclareFunction("LISTNAMEPOS(list,Int)" ,MidasFindNameInListPos); MidasDeclareFunction("CREATELIST(name)" ,MidasCreateList); } = new; } else if (i == 0 ) { new->Next = 0; L->Last->Next = new; new->Prev = L->Last; L->Last = new; } else if (i == L->First) { new->Prev = 0; L->Fmidaswww-1.0/midasloadimage.c100644 002113 001774 00000002562 05302057361 016151 0ustar00tonyjey000000 000000 #ifdef VAX #include #include descrip typedef struct dsc$descriptor_s string; #endif MidasLoadImage(name) char *name; /* The VAX version of MidasLoadImage looks for a shareable using the SLD dynamic loading convention. */ { #ifdef VAX int Iss, lr; string LogicalName, RoutineName = {0,0,0,0}, ImageName = {0,0,0,0}; char *p; $DESCRIPTOR(FileDev,"LNM$FILE_DEV"); void (*Routine)(); char result[80] = "SHR_"; struct { short BufLen; short ItmCod; int BufAdr; int RetAdr; } ItmLst[] = {{80, LNM$_STRING, result, 0}, {4 , LNM$_LENGTH, &lr, 0}, {0,0,0,0}}; strcat(result,name); LogicalName.dsc$a_pointer = result; LogicalName.dsc$w_length = strlen(result); Iss = Sys$TrnLnm(&LNM$M_CASE_BLIND,&FileDev,&LogicalName,0,ItmLst); if ((Iss & 1) == 0) MidasError("Could not load image %s",name); p = &result + lr; *p = '\0'; p = strstr(result,"/IMAGE="); if (p == 0) MidasError("Could not load image %s",name); *p = '\0'; p += 7; ImageName.dsc$a_pointer = p; ImageName.dsc$w_length = strlen(p); RoutineName.dsc$a_pointer = &result; RoutineName.dsc$w_length = strlen(result); Iss = Lib$Find_Image_Symbol(&ImageName,&RoutineName,&Routine); if ((Iss & 1) == 0) MidasError("Could not load image %s",name); Routine(); #endif } midaswww-1.0/midaswww.c100644 002113 001774 00000057674 05302057361 015071 0ustar00tonyjey000000 000000 /* * These are the WWW - Midas Interface routines */ #include #include #include #include #include #ifdef VAX #define CADDR_T #define __TYPES_LOADED #include ctype #endif #include /* Motif Toolkit and MRM */ #include "midas.h" #include "SGMLHyper.h" #include "SGMLAnchorText.h" #include "SGMLCompositeText.h" #include #ifndef VAX #define socket_read(a,b,c) read(a,b,c) #define socket_write(a,b,c) write(a,b,c) #define socket_close(a) close(a) #endif /* * Structures */ #define HASHSIZE 337 #define DEADNODE ((WWWNode *) -1) typedef struct { XrmQuark protocol; XrmQuark node; int port; XrmQuark file; XrmQuark anchor; XrmQuark keyword; } WWWFile; static WWWFile WWWFileDefault; struct _WWWNode { struct _WWWNode *hashclash; struct _WWWNode *parent; struct _WWWNode *next; struct _WWWNode *prev; struct _WWWNode *up; struct _WWWNode *down; struct _WWWNode *chain; WWWFile *file; Boolean visited; WidgetList widgets; /* current list of widgets corresponding to this node */ int num_widgets; int alloc_widgets; }; typedef struct _WWWNode WWWNode; struct _WWWLink { WWWNode *from; WWWNode *to; }; typedef struct _WWWLink WWWLink; static WWWNode *HashTable[HASHSIZE]; static WWWFile *WWWGateway; static WWWNode *WWWToLink = NULL; static WWWNode *WWWFromLink = DEADNODE; /* Ugly static variable that keeps track of where we are in processing a document */ static int nextid; static WWWNode *lastnode; static WWWNode *parent; static XrmQuark localProtocol; static XrmQuark httpProtocol; typedef struct { int socket; int nleft; char *next; } DataSource; /* * Application resources * */ #define WWWINHERIT_FONT NULL #define WWWINHERIT_UNDERLINE -999 #define WWWINHERIT_OUTLINE 2 #define WWWINHERIT_UNDERLINEHEIGHT 999 #define WWWINHERIT_COLOR NULL #define WWWNvisitedFont "visitedFont" #define WWWNvisitedColor "visitedColor" #define WWWNvisitedUnderline "visitedUnderline" #define WWWNvisitedOutline "visitedOutline" #define WWWNvisitedUnderlineHeight "visitedUnderlineHeight" #define WWWNdefaultHTTPPort "defaultHTTPPort" #define WWWCPort "Port" #define WWWNhelp "help" #define WWWCHelp "Help" typedef struct { Pixel color; Boolean outline; int underline; Dimension underline_height; XFontStruct *font; int default_HTTP_port; String help; } WWWResources; static WWWResources appResources; #define Offset(field) XtOffsetOf(WWWResources,field) static XtResource resources[] = { {WWWNvisitedFont, SGMLCFont, XtRFontStruct, sizeof (XFontStruct *), Offset(font), XtRString, WWWINHERIT_FONT}, {WWWNvisitedColor, SGMLCColor, XtRPixel, sizeof (Pixel), Offset(color),XtRString, WWWINHERIT_COLOR}, {WWWNvisitedOutline,SGMLCOutline,XtRBoolean,sizeof(Boolean), Offset(outline),XtRImmediate,(XtPointer) WWWINHERIT_OUTLINE}, {WWWNvisitedUnderline,SGMLCUnderline,XtRInt,sizeof(int), Offset(underline),XtRImmediate,(XtPointer) WWWINHERIT_UNDERLINE}, {WWWNvisitedUnderlineHeight, SGMLCUnderlineHeight, XtRDimension, sizeof(Dimension), Offset(underline_height),XtRImmediate,(XtPointer) WWWINHERIT_UNDERLINEHEIGHT}, {WWWNdefaultHTTPPort, WWWCPort, XtRInt, sizeof(int), Offset(default_HTTP_port),XtRImmediate,(XtPointer) 80}, {WWWNhelp, WWWCHelp, XtRString, sizeof(char *), Offset(help),XtRString,(XtPointer) "http://slacvx.slac.stanford.edu:80/MidasWWW/v10/"}, }; #undef Offset /* * Calculates a hash id from a WWWFile * ----------------------------------- */ static int WWWHash(file) WWWFile *file; { return ((int) file->protocol + (int) file->node + (int) file->file + (int) file->anchor + file->port ) % HASHSIZE; } static void WWWAsciiFile(buffer,pfile) char *buffer; WWWFile *pfile; { sprintf(buffer,"%s:",XrmQuarkToString(pfile->protocol)); buffer += strlen(buffer); if (pfile->node) { sprintf(buffer,"//%s",XrmQuarkToString(pfile->node)); buffer += strlen(buffer); } if (pfile->port) { sprintf(buffer,":%d",pfile->port); buffer += strlen(buffer); } sprintf(buffer,"%s",XrmQuarkToString(pfile->file)); buffer += strlen(buffer); if (pfile->anchor) { sprintf(buffer,"#%s",XrmQuarkToString(pfile->anchor)); buffer += strlen(buffer); } } /* * Dump the hash table * ------------------- */ static void WWWHashDump() { int i; for (i=0; ihashclash) { WWWFile *pfile = a->file; WWWNode *a = HashTable[i]; char p[256]; WWWAsciiFile(p,pfile); printf("(%d,%d,%d,%d,%d,%d) %s\n",pfile->protocol,pfile->node,pfile->port, pfile->file,pfile->anchor,pfile->keyword,p); } } } /* * Called to mark an anchor as visited */ static void WWWBeenThere(w) Widget w; { Arg arglist[10]; int n=0; if (appResources.color!=WWWINHERIT_COLOR) { XtSetArg(arglist[n],SGMLNsensitiveColor,appResources.color); n++; } if (appResources.font!=WWWINHERIT_FONT) { XtSetArg(arglist[n],SGMLNsensitiveFont,appResources.font ); n++; } if (appResources.outline!=WWWINHERIT_OUTLINE) { XtSetArg(arglist[n],SGMLNsensitiveOutline,appResources.outline); n++; } if (appResources.underline!=WWWINHERIT_UNDERLINE) { XtSetArg(arglist[n],SGMLNsensitiveUnderline,appResources.underline); n++; } if (appResources.underline_height!=WWWINHERIT_UNDERLINEHEIGHT) { XtSetArg(arglist[n],SGMLNsensitiveUnderlineHeight,appResources.underline_height); n++; } if (n) XtSetValues(w,arglist,n); } /* * Delete a file structure * ----------------------- */ static void FreeFile(file) WWWFile *file; { XtFree((char *)file); } /* * Create a copy of a file structure * --------------------------------- */ static WWWFile *CopyFile(file) WWWFile *file; { WWWFile *new = XtNew(WWWFile); *new = *file; return new; } static int CompareFile(file1,file2) WWWFile *file1; WWWFile *file2; { return memcmp(file1,file2,sizeof(WWWFile)); } /* * Find (or create) a node * ----------------------- */ static WWWNode *WWWCreateNode(file,parent) WWWFile *file; WWWNode *parent; { int hashid = WWWHash(file); WWWNode *a = HashTable[hashid]; for (; a != NULL; a = a->hashclash) if (!CompareFile(a->file,file)) return a; a = XtNew(WWWNode); a->file = CopyFile(file); a->parent = parent ? parent : a; a->prev = NULL; a->next = NULL; a->up = NULL; a->down = NULL; a->chain= NULL; a->visited = FALSE; a->widgets = NULL; a->num_widgets = 0; a->alloc_widgets = 0; a->hashclash = HashTable[hashid]; HashTable[hashid] = a; return a; } /* * Find (or create) a node and if necessary its parent * --------------------------------------------------- */ static WWWNode *WWWCreateNodeAndParent(file) WWWFile *file; { WWWNode *parent; if (file->anchor) { XrmQuark temp = file->anchor; file->anchor = NULL; parent = WWWCreateNode(file,NULL); file->anchor = temp; } else parent = NULL; return WWWCreateNode(file,parent); } /* * Mark a node as visited * ---------------------- */ WWWVisitNode(node) WWWNode *node; { if (!node->visited) { WWWNode *src = node->up; for ( ; src != NULL; src = src->chain) { WidgetList w = src->widgets; int nw = src->num_widgets; for (; nw-- > 0; w++) WWWBeenThere(*w); } node->visited = TRUE; } } static void WWWDetachWidgetFromNode(w,node) Widget w; WWWNode *node; { int i; for (i=0 ; i < node->num_widgets; i++) if (node->widgets[i] == w) node->widgets[i] = node->widgets[--node->num_widgets]; } static void WWWAttachWidgetToNode(node,w) WWWNode *node; Widget w; { if (node->num_widgets == node->alloc_widgets) node->widgets = (Widget *) XtRealloc((char *) node->widgets, (node->alloc_widgets += 5) * sizeof(Widget)); node->widgets[node->num_widgets++] = w; XtAddCallback(w,XtNdestroyCallback,WWWDetachWidgetFromNode,(XtPointer)node); } /* * Provides buffering for the TCP/IP packets * ----------------------------------------- */ static char GetCharacter(data) DataSource *data; { static char response[1024]; if (data->nleft == 0) { data->nleft = socket_read(data->socket,response,sizeof(response)); data->next = response; } if (data->nleft-- > 0) return *(data->next++); return '\0'; } static char GetFileCharacter(f) FILE **f; { int n = getc(*f); return (n==EOF?0:(char)n); } /* * Fetch the local document * ------------------------ */ static Widget WWWFetchDocumentLOCAL(w,file) Widget w; WWWFile *file; { Widget result; char *name = XrmQuarkToString(file->file); FILE *f = fopen(name,"r"); if (f == NULL) { char command[256]; sprintf(command,"

Error:

Cannot open file %s

For more information see help.", name,appResources.help); return SGMLHyperSetText(w,command); } result = SGMLHyperLoadText(w,GetFileCharacter,&f); fclose(f); return result; } /* * Fetch the document using TCP/IP * ------------------------------- */ static Widget WWWFetchDocumentHTTP(w,file) Widget w; WWWFile *file; { struct sockaddr_in server; int n, s, status; char command[256]; char *node = XrmQuarkToString(file->node); struct hostent *hp; DataSource data; Widget result; hp = gethostbyname(node); if (hp == 0) { sprintf(command,"

Error:

Host %s unknown

For more information see help.", node,appResources.help); return SGMLHyperSetText(w,command); } server.sin_family = AF_INET; server.sin_port = htons(file->port?file->port:appResources.default_HTTP_port); bcopy(hp->h_addr,&server.sin_addr, hp->h_length); s = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP); status = connect(s,&server,sizeof(server)); if (status<0) { sprintf(command,"

Error:

Cannot connect to %s port %d

For more information see help.", node,file->port,appResources.help); socket_close(s); return SGMLHyperSetText(w,command); } strcpy(command,"GET "); strcat(command,XrmQuarkToString(file->file)); strcat(command, "\r\n"); socket_write(s,command,strlen(command)); data.socket = s; data.nleft = 0; result = SGMLHyperLoadText(w,GetCharacter,&data); socket_close(s); return result; } /* * Fetch the document using appropriate protocol * --------------------------------------------- */ static Widget WWWFetchDocument(w,file) Widget w; WWWFile *file; { if (file->protocol == httpProtocol ) return WWWFetchDocumentHTTP(w,file); else if (file->protocol == localProtocol) return WWWFetchDocumentLOCAL(w,file); else { WWWFile actual; char p[256]; *p = '/'; WWWAsciiFile(p+1,file); actual.protocol = WWWGateway->protocol; actual.node = WWWGateway->node; actual.port = WWWGateway->port; actual.file = XrmStringToQuark(p); actual.keyword = NULL; actual.anchor = NULL; return WWWFetchDocumentHTTP(w,&actual); } } static void WWWZapNode(w,node) Widget w; WWWNode *node; { int n=0; /* * Remove a cached document */ node = node->parent; for (n = 0; n < node->num_widgets; n++) { Widget t = node->widgets[n]; if (SGMLIsCompositeText(t) && XtParent(t) == w) { WWWDetachWidgetFromNode(t,node); XtDestroyWidget(t); break; } } } /* * Display a new node in a widget * ------------------------------ */ static void WWWDisplayNode(w,node) Widget w; WWWNode *node; { Widget new; int n=0; /* * The document may already be cached in the widget? */ for (n = 0; n < node->num_widgets; n++) { Widget t = node->widgets[n]; if (SGMLIsCompositeText(t) && XtParent(t) == w) { SGMLHyperManageChild(t); return; } } /* * Otherwise we have to fetch it. */ nextid = 0; lastnode = NULL; parent = node; new = WWWFetchDocument(w,node->file); WWWVisitNode(node); SGMLHyperManageChild(new); WWWAttachWidgetToNode(node,new); } /* * parse a character file specification to create a file structure * ---------------------------------------------------------------- */ static WWWFile *ParseFile(infile,def) char *infile; WWWFile *def; { char *node, *oldfile, *newfile, *anchor, *protocol; char *directory, *port; WWWFile *result = CopyFile(def); char *file = XtNewString(infile); char *orig = file; result->anchor = NULL; /* NOT inherited from default */ node = strstr(file,"/"); protocol = strchr(file,':'); if (protocol && (protocol < node || node == 0)) { *protocol = '\0'; result->protocol = XrmStringToQuark(file); if (result->protocol != def->protocol) { result->node = NULL; result->port = 0; } file = protocol + 1; } else protocol = NULL; if (strncmp(file,"//",2)) { if (*file == '/' || protocol) { result->file = XrmStringToQuark(file); } else { Boolean absolute; oldfile = XtNewString(XrmQuarkToString(result->file)); absolute = (*oldfile == '/'); if (anchor = strchr(file,'#')) { *anchor++ = '\0'; result->anchor = XrmStringToQuark(anchor); } for (;*file;file += 3) { char *p = strrchr(oldfile,'/'); if (!p) p = oldfile; *p = '\0'; if (strncmp(file,"../",3)) break; } newfile = strcpy((char *) XtMalloc(strlen(oldfile) + strlen(file) + 2),oldfile); if ((absolute || *oldfile) && *file)strcat(newfile,"/"); strcat(newfile,file); result->file = XrmStringToQuark(newfile); XtFree(newfile); XtFree(oldfile); } } else { char *p; node = file + 2; directory = strchr(node,'/'); if (directory) *(directory) = '\0'; port = strchr(node,':'); if (port) { *(port++) = '\0'; result->port = atoi(port); } for (p=node; *p != '\0'; p++) if (isupper(*p)) *p = tolower(*p); result->node = XrmStringToQuark(node); if (directory) { *(directory) = '/'; if (anchor = strchr(directory,'#')) { *anchor++ = '\0'; result->anchor = XrmStringToQuark(anchor); } } result->file = XrmStringToQuark(directory); } XtFree(orig); return result; } static void WWWGet(ww,node) Widget ww; WWWNode *node; { WWWLink *link; WWWDisplayNode(ww,node->parent); WWWToLink = node; if (node != node->parent) { WidgetList w = node->widgets; int nw = node->num_widgets; for (; nw-- > 0; w++) { Widget p; for (p = *w; p != NULL; p = XtParent(p)) if (p == ww) { SGMLHyperShowObject(ww,*w); return; } } } else SGMLHyperShowObject(ww,NULL); } static void WWWDeleteHistory(list) List *list; { ListItem *item = MidasFindItemInListPos(list,0); if (item) MidasRemoveItemFromList(list,item); } static void WWWAddHistory(list,title) List *list; char *title; { ListItem *item; WWWLink *link = XtNew(WWWLink); link->from = (WWWFromLink == DEADNODE) ? NULL : WWWFromLink; link->to = WWWToLink; if (WWWFromLink == DEADNODE) MidasEmptyList(list); if (WWWFromLink) { item = MidasAddItemToListPos(list,title,0); item->Pointer = (XtPointer) link; } WWWFromLink = DEADNODE; WWWToLink = NULL; } static void WWWLinkHistory(node) WWWNode *node; { WWWFromLink = node; } static void WWWPut(w,stuff) Widget w; char *stuff; { Widget t = SGMLHyperSetText(w,stuff); SGMLHyperManageChild(t); } static void WWWDump(w,file) Widget w; char *file; { char *dump; FILE *out = fopen(file,"w"); if (out==NULL) MidasError("Could not open file %s",file); dump = SGMLHyperGetText(w,TRUE); fputs(dump,out); fclose(out); XtFree(dump); } /* * Called when a new anchor is created * ----------------------------------- */ static void WWWCreateAnchor(w,doc) Widget w; WWWFile *doc; { char *href, *name, buffer[12]; WWWNode *src = NULL; WWWNode *dest = NULL; WWWFile *here = CopyFile(doc); Arg arglist[10]; int n=0; XtSetArg(arglist[n],SGMLNhref,&href); n++; XtSetArg(arglist[n],SGMLNname,&name); n++; XtGetValues(w,arglist,n); /* * Create a source node, if the node has no name then make * one up. */ if (!name || !(*name)) { name = buffer; sprintf(buffer,"@@%d",nextid++); } here->anchor = XrmStringToQuark(name); src = WWWCreateNode(here,parent); FreeFile(here); if (lastnode) lastnode->next = src; src->prev = lastnode; lastnode = src; WWWAttachWidgetToNode(src,w); n=0; XtSetArg(arglist[n],SGMLNuserdata,(XtPointer) src); n++; XtSetValues(w,arglist,n); /* * If this node points somewhere then create a destination node */ if (href && *href) { WWWNode *p; here = ParseFile(href,doc); dest = WWWCreateNodeAndParent(here); FreeFile(here); src->down = dest; p = dest->up; for (; p != NULL; p = p->chain) if (p==src) break; if (p == NULL) { src->chain = dest->up; dest->up = src; } if (dest->visited) WWWBeenThere(w); } } /* * It should be possible to do this directly from MIDAS so this routine * should go away as soon as it actually is. */ static void WWWCopyBackgroundColor(src,dest) Widget src; Widget dest; { Pixel bg; Arg arglist[1]; XtSetArg(arglist[0],XmNbackground,&bg); XtGetValues(src,arglist,1); XtSetArg(arglist[0],XmNbackground,bg); XtSetValues(dest,arglist,1); } static MidasOperand WWWSource(w) Widget w; { MidasOperand Temp; char *dump = SGMLHyperGetText(w,TRUE); Temp.Value.P = dump; Temp.Dynamic = TRUE; Temp.Type = MString; return Temp; } static MidasOperand WWWBack(list) List *list; { MidasOperand Temp; ListItem *item = MidasFindItemInListPos(list,0); WWWLink *link = (WWWLink *) item?item->Pointer:NULL; Temp.Value.P = link ? (XtPointer) link->from : NULL; Temp.Dynamic = FALSE; Temp.Type = "WWWNode"; return Temp; } static MidasOperand WWWPrev(node) WWWNode *node; { MidasOperand Temp; Temp.Value.P = node ? (XtPointer) node->prev : NULL; Temp.Dynamic = FALSE; Temp.Type = "WWWNode"; return Temp; } static MidasOperand WWWNext(node) WWWNode *node; { MidasOperand Temp; Temp.Value.P = node ? (XtPointer) node->next : NULL; Temp.Dynamic = FALSE; Temp.Type = "WWWNode"; return Temp; } static MidasOperand WWWDest(node) WWWNode *node; { MidasOperand Temp; Temp.Value.P = node ? (XtPointer) node->down : NULL; Temp.Dynamic = FALSE; Temp.Type = "WWWNode"; return Temp; } static MidasOperand WWWGetNode(w) Widget w; { MidasOperand Temp; Arg arglist[10]; int n=0; XtSetArg(arglist[n],SGMLNuserdata,&Temp.Value.P); n++; XtGetValues(w,arglist,n); Temp.Dynamic = FALSE; Temp.Type = "WWWNode"; return Temp; } static MidasOperand WWWParse(file,def) char *file; WWWFile *def; { MidasOperand Temp; WWWFile *pfile = ParseFile(file,def); Temp.Value.P = (XtPointer) pfile; Temp.Dynamic = TRUE; Temp.Type = "WWWFile"; return Temp; } /* * Converters * ---------- */ static Boolean WWWConvertStringFile(In,Out) MidasOperand *In; MidasOperand *Out; { WWWFile *pfile = ParseFile(In->Value.P,&WWWFileDefault); Out->Value.P = (XtPointer) pfile; Out->Dynamic = TRUE; return TRUE; } static Boolean WWWConvertStringNode(In,Out) MidasOperand *In; MidasOperand *Out; { WWWFile *pfile = ParseFile(In->Value.P,&WWWFileDefault); WWWNode *node = WWWCreateNodeAndParent(pfile); FreeFile(pfile); Out->Value.P = (XtPointer) node; Out->Dynamic = FALSE; return TRUE; } static Boolean WWWConvertFileNode(In,Out) MidasOperand *In; MidasOperand *Out; { if (In->Value.P) { WWWNode *node = WWWCreateNodeAndParent((WWWFile *) In->Value.P); Out->Value.P = (XtPointer) node; } else Out->Value.P = NULL; Out->Dynamic = FALSE; return TRUE; } static Boolean WWWConvertNodeFile(In,Out) MidasOperand *In; MidasOperand *Out; { WWWNode *node = (WWWNode *) In->Value.P; Out->Value.P = node ? (XtPointer) node->file : NULL; Out->Dynamic = FALSE; return TRUE; } static Boolean WWWConvertFileString(In,Out) MidasOperand *In; MidasOperand *Out; { char *p = (char *) XtMalloc(256); /* BUG */ WWWFile *pfile = (WWWFile *) In->Value.P; WWWAsciiFile(p,pfile); Out->Value.P = (XtPointer) p; Out->Dynamic = TRUE; return TRUE; } static void WWWSetGateway(gateway) char *gateway; { WWWGateway = ParseFile(gateway,&WWWFileDefault); } static void WWWInit(shell) Widget shell; { XtGetApplicationResources(shell,(XtPointer) &appResources,resources,XtNumber(resources),NULL,0); } /* * Initialization */ void WWWMidasInit(argc,argv) int argc; char *argv[]; { int i; for (i=0; i < HASHSIZE; i++) HashTable[i] = NULL; localProtocol = XrmStringToQuark("local"); httpProtocol = XrmStringToQuark("http"); WWWFileDefault.protocol = httpProtocol; WWWFileDefault.port = 0; WWWFileDefault.node = NULL; WWWFileDefault.file = NULL; WWWFileDefault.anchor = NULL; /* * MIDAS BUG confusion between name and String */ MidasDeclareConverter("String","WWWFile", WWWConvertStringFile); MidasDeclareConverter("name","WWWFile", WWWConvertStringFile); MidasDeclareConverter("String","WWWNode", WWWConvertStringNode); MidasDeclareConverter("name","WWWNode", WWWConvertStringNode); MidasDeclareConverter("WWWFile","String", WWWConvertFileString); MidasDeclareConverter("WWWFile","name", WWWConvertFileString); MidasDeclareConverter("WWWFile","WWWNode",WWWConvertFileNode); MidasDeclareConverter("WWWNode","WWWFile",WWWConvertNodeFile); MidasDeclareVerb("WWW HASH DUMP" ,WWWHashDump); MidasDeclareVerb("WWW INIT Widget" ,WWWInit); MidasDeclareVerb("WWW SET GATEWAY name" ,WWWSetGateway); MidasDeclareVerb("WWW DUMP Widget name" ,WWWDump); MidasDeclareVerb("WWW ADD HISTORY list name" ,WWWAddHistory); MidasDeclareVerb("WWW DELETE HISTORY list" ,WWWDeleteHistory); MidasDeclareVerb("WWW GET Widget WWWNode" ,WWWGet); MidasDeclareVerb("WWW ZAP Widget WWWNode" ,WWWZapNode); MidasDeclareVerb("WWW LINK {WWWNode}" ,WWWLinkHistory); MidasDeclareVerb("WWW PUT Widget name" ,WWWPut); MidasDeclareVerb("WWW ANCHOR Widget WWWFile" ,WWWCreateAnchor); MidasDeclareVerb("WWW COPYB Widget Widget" ,WWWCopyBackgroundColor); MidasDeclareFunction("WWWPARSE(name,WWWFile)" ,WWWParse); MidasDeclareFunction("WWWSOURCE(Widget)" ,WWWSource); MidasDeclareFunction("WWWBACK(list)" ,WWWBack); MidasDeclareFunction("WWWPREV(WWWNode)" ,WWWPrev); MidasDeclareFunction("WWWNEXT(WWWNode)" ,WWWNext); MidasDeclareFunction("WWWDEST(WWWNode)" ,WWWDest); MidasDeclareFunction("WWWNODE(Widget)" ,WWWGetNode); } /* * Main routine for MidasWWW */ int main(argc,argv) int argc; char *argv[]; { MidasInitialize(argc,argv); WWWMidasInit(argc,argv); MidasMainLoop(); } StringToQuark(anchor); } for (;*file;file += 3)midaswww-1.0/midasutil.c100644 002113 001774 00000002210 05302057361 015172 0ustar00tonyjey000000 000000 #include /* Motif Toolkit and MRM */ #include #include "midasoperand.h" /* * General utility functions */ static MidasOperand Locate(needle,haystack) char *needle; char *haystack; { MidasOperand Temp; char *p = strstr(haystack,needle); Temp.Value.I = p ? p-haystack : strlen(haystack); Temp.Type = MInt; Temp.Dynamic = FALSE; return Temp; } static MidasOperand Extract(start,length,string) int start; int length; char *string; { MidasOperand Temp; int len = strlen(string); char *p; if (start>=len) p = NULL; else { p = string + start; if (start+length < len) *(p+length) = '\0'; } Temp.Value.P = XtNewString(p); Temp.Type = MString; Temp.Dynamic = TRUE; return Temp; } static MidasOperand Length(string) char *string; { MidasOperand Temp; Temp.Value.I = strlen(string); Temp.Type = MInt; Temp.Dynamic = FALSE; return Temp; } void MidasUtilInit() { MidasDeclareFunction("LENGTH(name)" ,Length); MidasDeclareFunction("EXTRACT(Int,Int,name)",Extract); MidasDeclareFunction("LOCATE(name,name)" ,Locate); } midaswww-1.0/midas.uil100644 002113 001774 00000260302 05302057364 014656 0ustar00tonyjey000000 000000 module vuitDummy names = case_sensitive value Midas_Custom_Button_Width: 70; Midas_Cusom_Button_Offset: -35; Midas_Custom_Large_Font: font_table(font('-*-HELVETICA-BOLD-R-*--*-180-*-*-*-*-ISO8859-1')); HandyPakIcon: exported icon(color_table = color_table(background color = ' ', foreground color = '*'), ' ', ' ***************************************', ' * * **', ' * ** * *', ' * * *** * ** * * *', ' * ** *** * ** ** * * *', ' * * ** * ** * *', ' * * * * * * * *', ' * * * * *', ' * **** * ** * **', ' * * * ** * *', ' * * ** * *', ' * ** * *** * *', ' * * * * * * * * * *', ' * * *** * ** * *', ' * * * ** * **', ' * * * * *', ' * * * * *', ' * * * ** * *', ' * * * *', ' * * * * *', ' * * * ** * * * ***', ' * * * * * *', ' * * ** *** * * *** *', ' * * * ** * *** * * *', ' * **** ** * * *** *', ' * * * * *** * *', ' * * * * * * **', ' * * ** *** * * *', ' * *** * * * * *', ' * * * *** *', ' * * * * * *', ' * * *** * *', ' * ** * * **', ' * * *** *', ' * * * *', ' * * * *', ' * * * * *', ' ** * * * * * * * * *', ' ***************************************'); MidasIcon: exported icon(color_table = color_table(background color = ' ', foreground color = '*'), '** ** * **** ', ' *** * * * * ** * ', ' **** * * * * ** * ', ' * ** * * * * ** ** ', ' * ** ** ** * ', ' * * ', ' * ** ', ' * * ', ' * * ', ' * **** ', ' ********************** * ', ' * ****** ', ' * ****** ', ' * *** **** ****** ', ' * * ** * * ****** ', ' * *** * *** ****** ', ' ** * * * * * * ****** ', ' ** *** * *** ****** ', ' * * * ****** ', ' *** * ****** ', ' * * * ****** ', ' *** ** ** * ****** ', ' *** *** *** ****** ', ' ** ** ****** ', ' *** ***** * ', ' *** ** ** ******* ', ' *** ********* ******** ', ' *** ***** * ******* ', ' *** * ********* * ', ' *** * *** ** * * * ** ', ' ****** *** ***** ***** ', ' * ***** *** *********** ', ' * ** **** * * * ***** *** ', ' ** ** ******** **** ***** ', ' ****** *** ******** **** ', ' **** * ** ***** **', '*** ** ** * *** ', ' **** * *** ', ' ** ', ' '); list_offset: 7; Buitton_Bottom_Offset: 8; LabelTextOffset: -5; list Midas_Custom_Label: arguments { XmNtopOffset = 10; XmNleftOffset = 9; XmNfontList = Midas_Custom_Large_Font; }; procedure midas_command_proc(); CustomCreate(integer); CustomDelVerb(); CustomAddVerb(); CustomSelVerb(); CustomAddMenu(); CustomDelMenu(); CustomSelMenu(); CustomVMAddSeparator(); CustomUpdateSensitivity(); CustomVMAddMenu(); CustomVMAddVerb(); CustomVMDel(); CustomVMUp(); CustomVMDown(); CustomSelConfMenu(); CustomVMSel(); CustomSelConfVerb(); CustomVMSelConf(); CustomApply(); CustomOk(); CustomReset(); CustomCancel(); CustomExit(integer); SendMidas(string); midas_exit(integer); object Midas_Main: XmMainWindow { arguments { XmNworkWindow = XmCommand Midas_Command; }; controls { XmCommand Midas_Command; XmMenuBar { callbacks { MrmNcreateCallback = procedures { SendMidas( "Custom Connect CUSTOM \"

\" ."); }; }; }; }; callbacks { MrmNcreateCallback = procedures { SendMidas( "Custom Create CUSTOM ."); }; }; }; Midas_Command: XmCommand { arguments { }; callbacks { XmNcommandEnteredCallback = procedures { midas_command_proc(); }; MrmNcreateCallback = procedures { SendMidas( "Midas Register Name MidasCommand ."); }; }; }; Midas_Custom: XmFormDialog { arguments { XmNx = 5; XmNy = 500; XmNwidth = 557; XmNheight = 496; XmNborderWidth = 1; XmNresizePolicy = XmRESIZE_NONE; XmNfractionBase = 90; XmNdialogTitle = compound_string("Midas Customize Verbs and Menus"); }; controls { XmForm { arguments { XmNx = 251; XmNy = 7; XmNwidth = 25; XmNheight = 26; XmNborderWidth = 1; XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_POSITION; XmNleftOffset = 0; XmNtopOffset = 0; XmNleftPosition = 60; XmNrightOffset = 0; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = 0; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmForm Midas_Custom_Buttons; }; controls { XmLabelGadget Midas_Custom_Verb_Menu_Label; XmPushButtonGadget Midas_Custom_Add_Verb; XmPushButtonGadget { arguments { XmNx = 91; XmNy = 252; XmNlabelString = compound_string("Add Menu"); XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 75; XmNtopOffset = 0; XmNleftOffset = Midas_Cusom_Button_Offset; XmNwidth = Midas_Custom_Button_Width; XmNtopWidget = XmPushButtonGadget Midas_Custom_Add_Verb; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(5); }; XmNactivateCallback = procedures { CustomVMAddMenu(); }; }; }; XmPushButtonGadget Midas_Custom_Separator; XmPushButtonGadget { arguments { XmNx = 94; XmNy = 345; XmNlabelString = compound_string("Remove"); XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 75; XmNtopOffset = 0; XmNleftOffset = Midas_Cusom_Button_Offset; XmNwidth = Midas_Custom_Button_Width; XmNtopWidget = XmPushButtonGadget Midas_Custom_Separator; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(7); }; XmNactivateCallback = procedures { CustomVMDel(); }; }; }; XmLabelGadget ActiveMenuLabel; XmScrolledList { arguments { XmNwidth = 181; XmNheight = 160; XmNlistSizePolicy = XmCONSTANT; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = list_offset; XmNtopOffset = 0; XmNrightOffset = list_offset; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = 1; XmNbottomAttachment = XmATTACH_WIDGET; XmNtopWidget = XmLabelGadget Midas_Custom_Verb_Menu_Label; XmNbottomWidget = XmLabelGadget ActiveMenuLabel; XmNvisibleItemCount = 999; XmNx = 20; XmNy = 5; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(8); }; XmNbrowseSelectionCallback = procedures { CustomVMSel(); }; XmNdefaultActionCallback = procedures { CustomVMSelConf(); }; }; }; XmPushButtonGadget Midas_Custom_Up; XmPushButtonGadget { arguments { XmNx = 134; XmNy = 252; XmNlabelString = compound_string("Down"); XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 75; XmNtopOffset = 0; XmNleftOffset = Midas_Cusom_Button_Offset; XmNwidth = Midas_Custom_Button_Width; XmNtopWidget = XmPushButtonGadget Midas_Custom_Up; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(3); }; XmNactivateCallback = procedures { CustomVMDown(); }; }; }; }; }; XmForm Midas_Custom_Command; XmForm Midas_Custom_Buttons; XmForm Verb_Form; XmForm { arguments { XmNx = 191; XmNy = 91; XmNwidth = 25; XmNheight = 25; XmNborderWidth = 1; XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_POSITION; XmNleftOffset = 0; XmNtopOffset = 0; XmNleftPosition = 30; XmNrightOffset = 0; XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 60; XmNbottomOffset = 0; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmForm Verb_Form; XmNdefaultButton = XmPushButtonGadget Menu_Ok_Button; }; controls { XmLabelGadget Menu_Label; XmText Menu_Text; XmScrolledList { arguments { XmNwidth = 181; XmNheight = 160; XmNlistSizePolicy = XmCONSTANT; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = list_offset; XmNtopOffset = 0; XmNrightOffset = list_offset; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = list_offset; XmNbottomAttachment = XmATTACH_WIDGET; XmNtopWidget = XmLabelGadget Menu_Label; XmNbottomWidget = XmText Menu_Text; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(17); }; XmNdefaultActionCallback = procedures { CustomSelConfMenu(); }; XmNbrowseSelectionCallback = procedures { CustomSelMenu(); }; }; }; XmPushButtonGadget Menu_Ok_Button; XmPushButtonGadget { arguments { XmNx = 74; XmNy = 0; XmNlabelString = compound_string("Delete"); XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_POSITION; XmNleftOffset = Midas_Cusom_Button_Offset; XmNtopOffset = 0; XmNleftPosition = 75; XmNwidth = Midas_Custom_Button_Width; XmNtopWidget = XmPushButtonGadget Menu_Ok_Button; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(20); }; XmNactivateCallback = procedures { CustomDelMenu(); }; }; }; }; }; }; }; Midas_Custom_Buttons: XmForm { arguments { XmNx = 247; XmNy = 178; XmNwidth = 27; XmNheight = 72; XmNborderWidth = 1; XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_POSITION; XmNleftOffset = 0; XmNtopOffset = 0; XmNleftPosition = 60; XmNrightOffset = 0; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = 0; XmNbottomAttachment = XmATTACH_FORM; }; controls { XmPushButtonGadget Midas_Custom_OK_Button; XmPushButtonGadget Midas_Custom_Apply_Button; XmPushButtonGadget { arguments { XmNx = 82; XmNy = 16; XmNlabelString = compound_string("Reset"); XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_POSITION; XmNleftOffset = Midas_Cusom_Button_Offset; XmNtopOffset = 0; XmNleftPosition = 75; XmNwidth = Midas_Custom_Button_Width; XmNtopWidget = XmPushButtonGadget Midas_Custom_Apply_Button; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(12); }; XmNactivateCallback = procedures { CustomReset(); }; }; }; XmPushButtonGadget { arguments { XmNx = 86; XmNy = 51; XmNlabelString = compound_string("Cancel"); XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_POSITION; XmNleftOffset = Midas_Cusom_Button_Offset; XmNtopOffset = 0; XmNwidth = Midas_Custom_Button_Width; XmNleftPosition = 75; XmNtopWidget = XmPushButtonGadget Midas_Custom_OK_Button; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(11); }; XmNactivateCallback = procedures { CustomCancel(); }; }; }; }; }; Midas_Custom_Apply_Button: XmPushButtonGadget { arguments { XmNx = 77; XmNy = 9; XmNlabelString = compound_string("Apply"); XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_POSITION; XmNleftOffset = Midas_Cusom_Button_Offset; XmNtopOffset = 10; XmNleftPosition = 25; XmNwidth = Midas_Custom_Button_Width; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(10); }; XmNactivateCallback = procedures { CustomApply(); }; }; }; Midas_Custom_OK_Button: XmPushButtonGadget { arguments { XmNx = 18; XmNy = 13; XmNlabelString = compound_string("OK"); XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_POSITION; XmNleftOffset = Midas_Cusom_Button_Offset; XmNtopOffset = 40; XmNleftPosition = 25; XmNwidth = Midas_Custom_Button_Width; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(9); }; XmNactivateCallback = procedures { CustomOk(); }; }; }; Midas_Custom_Command: XmForm { arguments { XmNx = 36; XmNy = 316; XmNwidth = 25; XmNheight = 126; XmNborderWidth = 1; XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 0; XmNtopOffset = 0; XmNrightOffset = 0; XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 60; XmNbottomOffset = 0; XmNbottomAttachment = XmATTACH_FORM; XmNresizePolicy = XmRESIZE_GROW; }; controls { XmLabelGadget Midas_Custom_Command_Label; XmText { arguments { XmNx = 14; XmNy = 32; XmNwidth = 25; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 9; XmNtopOffset = 2; XmNrightOffset = 9; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = 9; XmNbottomAttachment = XmATTACH_FORM; XmNtopWidget = XmLabelGadget Midas_Custom_Command_Label; XmNeditMode = XmMULTI_LINE_EDIT; XmNrows = 4; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(1); }; XmNvalueChangedCallback = procedures { CustomUpdateSensitivity(); }; }; }; }; }; Midas_Custom_Command_Label: XmLabelGadget { arguments { arguments Midas_Custom_Label; XmNlabelString = compound_string("Command(s) for Selected Verb"); XmNx = 8; XmNtopAttachment = XmATTACH_FORM; }; }; Midas_Custom_Add_Verb: XmPushButtonGadget { arguments { XmNx = 14; XmNy = 252; XmNlabelString = compound_string("Add Verb"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_POSITION; XmNwidth = Midas_Custom_Button_Width; XmNleftOffset = Midas_Cusom_Button_Offset; XmNleftPosition = 25; XmNtopOffset = 0; XmNbottomOffset = 4; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmPushButtonGadget Midas_Custom_Separator; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(4); }; XmNactivateCallback = procedures { CustomVMAddVerb(); }; }; }; Midas_Custom_Separator: XmPushButtonGadget { arguments { XmNx = 19; XmNy = 279; XmNlabelString = compound_string("......."); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 25; XmNtopOffset = 0; XmNleftOffset = Midas_Cusom_Button_Offset; XmNwidth = Midas_Custom_Button_Width; XmNbottomOffset = Buitton_Bottom_Offset; XmNbottomAttachment = XmATTACH_FORM; XmNheight = 28; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(6); }; XmNactivateCallback = procedures { CustomVMAddSeparator(); }; }; }; Midas_Custom_Up: XmPushButtonGadget { arguments { XmNx = 11; XmNy = 223; XmNlabelString = compound_string("Up"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_POSITION; XmNwidth = Midas_Custom_Button_Width; XmNleftOffset = Midas_Cusom_Button_Offset; XmNleftPosition = 25; XmNtopOffset = 0; XmNbottomOffset = 5; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmPushButtonGadget Midas_Custom_Add_Verb; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(2); }; XmNactivateCallback = procedures { CustomVMUp(); }; }; }; Midas_Custom_Verb_Menu_Label: XmLabelGadget { arguments { arguments Midas_Custom_Label; XmNlabelString = compound_string("Verbs in Menu"); XmNtopAttachment = XmATTACH_FORM; }; }; Verb_Label: XmLabelGadget { arguments { arguments Midas_Custom_Label; XmNlabelString = compound_string("Verbs"); XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM; }; }; Verb_Enter_Button: XmPushButtonGadget { arguments { XmNx = 13; XmNy = 277; XmNlabelString = compound_string("Enter"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_POSITION; XmNleftOffset = Midas_Cusom_Button_Offset; XmNtopOffset = 0; XmNleftPosition = 25; XmNwidth = Midas_Custom_Button_Width; XmNbottomOffset = Buitton_Bottom_Offset; XmNbottomAttachment = XmATTACH_FORM; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(15); }; XmNactivateCallback = procedures { CustomAddVerb(); }; }; }; Verb_Text: XmText { arguments { XmNx = 18; XmNy = 264; XmNheight = 35; XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = list_offset; XmNtopOffset = 0; XmNrightOffset = list_offset; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = list_offset; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmPushButtonGadget Verb_Enter_Button; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(14); }; XmNvalueChangedCallback = procedures { CustomUpdateSensitivity(); }; }; }; Verb_Form: XmForm { arguments { XmNx = 31; XmNy = 61; XmNwidth = 25; XmNheight = 315; XmNborderWidth = 1; XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 0; XmNtopOffset = 0; XmNrightOffset = 0; XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 30; XmNbottomOffset = -1; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmForm Midas_Custom_Command; XmNdefaultButton = XmPushButtonGadget Verb_Enter_Button; }; controls { XmLabelGadget Verb_Label; XmText Verb_Text; XmPushButtonGadget Verb_Enter_Button; XmToggleButtonGadget Verb_Is_Toggle; XmPushButtonGadget { arguments { XmNx = 81; XmNy = 279; XmNlabelString = compound_string("Delete"); XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_POSITION; XmNleftOffset = Midas_Cusom_Button_Offset; XmNtopOffset = 0; XmNtopWidget = XmPushButtonGadget Verb_Enter_Button; XmNleftPosition = 75; XmNwidth = Midas_Custom_Button_Width; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(16); }; XmNactivateCallback = procedures { CustomDelVerb(); }; }; }; XmScrolledList { arguments { XmNwidth = 69; XmNheight = 182; XmNy = 25; XmNx = 77; XmNtopOffset = 0; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = XmLabelGadget Verb_Label; XmNleftOffset = list_offset; XmNleftAttachment = XmATTACH_FORM; XmNrightOffset = list_offset; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = 2; XmNbottomAttachment = XmATTACH_WIDGET; XmNlistSizePolicy = XmCONSTANT; XmNvisibleItemCount = 999; XmNbottomWidget = XmToggleButtonGadget Verb_Is_Toggle; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(13); }; XmNbrowseSelectionCallback = procedures { CustomSelVerb(); }; XmNdefaultActionCallback = procedures { CustomSelConfVerb(); }; }; }; }; }; Menu_Label: XmLabelGadget { arguments { arguments Midas_Custom_Label; XmNlabelString = compound_string("Menus"); XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM; }; }; Menu_Text: XmText { arguments { XmNx = 15; XmNy = 264; XmNheight = 35; XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = list_offset; XmNtopOffset = 0; XmNrightOffset = list_offset; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = list_offset; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmPushButtonGadget Menu_Ok_Button; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(18); }; XmNvalueChangedCallback = procedures { CustomUpdateSensitivity(); }; }; }; Menu_Ok_Button: XmPushButtonGadget { arguments { XmNx = 9; XmNy = 277; XmNlabelString = compound_string("Enter"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_POSITION; XmNleftOffset = Midas_Cusom_Button_Offset; XmNtopOffset = 0; XmNleftPosition = 25; XmNwidth = Midas_Custom_Button_Width; XmNbottomOffset = Buitton_Bottom_Offset; XmNbottomAttachment = XmATTACH_FORM; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(19); }; XmNactivateCallback = procedures { CustomAddMenu(); }; }; }; ActiveMenuLabel: XmLabelGadget { arguments { XmNx = 10; XmNy = 239; XmNlabelString = compound_string("No Menu Selected"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 10; XmNtopOffset = 0; XmNbottomOffset = 5; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmPushButtonGadget Midas_Custom_Up; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(21); }; }; }; MidasCustomExitDialog: XmWarningDialog { arguments { XmNmessageString = compound_string("Customization changes have not been saved.",separate=true) & compound_string("Save changes before exiting?"); XmNx = 34; XmNy = 55; XmNborderWidth = 1; XmNcancelLabelString = compound_string("No"); XmNokLabelString = compound_string("Yes"); XmNhelpLabelString = compound_string("Cancel"); XmNdialogStyle = XmDIALOG_FULL_APPLICATION_MODAL; XmNmessageAlignment = XmALIGNMENT_CENTER; XmNdialogTitle = compound_string("Confirmation Needed..."); }; callbacks { XmNcancelCallback = procedures { CustomExit(0); CustomExit(0); }; XmNhelpCallback = procedures { CustomExit(2); }; XmNokCallback = procedures { CustomExit(1); }; }; }; FileList: XmFormDialog { arguments { XmNx = 59; XmNy = 211; XmNwidth = 340; XmNheight = 211; XmNborderWidth = 1; XmNdialogTitle = compound_string("Midas - File Manager"); XmNresizePolicy = XmRESIZE_NONE; }; controls { XmMenuBar MidasFilesMenu; XmScrolledList { arguments { XmNx = 21; XmNy = 64; XmNwidth = 25; XmNheight = 25; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 0; XmNtopOffset = 0; XmNtopWidget = XmMenuBar MidasFilesMenu; XmNrightOffset = 0; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = 0; XmNbottomAttachment = XmATTACH_FORM; }; callbacks { MrmNcreateCallback = procedures { SendMidas( "midas realize list MidasFiles ."); }; }; }; }; callbacks { MrmNcreateCallback = procedures { SendMidas( "custom create FILELIST ."); }; }; }; MidasFilesMenu: XmMenuBar { arguments { XmNrightOffset = 0; XmNrightAttachment = XmATTACH_FORM; XmNx = 10; XmNwidth = 263; XmNleftOffset = 0; XmNleftAttachment = XmATTACH_FORM; }; callbacks { MrmNcreateCallback = procedures { SendMidas( "custom connect FILELIST \"
\" ."); }; }; }; MidasFilesSelector: XmFileSelectionDialog { arguments { XmNx = 0; XmNy = 7; XmNborderWidth = 1; XmNdialogTitle = compound_string("Midas - Open File"); XmNpattern = compound_string("*.uid"); }; callbacks { XmNcancelCallback = procedures { SendMidas( "Midas PopDown ."); }; MrmNcreateCallback = procedures { SendMidas( "Midas PopDown ..Help"); }; }; }; MidasCallbackManager: XmFormDialog { arguments { XmNwidth = 377; XmNheight = 455; XmNborderWidth = 1; XmNdialogTitle = compound_string("Midas - Callback Manager"); XmNresizePolicy = XmRESIZE_NONE; XmNautoUnmanage = false; }; controls { XmLabelGadget MidasCallbackManagerLabel; XmPanedWindow { arguments { XmNx = 149; XmNy = 13; XmNwidth = 98; XmNheight = 151; XmNborderWidth = 1; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 4; XmNtopOffset = 54; XmNrightOffset = 6; XmNrightAttachment = XmATTACH_FORM; XmNtopWidget = XmLabelGadget MidasCallbackManagerLabel; XmNbottomOffset = 6; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmPushButtonGadget MidasCallbackManagerCancel; }; controls { XmScrolledList MidasCallbackManagerList; XmForm { arguments { XmNx = 4; XmNy = 134; XmNwidth = 25; XmNheight = 122; XmNborderWidth = 1; }; controls { XmLabelGadget MidasCallbackManagerLabel2; XmScrolledText MidasCallbackManagerText; }; }; }; }; XmPushButtonGadget MidasCallbackManagerCancel; XmPushButtonGadget MidasCallbackManagerApply; XmPushButtonGadget MidasCallbackManagerSave; XmLabelGadget MidasCallbackManagerClassLabel; XmText MidasCallbackManagerClassText; XmText MidasCallbackManagerWidgetText; }; }; MidasCallbackManagerLabel: XmLabelGadget { arguments { XmNx = 15; XmNy = 12; XmNlabelString = compound_string("Widget"); XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 15; XmNtopOffset = 18; }; }; MidasCallbackManagerList: XmScrolledList { arguments { XmNx = 18; XmNy = 12; XmNwidth = 25; XmNheight = 80; }; callbacks { MrmNcreateCallback = procedures { SendMidas( "Midas Realize List CallbackList ."); }; }; }; MidasCallbackManagerText: XmScrolledText { arguments { XmNx = 186; XmNy = 32; XmNwidth = 125; XmNheight = 83; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 1; XmNtopOffset = 2; XmNrightOffset = 4; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = 2; XmNbottomAttachment = XmATTACH_FORM; XmNtopWidget = XmLabelGadget MidasCallbackManagerLabel2; XmNeditMode = XmMULTI_LINE_EDIT; }; }; MidasErrorBox: XmErrorDialog { arguments { XmNmessageString = compound_string("Error Dialog Label"); XmNx = 43; XmNy = 62; XmNborderWidth = 1; XmNwidth = 418; XmNheight = 188; XmNdialogStyle = XmDIALOG_FULL_APPLICATION_MODAL; XmNdialogTitle = compound_string("Midas Error Message"); XmNokLabelString = compound_string("Acknowleged"); }; callbacks { MrmNcreateCallback = procedures { SendMidas( "Midas PopDown ..Help\nMIdas PopDown ..Cancel"); }; }; }; MidasResourceManager: XmFormDialog { arguments { XmNx = 66; XmNy = 115; XmNwidth = 368; XmNheight = 288; XmNborderWidth = 1; XmNresizePolicy = XmRESIZE_NONE; XmNautoUnmanage = false; XmNdialogTitle = compound_string("Midas - Resource Manager"); XmNdefaultButton = XmPushButtonGadget Apply; }; controls { XmLabelGadget Label; XmLabelGadget Class; XmText NameText; XmText ClassText; XmText Text; XmLabelGadget ValueLabel; XmPushButtonGadget Cancel; XmPushButtonGadget Apply; XmScrolledList List; XmPushButtonGadget Save; }; }; List: XmScrolledList { arguments { XmNx = 20; XmNy = 87; XmNwidth = 324; XmNheight = 87; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 20; XmNtopOffset = 8; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomOffset = 0; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 20; XmNbottomWidget = XmLabelGadget ValueLabel; XmNtopWidget = XmText ClassText; }; callbacks { MrmNcreateCallback = procedures { SendMidas( "Midas Realize List ResourceList ."); }; }; }; Label: XmLabelGadget { arguments { XmNx = 18; XmNy = 6; XmNlabelString = compound_string("Widget"); XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 7; XmNtopOffset = 13; }; }; ValueLabel: XmLabelGadget { arguments { XmNx = 18; XmNy = 203; XmNlabelString = compound_string("Resource Value"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 18; XmNtopOffset = 0; XmNbottomOffset = 0; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmText Text; }; }; Text: XmText { arguments { XmNx = 20; XmNy = 216; XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 20; XmNtopOffset = 0; XmNrightOffset = 21; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = 6; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmPushButtonGadget Apply; }; }; Cancel: XmPushButtonGadget { arguments { XmNx = 242; XmNy = 261; XmNlabelString = compound_string("Dismiss"); XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 0; XmNtopWidget = XmPushButtonGadget Apply; XmNrightOffset = 41; XmNrightAttachment = XmATTACH_FORM; }; callbacks { XmNactivateCallback = procedures { SendMidas( "Midas Popdown .^"); }; }; }; Apply: XmPushButtonGadget { arguments { XmNx = 55; XmNy = 260; XmNlabelString = compound_string("Apply"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_POSITION; XmNleftOffset = 92; XmNtopOffset = 0; XmNbottomOffset = 2; XmNbottomAttachment = XmATTACH_FORM; XmNleftPosition = 16; }; callbacks { MrmNcreateCallback = procedures { SendMidas( "Midas Center Horizontal . 50"); }; }; }; MidasIngotManager: XmFormDialog { arguments { XmNx = 98; XmNy = 143; XmNwidth = 359; XmNheight = 478; XmNborderWidth = 1; XmNresizePolicy = XmRESIZE_NONE; XmNdialogTitle = compound_string("Midas - Ingot Manager"); }; controls { XmPanedWindow MidasIngotManagerPanes; XmLabelGadget MidasIngotManagerLabel; XmPushButtonGadget MidasIngotManagerDismiss; XmLabelGadget MidasIngotManagerClassLabel; XmText MidasIngotManagerNameText; XmText MidasIngotManagerClassText; XmPushButtonGadget MidasIngotManagerCreateNew; }; }; MidasCallbackManagerLabel2: XmLabelGadget { arguments { XmNx = 13; XmNy = 8; XmNlabelString = compound_string("Callback Command"); XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 13; XmNtopOffset = 8; }; }; MidasCallbackManagerCancel: XmPushButtonGadget { arguments { XmNx = 42; XmNy = 361; XmNlabelString = compound_string("Dismiss"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 185; XmNtopOffset = 0; XmNbottomOffset = 2; XmNbottomAttachment = XmATTACH_FORM; XmNrightOffset = 0; XmNrightAttachment = XmATTACH_NONE; XmNwidth = 73; }; callbacks { MrmNcreateCallback = procedures { SendMidas( "Midas Center Horizontal . 75"); }; }; }; MidasCallbackManagerApply: XmPushButtonGadget { arguments { XmNx = 168; XmNy = 360; XmNlabelString = compound_string("Apply"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 27; XmNtopOffset = 0; XmNbottomOffset = 2; XmNbottomAttachment = XmATTACH_FORM; }; callbacks { MrmNcreateCallback = procedures { SendMidas( "Midas Center Horizontal . 50"); }; }; }; MidasCallbackManagerSave: XmPushButtonGadget { arguments { XmNx = 103; XmNy = 358; XmNlabelString = compound_string("Save"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 102; XmNtopOffset = 0; XmNbottomOffset = 2; XmNbottomAttachment = XmATTACH_FORM; }; callbacks { MrmNcreateCallback = procedures { SendMidas( "Midas Center Horizontal . 25"); }; }; }; MidasExitDialog: XmWarningDialog { arguments { XmNmessageString = compound_string("Saved resources have not been stored.",separate=true) & compound_string("Store before exiting?"); XmNx = 36; XmNy = 220; XmNborderWidth = 1; XmNcancelLabelString = compound_string("No"); XmNokLabelString = compound_string("Yes"); XmNhelpLabelString = compound_string("Cancel"); XmNdialogStyle = XmDIALOG_FULL_APPLICATION_MODAL; XmNmessageAlignment = XmALIGNMENT_CENTER; XmNdialogTitle = compound_string("Confirmation Needed..."); }; callbacks { XmNcancelCallback = procedures { midas_exit(0); }; XmNhelpCallback = procedures { midas_exit(2); }; XmNokCallback = procedures { midas_exit(1); }; }; }; MidasIngotManagerPanes: XmPanedWindow { arguments { XmNx = 46; XmNy = 78; XmNwidth = 25; XmNheight = 25; XmNborderWidth = 1; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 6; XmNtopOffset = 8; XmNrightOffset = 6; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = 3; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmPushButtonGadget MidasIngotManagerDismiss; XmNtopWidget = XmText MidasIngotManagerClassText; }; controls { XmScrolledList MidasIngotManagerList; XmForm { arguments { XmNx = 13; XmNy = 21; XmNwidth = 25; XmNheight = 33; XmNborderWidth = 1; }; controls { XmLabelGadget MidasIngotManagerValueLabel; XmText MidasIngotManagerValueText; XmPushButtonGadget MidasIngotManagerValueApply; XmText MidasIngotManagerCallbackText; XmLabelGadget MidasIngotManagerCallbackLabel; XmPushButtonGadget MidasIngotManagerCallbackApply; XmPushButtonGadget MidasIngotManagerCallbackSave; XmText MidasIngotValueOwnerText; XmLabelGadget MidasIngotValueOwnerLabel; XmToggleButtonGadget MidasIngotManagerCallbackOption; }; }; }; }; MidasIngotManagerList: XmScrolledList { arguments { XmNx = 37; XmNy = 9; XmNwidth = 16; XmNheight = 74; }; callbacks { MrmNcreateCallback = procedures { SendMidas( "Midas Realize List IngotList ."); }; }; }; MidasIngotManagerDismiss: XmPushButtonGadget { arguments { XmNx = 11; XmNy = 199; XmNlabelString = compound_string("Dismiss"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 11; XmNtopOffset = 0; XmNbottomOffset = 6; XmNbottomAttachment = XmATTACH_FORM; }; }; MidasIngotManagerLabel: XmLabelGadget { arguments { XmNx = 8; XmNy = 10; XmNlabelString = compound_string("Widget"); XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 8; XmNtopOffset = 10; }; }; MidasIngotManagerValueLabel: XmLabelGadget { arguments { XmNx = 10; XmNy = 5; XmNlabelString = compound_string("Value"); XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 10; XmNtopOffset = 6; }; }; MidasIngotManagerValueApply: XmPushButtonGadget { arguments { XmNx = 198; XmNy = 5; XmNlabelString = compound_string("Apply"); XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 4; XmNrightOffset = 3; XmNrightAttachment = XmATTACH_FORM; }; }; MidasIngotManagerValueText: XmText { arguments { XmNx = 69; XmNy = 6; XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 6; XmNtopOffset = 2; XmNleftWidget = XmLabelGadget MidasIngotManagerValueLabel; XmNrightOffset = 4; XmNrightAttachment = XmATTACH_WIDGET; XmNrightWidget = XmPushButtonGadget MidasIngotManagerValueApply; }; }; MidasIngotManagerCallbackApply: XmPushButtonGadget { arguments { XmNx = 14; XmNy = 150; XmNlabelString = compound_string("Apply"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 14; XmNtopOffset = 0; XmNbottomOffset = 2; XmNbottomAttachment = XmATTACH_FORM; }; }; MidasIngotManagerCallbackSave: XmPushButtonGadget { arguments { XmNx = 255; XmNy = 145; XmNlabelString = compound_string("Save"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 0; XmNbottomOffset = 2; XmNbottomAttachment = XmATTACH_FORM; XmNrightOffset = 19; XmNrightAttachment = XmATTACH_FORM; }; }; MidasIngotManagerCallbackLabel: XmLabelGadget { arguments { XmNx = 11; XmNy = 83; XmNlabelString = compound_string("Callback"); XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 7; XmNtopOffset = 7; XmNtopWidget = XmText MidasIngotValueOwnerText; }; }; MidasIngotManagerCallbackText: XmText { arguments { XmNx = 6; XmNy = 60; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 3; XmNtopOffset = 1; XmNrightOffset = 9; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = 0; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmToggleButtonGadget MidasIngotManagerCallbackOption; XmNtopWidget = XmLabelGadget MidasIngotManagerCallbackLabel; XmNeditMode = XmMULTI_LINE_EDIT; }; }; Save: XmPushButtonGadget { arguments { XmNx = 151; XmNy = 247; XmNlabelString = compound_string("Save"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 55; XmNtopOffset = 0; XmNbottomOffset = 2; XmNbottomAttachment = XmATTACH_FORM; }; }; WidgetList: XmMainWindow { arguments { XmNborderWidth = 1; XmNmessageWindow = XmRowColumn WidgetListButtons; XmNscrollingPolicy = XmAUTOMATIC; }; controls { XmMenuBar WidgetListMenu; XmRowColumn WidgetListButtons; }; }; WidgetListMenu: XmMenuBar { }; WidgetListButtons: XmRowColumn { arguments { XmNborderWidth = 1; XmNwidth = 214; XmNheight = 113; XmNy = 97; XmNorientation = XmHORIZONTAL; XmNresizeWidth = false; }; }; MidasExpressionEvaluator: XmFormDialog { arguments { XmNx = 19; XmNy = 116; XmNborderWidth = 1; XmNresizePolicy = XmRESIZE_ANY; XmNdialogTitle = compound_string("Midas: Expression Evaluator"); XmNautoUnmanage = false; XmNdefaultButton = XmPushButtonGadget MidasEvalEvaluateButton; XmNmarginHeight = 10; }; controls { XmLabelGadget MidasEvalExpressionLabel; XmText MidasEvalExpressionText; XmLabelGadget MidasEvalResultLabel; XmText MidasEvalResultText; XmPushButtonGadget MidasEvalDismissButton; XmPushButtonGadget MidasEvalEvaluateButton; XmPushButtonGadget MidasEvalClearButton; XmLabelGadget MidasEvalTypeLabel; XmText MidasEvalTypeText; }; }; MidasEvalExpressionLabel: XmLabelGadget { arguments { XmNx = 13; XmNy = 28; XmNlabelString = compound_string("Expression"); XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 13; XmNtopOffset = 8; }; }; MidasEvalExpressionText: XmText { arguments { XmNx = 18; XmNy = 46; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 14; XmNtopOffset = 3; XmNrightOffset = 8; XmNrightAttachment = XmATTACH_WIDGET; XmNtopWidget = XmPushButtonGadget MidasEvalEvaluateButton; XmNrightWidget = XmPushButtonGadget MidasEvalEvaluateButton; XmNrows = 1; }; }; MidasEvalResultText: XmText { arguments { XmNx = 19; XmNy = 113; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 14; XmNtopOffset = -4; XmNrightOffset = 16; XmNrightAttachment = XmATTACH_FORM; XmNleftWidget = XmLabelGadget MidasEvalResultLabel; XmNtopWidget = XmLabelGadget MidasEvalResultLabel; XmNrows = 1; XmNeditable = false; }; }; MidasEvalResultLabel: XmLabelGadget { arguments { XmNx = 17; XmNy = 80; XmNlabelString = compound_string("Result"); XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 17; XmNtopOffset = 15; XmNtopWidget = XmText MidasEvalExpressionText; }; }; MidasEvalDismissButton: XmPushButtonGadget { arguments { XmNx = 22; XmNy = 174; XmNlabelString = compound_string("Dismiss"); XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 22; XmNtopOffset = 5; XmNtopWidget = XmLabelGadget MidasEvalTypeLabel; }; }; MidasEvalEvaluateButton: XmPushButtonGadget { arguments { XmNx = 271; XmNy = 39; XmNlabelString = compound_string("Evaluate"); XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = -1; XmNrightOffset = 11; XmNrightAttachment = XmATTACH_FORM; XmNtopWidget = XmLabelGadget MidasEvalExpressionLabel; }; }; MidasEvalClearButton: XmPushButtonGadget { arguments { XmNx = 291; XmNy = 137; XmNlabelString = compound_string("Clear"); XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 0; XmNtopWidget = XmPushButtonGadget MidasEvalDismissButton; XmNrightOffset = 11; XmNrightAttachment = XmATTACH_FORM; }; }; MidasStartup: XmFormDialog { arguments { XmNx = 48; XmNy = 97; XmNwidth = 425; XmNheight = 225; XmNborderWidth = 1; XmNdialogTitle = compound_string("Midas Startup"); XmNautoUnmanage = false; XmNresizePolicy = XmRESIZE_GROW; }; controls { XmLabelGadget MidasStartupLabel; XmText MidasStartupText; XmPushButtonGadget MidasStartupSave; XmPushButtonGadget MidasStartupDismiss; }; }; MidasStartupLabel: XmLabelGadget { arguments { XmNx = 9; XmNy = 19; XmNlabelString = compound_string("Commands to be executed at startup"); XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 15; XmNtopOffset = 9; }; }; MidasStartupSave: XmPushButtonGadget { arguments { XmNx = 19; XmNy = 189; XmNlabelString = compound_string("Save"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 19; XmNtopOffset = 0; XmNbottomOffset = 7; XmNbottomAttachment = XmATTACH_FORM; }; }; MidasStartupDismiss: XmPushButtonGadget { arguments { XmNx = 235; XmNy = 192; XmNlabelString = compound_string("Dismiss"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 0; XmNrightOffset = 14; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = -1; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmPushButtonGadget MidasStartupSave; }; }; MidasStartupText: XmText { arguments { XmNx = 13; XmNy = 33; XmNwidth = 269; XmNheight = 142; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 13; XmNtopOffset = 3; XmNrightOffset = 15; XmNrightAttachment = XmATTACH_FORM; XmNtopWidget = XmLabelGadget MidasStartupLabel; XmNbottomOffset = 5; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmPushButtonGadget MidasStartupSave; XmNeditMode = XmMULTI_LINE_EDIT; }; }; MidasInfo: XmFormDialog { arguments { XmNx = 150; XmNy = 96; XmNborderWidth = 1; XmNresizePolicy = XmRESIZE_ANY; XmNwidth = 336; }; controls { XmLabelGadget MidasInfoLabel; XmText MidasInfoClassText; XmLabelGadget MidasInfoNameLabel; XmLabelGadget MidasInfoClassLabel; XmText MidasInfoNameText; XmRowColumn MidasInfoButtonBox; XmArrowButtonGadget MidasInfoUpButton; }; }; MidasInfoLabel: XmLabelGadget { arguments { XmNx = 13; XmNy = 17; XmNlabelString = compound_string("Selected Widget"); XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 13; XmNtopOffset = 6; XmNalignment = XmALIGNMENT_CENTER; XmNrightOffset = 9; XmNrightAttachment = XmATTACH_FORM; }; }; MidasInfoNameLabel: XmLabelGadget { arguments { XmNx = 15; XmNy = 45; XmNlabelString = compound_string("Name:"); XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 15; XmNtopOffset = 6; XmNheight = 27; XmNtopWidget = XmLabelGadget MidasInfoLabel; }; }; MidasInfoClassLabel: XmLabelGadget { arguments { XmNx = 16; XmNy = 98; XmNlabelString = compound_string("Class:"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 16; XmNtopOffset = 0; XmNbottomOffset = 5; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmText MidasInfoClassText; XmNheight = 31; }; }; MidasInfoNameText: XmText { arguments { XmNx = 65; XmNy = 26; XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 7; XmNtopOffset = 0; XmNleftWidget = XmLabelGadget MidasInfoNameLabel; XmNrightOffset = 2; XmNrightAttachment = XmATTACH_WIDGET; XmNeditable = false; XmNbottomOffset = LabelTextOffset; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmLabelGadget MidasInfoNameLabel; XmNrightWidget = XmArrowButtonGadget MidasInfoUpButton; }; }; MidasInfoClassText: XmText { arguments { XmNx = 65; XmNy = 93; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftOffset = -1; XmNtopOffset = 8; XmNrightOffset = 0; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNeditable = false; XmNtopWidget = XmText MidasInfoNameText; XmNleftWidget = XmText MidasInfoNameText; XmNrightWidget = XmText MidasInfoNameText; }; }; MidasInfoButtonBox: XmRowColumn { arguments { XmNx = 7; XmNy = 159; XmNborderWidth = 1; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 0; XmNtopOffset = 9; XmNrightOffset = 0; XmNrightAttachment = XmATTACH_FORM; XmNtopWidget = XmText MidasInfoClassText; }; }; MidasCallbackManagerClassLabel: XmLabelGadget { arguments { XmNx = 14; XmNy = 41; XmNlabelString = compound_string("Class"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 0; XmNbottomOffset = 6; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmText MidasCallbackManagerClassText; XmNrightOffset = 4; XmNrightAttachment = XmATTACH_WIDGET; XmNrightWidget = XmText MidasCallbackManagerClassText; }; }; MidasCallbackManagerWidgetText: XmText { arguments { XmNx = 73; XmNy = 9; XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 2; XmNtopOffset = 0; XmNleftWidget = XmLabelGadget MidasCallbackManagerLabel; XmNrightOffset = 5; XmNrightAttachment = XmATTACH_FORM; XmNeditable = false; XmNbottomOffset = -6; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmLabelGadget MidasCallbackManagerLabel; }; }; MidasCallbackManagerClassText: XmText { arguments { XmNx = 66; XmNy = 9; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftOffset = 0; XmNtopOffset = 7; XmNrightOffset = 5; XmNrightAttachment = XmATTACH_FORM; XmNeditable = false; XmNtopWidget = XmText MidasCallbackManagerWidgetText; XmNleftWidget = XmText MidasCallbackManagerWidgetText; }; }; Class: XmLabelGadget { arguments { XmNx = 15; XmNy = 38; XmNlabelString = compound_string("Class"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 0; XmNrightOffset = 4; XmNrightAttachment = XmATTACH_WIDGET; XmNrightWidget = XmText ClassText; XmNbottomOffset = 7; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmText ClassText; }; }; NameText: XmText { arguments { XmNx = 85; XmNy = 5; XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 5; XmNtopOffset = 0; XmNeditable = false; XmNleftWidget = XmLabelGadget Label; XmNbottomOffset = -7; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmLabelGadget Label; XmNrightOffset = 9; XmNrightAttachment = XmATTACH_FORM; }; }; ClassText: XmText { arguments { XmNx = 86; XmNy = 49; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftOffset = -1; XmNtopOffset = 5; XmNeditable = false; XmNtopWidget = XmText NameText; XmNleftWidget = XmText NameText; XmNrightOffset = 9; XmNrightAttachment = XmATTACH_FORM; }; }; MidasIngotManagerClassLabel: XmLabelGadget { arguments { XmNx = 10; XmNy = 41; XmNlabelString = compound_string("Class"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 0; XmNrightOffset = 8; XmNrightAttachment = XmATTACH_WIDGET; XmNrightWidget = XmText MidasIngotManagerClassText; XmNbottomOffset = 6; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmText MidasIngotManagerClassText; }; }; MidasIngotManagerClassText: XmText { arguments { XmNx = 68; XmNy = 55; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 66; XmNtopOffset = 3; XmNrightOffset = 7; XmNrightAttachment = XmATTACH_FORM; XmNeditable = false; XmNtopWidget = XmText MidasIngotManagerNameText; }; }; MidasIngotManagerNameText: XmText { arguments { XmNx = 66; XmNy = 11; XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 9; XmNtopOffset = 0; XmNrightOffset = 7; XmNrightAttachment = XmATTACH_FORM; XmNeditable = false; XmNbottomOffset = -8; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmLabelGadget MidasIngotManagerLabel; XmNleftWidget = XmLabelGadget MidasIngotManagerLabel; }; }; MidasIngotValueOwnerText: XmText { arguments { XmNx = 89; XmNy = 51; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftOffset = 0; XmNtopOffset = 4; XmNleftWidget = XmText MidasIngotManagerValueText; XmNrightOffset = 0; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = XmText MidasIngotManagerValueText; XmNtopWidget = XmText MidasIngotManagerValueText; XmNeditable = false; }; }; MidasIngotValueOwnerLabel: XmLabelGadget { arguments { XmNx = 5; XmNy = 45; XmNlabelString = compound_string("Owner"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 0; XmNheight = 22; XmNbottomOffset = 6; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmText MidasIngotValueOwnerText; XmNrightOffset = 5; XmNrightAttachment = XmATTACH_WIDGET; XmNrightWidget = XmText MidasIngotValueOwnerText; }; }; MidasIngotManagerCreateNew: XmPushButtonGadget { arguments { XmNx = 257; XmNy = 366; XmNlabelString = compound_string("Create New Ingot..."); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 0; XmNbottomOffset = 6; XmNbottomAttachment = XmATTACH_FORM; XmNrightOffset = 9; XmNrightAttachment = XmATTACH_FORM; }; }; MidasCreateNewIngot: XmFormDialog { arguments { XmNx = 99; XmNy = 665; XmNwidth = 338; XmNheight = 139; XmNborderWidth = 1; XmNautoUnmanage = false; XmNdefaultButton = XmPushButtonGadget MidasCreateIngotOk; }; controls { XmLabelGadget MidasCreateIngotNameLabel; XmLabelGadget MidasCreateIngotOwnerLabel; XmText MidasCreateIngotOwnerText; XmArrowButtonGadget MidasCreateIngotUp; XmText MidasCreateIngotNameText; XmPushButtonGadget MidasCreateIngotOk; XmPushButtonGadget MidasCreateIngotCancel; }; }; MidasCreateIngotNameLabel: XmLabelGadget { arguments { XmNx = 13; XmNy = 18; XmNlabelString = compound_string("Name"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 0; XmNrightOffset = 5; XmNrightAttachment = XmATTACH_WIDGET; XmNrightWidget = XmText MidasCreateIngotNameText; XmNbottomOffset = 9; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmText MidasCreateIngotNameText; }; }; MidasCreateIngotOwnerLabel: XmLabelGadget { arguments { XmNx = 17; XmNy = 154; XmNlabelString = compound_string("Owner"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 6; XmNtopOffset = 0; XmNrightOffset = 0; XmNrightAttachment = XmATTACH_NONE; XmNbottomOffset = 9; XmNbottomAttachment = XmATTACH_WIDGET; XmNheight = 28; XmNbottomWidget = XmPushButtonGadget MidasCreateIngotOk; }; }; MidasCreateIngotUp: XmArrowButtonGadget { arguments { XmNx = 299; XmNy = 76; XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 0; XmNrightOffset = 10; XmNrightAttachment = XmATTACH_FORM; XmNbottomOffset = -1; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmLabelGadget MidasCreateIngotOwnerLabel; }; }; MidasCreateIngotNameText: XmText { arguments { XmNx = 102; XmNy = 11; XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftOffset = -1; XmNtopOffset = 0; XmNbottomOffset = 7; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmText MidasCreateIngotOwnerText; XmNleftWidget = XmText MidasCreateIngotOwnerText; XmNwidth = 176; XmNrightOffset = 0; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = XmText MidasCreateIngotOwnerText; }; }; MidasCreateIngotOwnerText: XmText { arguments { XmNx = 76; XmNy = 100; XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 6; XmNtopOffset = 0; XmNbottomOffset = -5; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightOffset = 6; XmNrightAttachment = XmATTACH_WIDGET; XmNrightWidget = XmArrowButtonGadget MidasCreateIngotUp; XmNbottomWidget = XmLabelGadget MidasCreateIngotOwnerLabel; XmNleftWidget = XmLabelGadget MidasCreateIngotOwnerLabel; }; }; MidasCreateIngotOk: XmPushButtonGadget { arguments { XmNx = 7; XmNy = 91; XmNlabelString = compound_string("Ok"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 29; XmNtopOffset = 0; XmNbottomOffset = 3; XmNbottomAttachment = XmATTACH_FORM; }; }; MidasCreateIngotCancel: XmPushButtonGadget { arguments { XmNx = 220; XmNy = 94; XmNlabelString = compound_string("Cancel"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 0; XmNbottomOffset = 0; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmPushButtonGadget MidasCreateIngotOk; XmNrightOffset = 8; XmNrightAttachment = XmATTACH_FORM; }; }; MidasEvalTypeText: XmText { arguments { XmNx = 155; XmNy = 83; XmNtopAttachment = XmATTACH_WIDGET; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftOffset = 0; XmNtopOffset = 4; XmNrightOffset = 16; XmNrightAttachment = XmATTACH_FORM; XmNleftWidget = XmText MidasEvalResultText; XmNrows = 1; XmNeditable = false; XmNtopWidget = XmText MidasEvalResultText; }; }; MidasEvalTypeLabel: XmLabelGadget { arguments { XmNx = 17; XmNy = 132; XmNlabelString = compound_string("Result",separate=true) & compound_string("Type"); XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 17; XmNtopOffset = 0; XmNbottomOffset = 0; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = XmText MidasEvalTypeText; }; }; MidasInfoUpButton: XmArrowButtonGadget { arguments { XmNx = 301; XmNy = 33; XmNtopAttachment = XmATTACH_NONE; XmNleftAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 0; XmNwidth = 34; XmNrightOffset = 1; XmNrightAttachment = XmATTACH_FORM; XmNheight = 29; XmNbottomOffset = -28; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmLabelGadget MidasInfoNameLabel; }; }; MidasIngotManagerCallbackOption: XmToggleButtonGadget { arguments { XmNlabelString = compound_string("Invoke Callback When Parent Created"); XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_NONE; XmNleftOffset = 14; XmNtopOffset = 2; XmNy = 176; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmPushButtonGadget MidasIngotManagerCallbackApply; XmNbottomOffset = 1; }; }; MidasHelp: XmMainWindow { arguments { XmNx = 150; XmNy = 104; XmNborderWidth = 1; XmNwidth = 454; XmNheight = 418; XmNmessageWindow = XmForm MidasHelpBulletinBoard; XmNscrollingPolicy = XmAUTOMATIC; }; controls { XmForm MidasHelpBulletinBoard; unmanaged XmPromptDialog MidasHelpSearchDialog; }; }; MidasHelpBulletinBoard: XmForm { arguments { XmNborderWidth = 1; XmNresizePolicy = XmRESIZE_GROW; XmNmarginHeight = 10; }; controls { XmPushButtonGadget MidasHelpGoBack; XmPushButtonGadget MidasHelpSearch; XmPushButtonGadget MidasHelpDismiss; }; }; MidasHelpGoBack: XmPushButtonGadget { arguments { XmNx = 11; XmNy = 2; XmNlabelString = compound_string("Go Back"); XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 11; XmNbottomAttachment = XmATTACH_FORM; XmNbottomOffset = 0; }; }; MidasHelpDismiss: XmPushButtonGadget { arguments { XmNlabelString = compound_string("Dismiss"); XmNleftAttachment = XmATTACH_NONE; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftOffset = 367; XmNtopOffset = 0; XmNx = 367; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 12; XmNtopWidget = XmPushButtonGadget MidasHelpGoBack; }; }; MidasHelpSearch: XmPushButtonGadget { arguments { XmNlabelString = compound_string("Search..."); XmNleftAttachment = XmATTACH_WIDGET; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftOffset = 19; XmNtopOffset = 0; XmNtopWidget = XmPushButtonGadget MidasHelpGoBack; XmNleftWidget = XmPushButtonGadget MidasHelpGoBack; }; }; MidasHelpSearchDialog: XmPromptDialog { arguments { XmNborderWidth = 1; }; }; Verb_Is_Toggle: XmToggleButtonGadget { arguments { XmNlabelString = compound_string("Is Toggle Button"); XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopAttachment = XmATTACH_NONE; XmNleftOffset = 0; XmNtopOffset = 246; XmNy = 246; XmNleftWidget = XmText Verb_Text; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmText Verb_Text; XmNbottomOffset = 1; }; callbacks { MrmNcreateCallback = procedures { CustomCreate(22); }; }; }; end module; { XmLabelGadget MidasCreateIngotNameLabel; XmLabelGadget MidasCreateIngotOwnerLabel; XmText MidasCreateIngotOwnerText; XmArrowButtonGadget MidasCreateIngotUp; XmText MidasCreateIngotNameText; XmPushButtonGadget MidasCreateIngotOk; midaswww-1.0/midaswww.uil100644 002113 001774 00000105451 05302057364 015426 0ustar00tonyjey000000 000000 module WWW names = case_sensitive object WWWMain: XmMainWindow { arguments { XmNx = 45; XmNy = 27; XmNborderWidth = 1; XmNwidth = 503; XmNheight = 647; XmNmenuBar = XmMenuBar WWWMenu; XmNcommandWindowLocation = XmCOMMAND_BELOW_WORKSPACE; XmNmessageWindow = XmForm WWWKey; }; controls { XmMenuBar WWWMenu; unmanaged XmFormDialog WWWDocInfo; unmanaged XmFormDialog WWWDocOpen; unmanaged XmFormDialog WWWSave; unmanaged XmFormDialog WWWHistory; unmanaged XmFormDialog WWWMail; unmanaged XmFormDialog WWWParameters; XmForm WWWKey; XmForm { arguments { XmNwidth = 25; XmNheight = 25; XmNborderWidth = 1; }; }; }; }; WWWMenu: XmMenuBar { }; WWWCommand: XmRowColumn { arguments { XmNborderWidth = 1; XmNorientation = XmVERTICAL; XmNadjustLast = true; XmNpacking = XmPACK_COLUMN; XmNnumColumns = 2; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 0; XmNrightAttachment = XmATTACH_WIDGET; XmNrightOffset = 9; XmNrightWidget = XmDrawnButton WWWHome; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 0; }; controls { XmLabelGadget { arguments { XmNx = 16; XmNy = 6; XmNlabelString = compound_string("Keyword:"); }; }; XmTextField WWWCommandText; }; }; WWWCommandText: XmTextField { arguments { XmNx = 46; XmNy = 22; XmNwidth = 25; XmNheight = 25; XmNcolumns = 1; }; }; WWWDocInfo: XmFormDialog { arguments { XmNx = 62; XmNy = 812; XmNborderWidth = 1; }; controls { XmRowColumn VUITaaaaa; XmRowColumn VUITaaaab; unmanaged XmScrolledWindow SourceTextSW; }; }; VUITaaaaa: XmRowColumn { arguments { XmNborderWidth = 1; XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_FORM; XmNleftOffset = 10; XmNtopOffset = 7; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 11; XmNnumColumns = 2; XmNpacking = XmPACK_COLUMN; XmNorientation = XmVERTICAL; XmNentryAlignment = XmALIGNMENT_END; }; controls { XmLabelGadget { arguments { XmNx = 17; XmNy = 4; XmNlabelString = compound_string("Title:"); XmNalignment = XmALIGNMENT_END; }; }; XmLabelGadget { arguments { XmNx = 13; XmNy = 24; XmNlabelString = compound_string("Document:"); XmNalignment = XmALIGNMENT_END; }; }; XmTextField WWWDocInfoDocTitleText; XmTextField WWWWDocInfoDocNameText; }; }; VUITaaaab: XmRowColumn { arguments { XmNborderWidth = 1; XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_WIDGET; XmNleftOffset = 9; XmNtopOffset = 11; XmNorientation = XmHORIZONTAL; XmNtopWidget = XmRowColumn VUITaaaaa; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 10; }; controls { XmPushButtonGadget ShowSource; XmPushButtonGadget HideSource; XmPushButtonGadget WWWDocInfoHelp; XmPushButtonGadget WWWDocInfoDismiss; }; }; WWWWDocInfoDocNameText: XmTextField { arguments { XmNx = 8; XmNy = 84; XmNwidth = 25; XmNheight = 25; XmNcolumns = 1; XmNeditable = false; }; }; WWWDocInfoDocTitleText: XmTextField { arguments { XmNx = 7; XmNy = 47; XmNwidth = 25; XmNheight = 25; XmNcolumns = 1; XmNeditable = false; }; }; ShowSource: XmPushButtonGadget { arguments { XmNx = 9; XmNy = 8; XmNlabelString = compound_string("Show Source Document"); }; }; HideSource: XmPushButtonGadget { arguments { XmNx = 62; XmNy = 6; XmNlabelString = compound_string("Hide Source Document"); }; }; SourceTextSW: XmScrolledWindow { arguments { XmNwidth = 25; XmNheight = 25; XmNborderWidth = 1; XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_WIDGET; XmNleftOffset = 8; XmNtopOffset = 9; XmNtopWidget = XmRowColumn VUITaaaab; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 6; XmNbottomAttachment = XmATTACH_FORM; XmNbottomOffset = 5; XmNscrollingPolicy = XmAUTOMATIC; }; controls { }; }; WWWDocInfoDismiss: XmPushButtonGadget { arguments { XmNx = 405; XmNy = 9; XmNlabelString = compound_string("Dismiss"); }; }; WWWDocOpen: XmFormDialog { arguments { XmNx = 40; XmNy = 725; XmNwidth = 503; XmNborderWidth = 1; XmNresizePolicy = XmRESIZE_ANY; XmNdefaultButton = XmPushButtonGadget WWWDocOpenOk; }; controls { XmRowColumn VUITaaaac; XmPushButtonGadget WWWDocOpenOk; XmPushButtonGadget WWWDocInfoCancel; XmPushButtonGadget WWWOpenHelp; }; }; VUITaaaac: XmRowColumn { arguments { XmNborderWidth = 1; XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_FORM; XmNleftOffset = 10; XmNtopOffset = 12; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 9; XmNorientation = XmVERTICAL; XmNpacking = XmPACK_COLUMN; XmNnumColumns = 2; }; controls { XmLabelGadget { arguments { XmNx = 12; XmNy = 5; XmNlabelString = compound_string("Document Address:"); }; }; XmTextField WWWDocOpenText; }; }; WWWDocOpenOk: XmPushButtonGadget { arguments { XmNlabelString = compound_string("Ok"); XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_WIDGET; XmNleftOffset = 12; XmNtopOffset = 10; XmNtopWidget = XmRowColumn VUITaaaac; }; }; WWWDocInfoCancel: XmPushButtonGadget { arguments { XmNlabelString = compound_string("Cancel"); XmNleftAttachment = XmATTACH_NONE; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftOffset = 441; XmNtopOffset = 0; XmNtopWidget = XmPushButtonGadget WWWDocOpenOk; XmNx = 441; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 6; }; }; WWWDocOpenText: XmTextField { arguments { XmNx = 56; XmNy = 5; XmNwidth = 25; XmNheight = 25; XmNcolumns = 1; }; }; WWWSave: XmFormDialog { arguments { XmNx = 526; XmNy = 1002; XmNwidth = 435; XmNborderWidth = 1; XmNautoUnmanage = false; XmNdefaultButton = XmPushButtonGadget WWWSaveOk; }; controls { XmRowColumn VUITaaaad; XmPushButtonGadget WWWSaveOk; XmPushButtonGadget WWWSaveCancel; XmOptionMenu VUITaaaae; XmPushButtonGadget WWWSaveHelp; }; }; WWWSaveCancel: XmPushButtonGadget { arguments { XmNlabelString = compound_string("Cancel"); XmNleftAttachment = XmATTACH_NONE; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftOffset = 372; XmNtopOffset = -1+1; XmNx = 372; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 12; XmNtopWidget = XmPushButtonGadget WWWSaveOk; }; }; WWWSaveOk: XmPushButtonGadget { arguments { XmNlabelString = compound_string("OK"); XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_WIDGET; XmNleftOffset = 10; XmNtopOffset = 10; XmNbottomAttachment = XmATTACH_NONE; XmNbottomOffset = 5; XmNy = 159; XmNtopWidget = XmOptionMenu VUITaaaae; }; }; VUITaaaad: XmRowColumn { arguments { XmNborderWidth = 1; XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_FORM; XmNleftOffset = 11; XmNtopOffset = 19; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 14; XmNnumColumns = 2; XmNorientation = XmVERTICAL; XmNpacking = XmPACK_COLUMN; }; controls { XmLabelGadget { arguments { XmNx = 14; XmNy = 2; XmNlabelString = compound_string("Save as:"); }; }; XmTextField WWWSaveText; }; }; VUITaaaae: XmOptionMenu { arguments { XmNborderWidth = 1; XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_WIDGET; XmNleftOffset = 11; XmNtopOffset = 20; XmNtopWidget = XmRowColumn VUITaaaad; XmNlabelString = compound_string("Format"); }; controls { XmPulldownMenu WWWSaveFormatMenu; }; }; WWWSaveText: XmTextField { arguments { XmNx = 81; XmNy = 23; XmNwidth = 25; XmNheight = 25; XmNcolumns = 1; }; }; WWWSaveFormatMenu: XmPulldownMenu { arguments { XmNx = 111; XmNy = 20; XmNborderWidth = 1; }; }; WWWHistory: XmFormDialog { arguments { XmNx = 119; XmNy = 1193; XmNwidth = 485; XmNheight = 229; XmNborderWidth = 1; XmNautoUnmanage = false; XmNresizePolicy = XmRESIZE_NONE; }; controls { XmPushButtonGadget WWWHistoryDismiss; XmRowColumn WWWHistoryButtons; XmPushButtonGadget WWWHistoryHelp; XmScrolledWindow { arguments { XmNwidth = 25; XmNheight = 25; XmNborderWidth = 1; XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_FORM; XmNleftOffset = 11; XmNtopOffset = 11; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 12; XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomWidget = XmRowColumn WWWHistoryButtons; XmNbottomOffset = 6; }; controls { XmList WWWHistoryList; }; }; }; }; WWWHistoryDismiss: XmPushButtonGadget { arguments { XmNlabelString = compound_string("Dismiss"); XmNleftAttachment = XmATTACH_NONE; XmNtopAttachment = XmATTACH_NONE; XmNleftOffset = 279; XmNtopOffset = 158; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 13; XmNx = 279; XmNy = 198; XmNbottomAttachment = XmATTACH_FORM; XmNbottomOffset = 2; }; }; WWWMail: XmFormDialog { arguments { XmNx = 227; XmNy = 972; XmNwidth = 374; XmNborderWidth = 1; XmNautoUnmanage = false; XmNdefaultButton = XmPushButtonGadget WWWMailOk; }; controls { XmRowColumn WWWMailTo; XmPushButtonGadget WWWMailOk; XmOptionMenu WWWMailFormat; XmPushButtonGadget WWWMailDismiss; XmLabelGadget VUITaaaaj; XmPushButtonGadget WWWMailHelp; }; }; WWWMailFormat: XmOptionMenu { arguments { XmNborderWidth = 1; XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_WIDGET; XmNleftOffset = 11; XmNtopOffset = 17; XmNtopWidget = XmRowColumn WWWMailTo; XmNlabelString = compound_string("Format"); }; controls { XmPulldownMenu WWWMailFormatMenu; }; }; WWWMailFormatMenu: XmPulldownMenu { arguments { XmNx = 111; XmNy = 20; XmNborderWidth = 1; }; }; WWWMailTo: XmRowColumn { arguments { XmNborderWidth = 1; XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_WIDGET; XmNleftOffset = 10; XmNtopOffset = 8; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 11; XmNorientation = XmVERTICAL; XmNpacking = XmPACK_COLUMN; XmNnumColumns = 2; XmNtopWidget = XmLabelGadget VUITaaaaj; }; controls { XmLabelGadget { arguments { XmNx = 14; XmNy = 8; XmNlabelString = compound_string("Send to:"); }; }; XmTextField WWWMailToText; }; }; WWWMailOk: XmPushButtonGadget { arguments { XmNlabelString = compound_string("Ok"); XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_WIDGET; XmNleftOffset = 8; XmNtopOffset = 16; XmNy = 127; XmNtopWidget = XmOptionMenu WWWMailFormat; }; }; VUITaaaaj: XmLabelGadget { arguments { XmNlabelString = compound_string("Give e-mail address to send result to",separate=true) & compound_string("(eg TonyJ@Slacvm or me@sscvx1.ssc.gov)"); XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_FORM; XmNleftOffset = 8; XmNtopOffset = 10; XmNalignment = XmALIGNMENT_BEGINNING; }; }; WWWHistoryButtons: XmRowColumn { arguments { XmNborderWidth = 1; XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_NONE; XmNleftOffset = 8; XmNtopOffset = 7; XmNbottomAttachment = XmATTACH_FORM; XmNbottomOffset = 3; XmNy = 196; XmNorientation = XmHORIZONTAL; }; }; WWWParameters: XmFormDialog { arguments { XmNy = 1481; XmNborderWidth = 1; XmNautoUnmanage = false; XmNwidth = 444; }; controls { XmRowColumn VUITaaaak; XmRowColumn WWWParamCache; XmRowColumn { arguments { XmNborderWidth = 1; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopAttachment = XmATTACH_WIDGET; XmNleftOffset = 0; XmNtopOffset = 14; XmNtopWidget = XmRowColumn WWWParamCache; XmNorientation = XmHORIZONTAL; XmNleftWidget = XmRowColumn WWWParamCache; XmNbottomAttachment = XmATTACH_NONE; XmNbottomOffset = 26; XmNheight = 37; }; controls { XmPushButtonGadget WWWParamOk; XmPushButtonGadget WWWParamApply; XmPushButtonGadget WWWParamSave; XmPushButtonGadget WWWParamReset; XmPushButtonGadget WWWParamDismiss; }; }; XmPushButtonGadget WWWParamHelp; }; }; VUITaaaak: XmRowColumn { arguments { XmNborderWidth = 1; XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_FORM; XmNleftOffset = 18; XmNtopOffset = 22; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 22; XmNentryAlignment = XmALIGNMENT_END; XmNnumColumns = 2; XmNorientation = XmVERTICAL; XmNpacking = XmPACK_COLUMN; }; controls { XmLabelGadget { arguments { XmNx = 19; XmNy = 6; XmNlabelString = compound_string("Home Page:"); }; }; XmLabelGadget { arguments { XmNx = 5; XmNy = 25; XmNlabelString = compound_string("Default Gateway:"); }; }; XmTextField WWWParamHome; XmTextField WWWParamGate; }; }; WWWParamOk: XmPushButtonGadget { arguments { XmNlabelString = compound_string("Ok"); XmNx = 11; XmNy = 7; }; }; WWWParamCache: XmRowColumn { arguments { XmNborderWidth = 1; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopAttachment = XmATTACH_WIDGET; XmNleftOffset = -1; XmNtopOffset = 14; XmNtopWidget = XmRowColumn VUITaaaak; XmNleftWidget = XmRowColumn VUITaaaak; }; controls { XmToggleButtonGadget WWWParamCacheEnable; XmScale WWWParamCacheSize; }; }; WWWParamHome: XmTextField { arguments { XmNx = 5; XmNy = 48; XmNwidth = 25; XmNheight = 25; XmNcolumns = 1; }; }; WWWParamGate: XmTextField { arguments { XmNx = 7; XmNy = 86; XmNwidth = 25; XmNheight = 25; XmNcolumns = 1; }; }; WWWParamCacheEnable: XmToggleButtonGadget { arguments { XmNlabelString = compound_string("Enable Document Caching"); XmNx = 5; XmNy = 10; }; }; WWWParamCacheSize: XmScale { arguments { XmNx = 5; XmNy = 31; XmNborderWidth = 1; XmNorientation = XmHORIZONTAL; XmNshowValue = true; XmNtitleString = compound_string("Maximum Cache Size"); XmNmaximum = 20; XmNminimum = 2; }; }; WWWParamDismiss: XmPushButtonGadget { arguments { XmNlabelString = compound_string("Dismiss"); XmNx = 34; XmNy = 5; }; }; WWWParamApply: XmPushButtonGadget { arguments { XmNx = 35; XmNy = 6; XmNlabelString = compound_string("Apply"); }; }; WWWParamSave: XmPushButtonGadget { arguments { XmNx = 99; XmNy = 10; XmNlabelString = compound_string("Save"); }; }; WWWParamReset: XmPushButtonGadget { arguments { XmNx = 204; XmNy = 11; XmNlabelString = compound_string("Reset"); }; }; WWWParamHelp: XmPushButtonGadget { arguments { XmNlabelString = compound_string("Help"); XmNleftAttachment = XmATTACH_NONE; XmNtopAttachment = XmATTACH_NONE; XmNleftOffset = 385; XmNtopOffset = 243; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 9; XmNbottomAttachment = XmATTACH_FORM; XmNbottomOffset = 4; XmNy = 243; XmNx = 385; }; }; WWWKey: XmForm { arguments { XmNborderWidth = 1; }; controls { XmRowColumn WWWButtons; XmRowColumn WWWCommand; XmDrawnButton WWWHome; }; }; WWWButtons: XmRowColumn { arguments { XmNborderWidth = 1; XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_WIDGET; XmNleftOffset = -3; XmNtopOffset = 1; XmNtopWidget = XmRowColumn WWWCommand; XmNrightAttachment = XmATTACH_WIDGET; XmNrightWidget = XmDrawnButton WWWHome; XmNrightOffset = 9; }; }; WWWHome: XmDrawnButton { arguments { XmNleftAttachment = XmATTACH_NONE; XmNtopAttachment = XmATTACH_FORM; XmNleftOffset = 435; XmNtopOffset = 4; XmNx = 435; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 5; XmNlabelPixmap = MidasWWWHome; XmNlabelType = XmPIXMAP; XmNpushButtonEnabled = true; }; }; WWWMailToText: XmTextField { arguments { XmNx = 240; XmNy = 15; XmNwidth = 25; XmNheight = 25; XmNcolumns = 1; }; }; WWWMailDismiss: XmPushButtonGadget { arguments { XmNx = 293; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = XmPushButtonGadget WWWMailOk; XmNtopOffset = 0; XmNlabelString = compound_string("Dismiss"); XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 7; }; }; WWWMailHelp: XmPushButtonGadget { arguments { XmNx = 305; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = XmRowColumn WWWMailTo; XmNtopOffset = 25; XmNlabelString = compound_string("Help"); XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 8; XmNleftOffset = 305; XmNleftAttachment = XmATTACH_NONE; }; }; WWWHistoryHelp: XmPushButtonGadget { arguments { XmNlabelString = compound_string("Help"); XmNleftAttachment = XmATTACH_NONE; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftOffset = 334; XmNtopOffset = 0; XmNrightAttachment = XmATTACH_WIDGET; XmNrightOffset = 6; XmNx = 334; XmNy = 200; XmNrightWidget = XmPushButtonGadget WWWHistoryDismiss; XmNtopWidget = XmPushButtonGadget WWWHistoryDismiss; }; }; WWWOpenHelp: XmPushButtonGadget { arguments { XmNlabelString = compound_string("Help"); XmNleftAttachment = XmATTACH_NONE; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftOffset = 356; XmNtopOffset = 0; XmNtopWidget = XmPushButtonGadget WWWDocOpenOk; XmNx = 356; XmNrightAttachment = XmATTACH_WIDGET; XmNrightOffset = 6; XmNrightWidget = XmPushButtonGadget WWWDocInfoCancel; }; }; WWWDocInfoHelp: XmPushButtonGadget { arguments { XmNx = 303; XmNy = 2; XmNlabelString = compound_string("Help"); }; }; WWWSaveHelp: XmPushButtonGadget { arguments { XmNlabelString = compound_string("Help"); XmNleftAttachment = XmATTACH_NONE; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftOffset = 320; XmNtopOffset = 0; XmNx = 320; XmNrightAttachment = XmATTACH_WIDGET; XmNrightOffset = 7; XmNtopWidget = XmPushButtonGadget WWWSaveOk; XmNrightWidget = XmPushButtonGadget WWWSaveCancel; }; }; WWWHistoryList: XmList { arguments { XmNwidth = 25; XmNheight = 25; }; }; value MidasWWWIcon: exported icon(color_table = color_table(background color = ' ', foreground color = '*'), ' **************** ', ' ***************** * ', ' ** ***************** ', ' * *************** *** ', ' * ** ******* ** ', ' * * * ************ ** ** ', ' * * ******* ****** * ** ', ' * * ** *********** ** * ** ', ' * * * ****** ***** * * * * ', ' * * * ** ********** ** * * ** ', ' * * * * ***** **** * ** ** ', ' * * * * ** ******** * * * * ** ', ' * * * * * ***** **** * * ** ** ', ' * * * * * ** ****** * * * * * * * ', ' * * * * * * **** * * * ** * ** ', ' * * * * * * ** ****** * * * * * * * ', ' * * * * * * * ***** ** * ** * * ** ', ' * * * * * * * ** ** * * * ** * * ', ' * * * * * * * * ******** * * ** * * ** ', ' * * * * * * * * ** * ** * * * ** * * ', ' * * * * * * * * * ***** * * * * * * * * * ', ' * * * * * * * * * ** * * * * * ** * * ** ', ' * * * * * * * * * * ** * * * * * * ** * * ', ' * * * * * * * * * * *** * * * * ** * * ** ', ' * * * * * * * * * ** * **** * * * * ** * * ', ' * * * * * * * * ** *** * ***** ** * * * * ', ' * * * * * * * **** *** **** ***** ** * * ', ' * * * * * * * ** ** * ** * ** * ***** * * ', ' * * * * * * ** ** *** ** ** ** * * **** * ', ' * * * * * *** ** *** * * **** * *** ', ' * * * * **** *** ** ** * * * ** * * ', ' * * * * ** ** *** *** * * * * ** * ', ' * * * *** ** ** *** * ** * * * ** ', ' * * ** ** ** *** * ** * ** ** * * ', ' * **** ** ** *** * * * * ** * ', ' * * ** ** ** ** ** * * * * ', ' **** *** ** ** ** * ** * * ', ' * ** ** ** *** ** * ** * ', ' ** ** *** ** ** * * ** ', ' ** *** *** ** ** * * ', ' *** ** ** ** ** * ', ' ** *** ** * * ', ' ** ** * * * ', '****** * *** ** ** *** * * * *** *** ', ' * * * * *** *** ** * * * * * ', ' * **** ** ** * * * * * ** *** ', ' * * * * ** * * ***** * * * ', ' * * * *** *** * * *** *** ', ' ', ' '); MidasWWWHome: icon(color_table = color_table(background color = ' ', foreground color = '*', rgb(45874,5242,5242) = 'a', rgb(62913,60816,0) = 'b', rgb(0,65535,65535) = 'c', rgb(65535,0,0) = 'd', rgb(61602,60947,60947) = 'e', rgb(0,41068,155) = 'f'), ' ', ' ', ' ', ' ddddddddddddd ', ' ddddddddddddddd eeeee ', ' dddd**dddddddddddeeeee ', ' ddd*aa*ddadddadddeeeee ', ' daa*aaaa*dddddddddeeaae ', ' dddd*aaaaaa*dddaddddeeeee ', ' ddd*aaaaaaaa*dddddddeaaee ', ' dddd*aaaaaaaaa*dddddddeeeee ', ' aadd*aaaaaaaaaaa*ddddddeeeeed ', ' dddd*aaaaaccaaaaaa*dddaddeeeedd ', ' dddd*aaaaaccccaaaaaa*ddaaddeeeddd ', ' dddd*aaaaaccccccaaaaaa*daadddeedddd ', ' dddd*aaaaaccccccccaaaaaa*dddddddddadd ', ' ddad*aaaaa*ccccccccaaaaaaa*dddddddddadd ', ' dddd*aaaaaa*ccccccccaaaaaaaa*dddddddddddd ', ' dddd*aaaaaaa*ccccccccaaaaaaaaccddddadddadd ', ' daad*aaaaaaaa*********aaaaaaaaac*dddadddaddd ', ' dddd*aaaaaaaaaaaaaaaaaaaaaaaaaaaa*dddddddddddd ', ' dddd*aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*dddddaddadd ', ' dddd*aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*ddddddaaddd ', ' ddd*aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*ddddddddddd ', ' dd*aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*********dd ', ' *aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*aaaaaaa* ', ' *aaaaaaaccaaaaaaaaaaaaaaaaaaaaaccaaaaa*aaaaaaa* ', ' *aaaaaaccccaaaaaaaaaaaaaaaaaaaccccaaaa*aaaaaaa* ', ' *aaaaaccccccaaaa*******aaaaa*ccccccaaa*aaaaaaa* ', ' *aaaa*ccccccaaaa*bbbbbbaaaaa*ccccccaaa*aaaaaaa* ', ' *aaaa*ccccccaaaa*bbbbbbaaaaa*ccccccaaa*aaaaaaa* ', ' *aaaa*ccccccaaaa*bbbbbbaaaaa*ccccccaaa*aaaaaaa* ', ' *aaaa*ccccccaaaa*bbbbbbaaaaa*ccccccaaa*aaaaaaa* ', ' *aaaa*ccccccaaaa*bbbbbbaaaaa*ccccccaaa*aaaaaaa* ', ' *aaaa*ccccccaaaa*bbbbbbaaaaa*ccccccaaa*aaaaaaa* ', ' *aaaa*******aaaa*beebbbaaaaa*******aaa*aaaaaaa* ', ' *aaaaaaaaaaaaaaa*beebbbaaaaaaaaaaaaaaa*aaaaaaa* ', ' *aaaaaaaaaaaaaaa*bbbbbbaaaaaaaaaaaaaaa*aaaaaaa* ', ' *aaaaaaaaaaaaaaa*bbbbbbaaaaaaaaaaaaaaa*aaaaaaa* ', ' *aaaaaaaaaaaaaaa*bbbbbbaaaaaaaaaaaaaaa*aaaaaaa*fff ', ' *aaaaaaaaaaaaaaa*bbbbbbaaaaaaaaaaaaaaa*aaaaaaa*f f ', ' ff*****************bbbbbb************************fff ', ' fffffffffffffffffffffff f fffffffffffff fffffffffff ', ' ffffffffffffffffff f ff fffffff f ffffffffff fffff ', ' f fffff f ff fff ffffffffffffffffffffffffff f ', ' f f ffffffff fff fff f ffffffffffffffff fffff f ', ' ff f ff ff fffffffffffff fff ffff f ffff ff ', ' f f fffff f f ffff ff ff ffff f ', ' f ffff fffff ffffff fffff ffffffff ', ' ffff f ffff ff f ffff f ffff f ', ' ffff ', ' ', ' ', ' ', ' '); end module; XmNrightAttachment = XmATTACH_FORM; XmNrightOffset = 7; }; }; WWWMailHelp: XmPushButtonGadget { arguments { XmNx = 305; XmNtomidaswww-1.0/Imakefile100644 002113 001774 00000004756 05302057365 014671 0ustar00tonyjey000000 000000 /* * * midaswww -- Machine independent makefile * * (c) Copyright 1992, Tony Johnson (Tony_Johnson@Slac.Stanford.Edu) * * Permission to use, copy, modify, distribute, and sell this software * and its documentation for any purpose is hereby granted without fee, * provided that the above copyright notice appear in all copies and * that both that copyright notice and this permission notice appear in * supporting documentation, and that the name of Kirk Erickson and * Silicon Graphics Inc. not be used in advertising or publicity pertaining * to distribution of the software without specific, written prior * permission. Tony Johnson makes no * representations about the suitability of this software for any purpose. * It is provided "as is" without express or implied warranty. * * THE ABOVE-NAMED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO * EVENT SHALL THE ABOVE-NAMED BE LIABLE FOR ANY SPECIAL, INDIRECT OR * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF * USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR * PERFORMANCE OF THIS SOFTWARE. */ /* * If the default install targets aren't appropriate, change NO to YES, * and edit the targets to what you want. */ #define NonStandardInstallTargets NO #if NonStandardInstallTargets BINDIR = /usr/local/bin MANDIR = /usr/local/man/cat1 XAPPLOADDIR = /usr/local/lib/app-defaults #endif EXTRA_LIBRARIES = -lMrm -lXm $(DEPLIBS) $(SYSLIBS) /* * To compile for debugging. * Take your default OPTIM line from Makefile, and change the -O to -g. */ #define TurnOnDebugging NO #if TurnOnDebugging CDEBUGFLAGS = -g DEFINES = -DDEBUG -DVERSION="\"$(VERSION)\"" #else DEFINES = -DVERSION="\"$(VERSION)\"" #endif WWW = www -n -na -p /* You shouldn't need to modify anything below this line */ include CommonMakefile ComplexProgramTarget($(PGM)) InstallAppDefaults($(CLASS)) README: $(WWW) http://slacvx.slac.stanford.edu:80/midaswww/v10/readme.html > README README_VMS: $(WWW) http://slacvx.slac.stanford.edu:80/midaswww/v10/readme_vms.html > README_VMS tar: $(DIR).tar.Z $(DIR).tar.Z: $(HEADERS) $(SRCS) $(UILS) $(OTHERS) mkdir $(DIR) cp $(HEADERS) $(SRCS) $(UILS) $(OTHERS) $(DIR) tar -cvf $(DIR).tar $(DIR) compress $(DIR).tar cd $(DIR); rm -f * rmdir $(DIR) rm README* midaswww-1.0/CommonMakefile100644 002113 001774 00000004224 05302057365 015657 0ustar00tonyjey000000 000000 MAJORVERSION = 1 MINORVERSION = 0 VERSION = $(MAJORVERSION).$(MINORVERSION) PGM = midaswww CLASS = Midaswww DIR = $(PGM)-$(VERSION) DEFINES = -DVERSION="\"$(VERSION)\"" HEADERS = \ SGMLAnchorText.h \ SGMLAnchorTextP.h \ SGMLCompositeText.h \ SGMLCompositeTextP.h \ SGMLFormattedText.h \ SGMLFormattedTextP.h \ SGMLHyper.h \ SGMLHyperP.h \ SGMLListText.h \ SGMLListTextP.h \ SGMLMarkerText.h \ SGMLMarkerTextP.h \ SGMLPlainText.h \ SGMLPlainTextP.h \ SGMLText.h \ SGMLTextP.h \ Tree.h \ TreeP.h \ midas.h \ midasconvert.h \ midaserrors.h \ midaslist.h \ midasshell.h \ midasoperand.h \ midasshell.h \ midaswidget.h SRCS = \ SGMLAnchorText.c \ SGMLCompositeText.c \ SGMLFormattedText.c \ SGMLHyper.c \ SGMLListText.c \ SGMLMarkerText.c \ SGMLPlainText.c \ SGMLText.c \ Tree.c \ custom.c \ dxm.c \ midas.c \ midasclass.c \ midasconvert.c \ midasdeclare.c \ midasevaluate.c \ midasingot.c \ midaslist.c \ midasloadimage.c \ midaswww.c \ midasutil.c OBJS = \ SGMLAnchorText.o \ SGMLCompositeText.o \ SGMLFormattedText.o \ SGMLHyper.o \ SGMLListText.o \ SGMLMarkerText.o \ SGMLPlainText.o \ SGMLText.o \ Tree.o \ custom.o \ dxm.o \ midas.o \ midasclass.o \ midasconvert.o \ midasdeclare.o \ midasevaluate.o \ midasingot.o \ midaslist.o \ midasloadimage.o \ midaswww.o \ midasutil.o UILS = \ midas.uil \ midaswww.uil UIDS = \ midas.uid \ midaswww.uid OTHERS = \ Imakefile \ CommonMakefile \ Makefile.hp \ Makefile.sgi \ Makefile.aix32 \ Midas.ad \ Midaswww.ad \ descrip.mms \ midaswww.opt \ README_VMS \ README world:: $(PGM) $(UIDS) .SUFFIXES : .uid .uil .uil.uid: uil -o $*.uid $< test:: $(PGM) $(UIDS) XUSERFILESEARCHPATH=./%N.ad ; export XUSERFILESEARCHPATH; ./$(PGM) midaswww-1.0/Makefile.hp100644 002113 001774 00000000546 05302057365 015117 0ustar00tonyjey000000 000000 # Generic makefile - Unix (hp) version # LDLIBS = -lMrm -lXm -lX11 -lXt LDOPTIONS = -L/usr/lib/Motif1.1 -L/usr/lib/X11R4 CFLAGS = -D_NO_PROTO $(DEFINES) -I/usr/include/X11R4 -I/usr/include/Motif1.1 RM = rm -f include CommonMakefile $(PGM):: $(OBJS) $(RM) $@ $(CC) -o $@ $(OBJS) $(LDOPTIONS) $(LDLIBS) midaswww-1.0/Makefile.sgi100644 002113 001774 00000000637 05302057365 015273 0ustar00tonyjey000000 000000 # Generic makefile - Unix (sgi) version # SHELL = /bin/sh LDLIBS = -lMrm -lXm_s -lXt_s -lX11_s -lPW -lmalloc LDOPTIONS = CFLAGS = -O2 -prototypes -cckr -float -I/usr/include $(DEFINES) -DSYSV -DMALLOC_0_RETURNS_NULL -DFUNCPROTO -DNARROWPROTO RM = rm -f include CommonMakefile $(PGM):: $(OBJS) $(RM) $@ $(CC) -o $@ $(OBJS) $(LDOPTIONS) $(LDLIBS) midaswww-1.0/Makefile.aix32100644 002113 001774 00000000477 05302057365 015441 0ustar00tonyjey000000 000000 # Generic makefile - Unix (rs6000) version # LDLIBS = -lXm -lPW -lIM -lXt -lX11 -lMrm LDOPTIONS = -bnodelcsect CFLAGS = -O -DAIXV3 -D_BSD -Dqnoro $(DEFINES) RM = rm -f include CommonMakefile $(PGM):: $(OBJS) $(RM) $@ $(CC) -o $@ $(OBJS) $(LDOPTIONS) $(LDLIBS) midaswww-1.0/Midas.ad100644 002113 001774 00000051246 05302057365 014417 0ustar00tonyjey000000 000000 midas*MidasIngotManagerDismiss.activateCallback: Midas PopDown .^ midas*Apply.activateCallback: Set Value currentWidget GetValue(MidasResourceManager...List,selectedItems) GetValue(MidasResourceManager...Text,value)\n\ Set Sensitive .^.Save True\n\ Set Sensitive . False midas*Apply.currentWidget: Set Sensitive . False midas*Apply.midasIngots: currentWidget midas*MidasHelpDismiss.activateCallback: Midas PopDown .^^^XmMainWindow midas*MidasCreateIngotOk.activateCallback: Set Ingot Owner %GetValue(.^.MidasCreateIngotNameText,value) ""\n\ Store Callback Owner %GetValue(.^.MidasCreateIngotNameText,value)\n\ PopDown .^\n\ Get Ingots IngotList currentWidget\n midas*MidasIngotManagerCallbackApply.activateCallback: Set Callback currentWidget GetValue(MidasIngotManager...MidasIngotManagerList,selectedItems) GetValue(MidasIngotManager...MidasIngotManagerCallbackText,value)\n\ Set Ingot Option currentWidget GetValue(MidasIngotManager...MidasIngotManagerList,selectedItems) GetValue(MidasIngotManager...MidasIngotManagerCallbackOption,set)\n\ Set Sensitive .^.MidasIngotManagerCallbackSave True\n\ Set Sensitive . False midas*MidasIngotManagerCallbackApply.currentWidget: Set Sensitive . False midas*MidasIngotManagerCallbackApply.midasIngots: currentWidget midas*MidasHelpSearchDialog.autoUnmanage: false midas*MidasHelpSearchDialog.selectionLabelString: Find: midas*MidasHelpSearchDialog.cancelCallback: If HyperGrep(.^^^XmMainWindow...MidasHelpHyper,GetValue(..sb_text,value))==False Beep midas*MidasHelpSearchDialog.helpCallback: PopDown . midas*MidasHelpSearchDialog.cancelLabelString: Apply midas*MidasHelpSearchDialog.dialogTitle: Help Search... midas*MidasHelpSearchDialog.okCallback: If HyperGrep(.^^^XmMainWindow...MidasHelpHyper,GetValue(..sb_text,value))==False Beep\n\ Else PopDown . midas*MidasHelpSearchDialog.helpLabelString: Dismiss midas*MidasInfoUpButton.activateCallback: Set Ingot .^^^WidgetList currentWidget Parent(currentWidget) midas*MidasInfoUpButton.currentWidget: Set Sensitive . currentWidget!=Shell(currentWidget) midas*MidasInfoUpButton.midasIngots: currentWidget midas*MidasCreateIngotUp.activateCallback: Set Ingot .^ Owner Parent(Owner) midas*MidasCreateIngotUp.midasIngots: Owner midas*MidasCreateIngotUp.Owner: Set Sensitive . Owner!=Shell(Owner) midas*WidgetListList.defaultActionCallback: If GetValue(.^^^XmMainWindow...Show_Children,sensitive) Invoke Callback .^^^XmMainWindow...Show_Children activateCallback midas*WidgetListList.browseSelectionCallback: Set Ingot WidgetList "currentWidget" GetValue(.,selectedItems) midas*ClassText.currentWidget: Set Value . value WidgetClass(currentWidget) midas*ClassText.midasIngots: currentWidget midas*MidasCreateIngotOwnerText.editable: false midas*MidasCreateIngotOwnerText.midasIngots: Owner midas*MidasCreateIngotOwnerText.Owner: Set Value . value WidgetName(Owner) midas*MidasEvalDismissButton.activateCallback: Midas PopDown .^ midas*MidasIngotManagerClassText.currentWidget: Set Value . value WidgetClass(currentWidget) midas*MidasIngotManagerClassText.midasIngots: currentWidget midas*MidasIngotManagerLabel.currentWidget: midas*MidasIngotManagerLabel.midasIngots: currentWidget midas*WidgetListButtons.midasCreateCallback: Custom Connect WIDGETLIST "" . midas*WidgetListMenu.midasCreateCallback: Custom Connect WIDGETLIST "
" . midas*MidasIngotManagerCallbackOption.currentWidget: Set Sensitive . False midas*MidasIngotManagerCallbackOption.midasIngots: currentWidget midas*MidasIngotManagerCallbackOption.valueChangedCallback: Set Sensitive .^.MidasIngotManagerCallbackApply True midas*MidasHelpHyper.underlineLinks: true midas*MidasHelpHyper.zoomEffect: false midas*MidasHelpHyper.activateCallback: Set Ingot .^^^XmMainWindow current HyperGetHidden()\n\ Hyper Load File . current \n\ Add List Position HelpStack current Position+1\n\ Set Ingot .^^^XmMainWindow Position Position+1 midas*MidasHelpHyper.highlightThickness: 0 midas*Text.currentWidget: Set Value . value ""\n\ Set Sensitive . False midas*Text.midasIngots: currentWidget midas*Text.valueChangedCallback: Set Sensitive .^^^...Apply True midas*MidasStartup.mapCallback: Midas Set Value ..MidasStartupText value GetAppResource(Midas,startup)\n\ Midas Set Sensitive ..MidasStartupSave False midas*MidasFilesSelector.okCallback: Open Uid GetValue(..sb_text,value)\n\ PopDown .\n midas*MidasIngotManagerCreateNew.activateCallback: Popup MidasCreateNewIngot:parent=.^ midas*Show_Children.currentWidget: Set Sensitive . currentWidget!=&&HasChildren(currentWidget)\n\ if (GetValue(.,sensitive)&&ChildrenInTree(currentWidget)==True&&GetValue(.,labelString)=="Show Children") Set Value . labelString "Hide Children"\n\ else if (GetValue(.,sensitive)&&ChildrenInTree(currentWidget)==False&&GetVAlue(.,labelString)=="Hide Children") Set Value . labelString "Show Children" midas*Show_Children.midasIngots: currentWidget midas*Show_Children.currentWidgetExecuteWhenCreated: True midas*MidasEvalEvaluateButton.activateCallback: Set Ingot .^ Result Evalu8(GetValue(.^.MidasEvalExpressionText,value))\n\ Set Value .^.MidasEvalTypeText value Type(Result) midas*MidasIngotManagerValueApply.activateCallback: Set Ingot currentWidget GetValue(MidasIngotManager...MidasIngotManagerList,selectedItems) GetValue(MidasIngotManager...MidasIngotManagerValueText,value)\n\ Set Sensitive . False midas*MidasIngotManagerValueApply.currentWidget: Set Sensitive . False midas*MidasIngotManagerValueApply.midasIngots: currentWidget midas*MidasStartupDismiss.activateCallback: PopDown .^ midas*MidasHelpGoBack.Position: Set Sensitive . Position>1 midas*MidasHelpGoBack.PositionExecuteWhenCreated: True midas*MidasHelpGoBack.midasIngots: Position midas*MidasHelpGoBack.activateCallback: Set Ingot .^^^XmMainWindow Position Position-1 \n\ Hyper Load File .^^^XmMainWindow...MidasHelpHyper ListNamePos(HelpStack,Position) midas*MidasIngotManagerValueText.currentWidget: Set Value . value ""\n\ Set Sensitive . False midas*MidasIngotManagerValueText.midasIngots: currentWidget midas*MidasIngotManagerValueText.valueChangedCallback: Midas Set Sensitive .^.MidasIngotManagerValueApply True midas*MidasInfoClassText.currentWidget: Set Value . value WidgetClass(currentWidget) midas*MidasInfoClassText.midasIngots: currentWidget midas*MidasExpressionEvaluator.midasIngots: Result midas*MidasExpressionEvaluator.Result: midas*MidasExpressionEvaluator.mapCallback: Invoke Callback ..MidasEvalClearButton activateCallback midas*WidgetTree.midasIngots: currentWidget TreeStyle midas*WidgetTree.TreeStyleExecuteWhenCreated: True midas*WidgetTree.currentWidgetExecuteWhenCreated: False midas*WidgetTree.TreeStyle: Set Value . gravity TreeStyle midas*WidgetTree.currentWidget: If currentWidget!="" Current Widget In Tree currentWidget midas*MidasIngotManagerCallbackText.currentWidget: Set Value . value ""\n\ Set Sensitive . False midas*MidasIngotManagerCallbackText.midasIngots: currentWidget midas*MidasIngotManagerCallbackText.valueChangedCallback: Set Sensitive .^.MidasIngotManagerCallbackApply True\n\ Set Sensitive .^.MidasIngotManagerCallbackOption GetValue(.,value)!="" midas*MidasStartupText.valueChangedCallback: Set Sensitive .^.MidasStartupSave True midas*MidasInfo.midasIngots: currentWidget midas*MidasInfo.dialogTitle: Midas - Widget Info midas*Save.activateCallback: Store Resource currentWidget GetValue(MidasResourceManager...List,selectedItems)\n\ Set Sensitive . False midas*Save.currentWidget: Set Sensitive . False midas*Save.midasIngots: currentWidget midas*MidasCallbackManagerLabel.currentWidget: midas*MidasCallbackManagerLabel.midasIngots: currentWidget midas*Label.currentWidget: midas*Label.midasIngots: currentWidget midas*MidasCallbackManagerList.currentWidget: Unrealize List CallbackList\n\ Get Callbacks CallbackList currentWidget\n\ Realize List CallbackList .\n midas*MidasCallbackManagerList.midasIngots: currentWidget midas*MidasCallbackManagerList.browseSelectionCallback: Set Value MidasCallbackManager...MidasCallbackManagerText value GetValue(currentWidget,GetValue(.,selectedItems))\n\ Set Sensitive MidasCallbackManager...MidasCallbackManagerText True\n\ Set Sensitive .^^^...MidasCallbackManagerApply False\n\ Set Sensitive .^^^...MidasCallbackManagerSave False midas*WidgetListDialog.title: Midas - Widget List midas*WidgetListDialog.width: 665 midas*WidgetListDialog.height: 422 midas*WidgetListDialog.x: 604 midas*WidgetListDialog.geometry: 288x500+604+32 midas*WidgetListDialog.y: 32 midas*MidasHelpDialog.title: Midas Help midas*List.currentWidget: Unrealize List ResourceList\n\ If currentWidget!="" Get Resources ResourceList currentWidget\n\ Else Empty List ResourceList\n\ Realize List ResourceList .\n midas*List.midasIngots: currentWidget midas*List.browseSelectionCallback: Set Value MidasResourceManager.Text value GetValue(currentWidget,GetValue(.,selectedItems))\n\ Set Sensitive .^^^...Text True\n\ Set Sensitive .^^^...Apply False\n\ Set Sensitive .^^^...Save False midas*midas.width: 567 midas*midas.x: 11 midas*midas.height: 233 midas*midas.y: 32 midas*SGMLHyper.xmp.class: SGMLPlainText midas*SGMLHyper.default.font: -*-helvetica-medium-*-*-*-*-*-*-*-*-*-*-* midas*SGMLHyper.ul.leftIndent: 20 midas*SGMLHyper.ul.matched: true midas*SGMLHyper.ul.spaceBefore: 3 midas*SGMLHyper.ul.breakBefore: true midas*SGMLHyper.a.font: -*-*-*-i-*-*-*-*-*-*-*-*-*-* midas*SGMLHyper.a.matched: true midas*SGMLHyper.title.matched: true midas*SGMLHyper.title.class: SGMLText midas*SGMLHyper.h2.spaceAfter: 5 midas*SGMLHyper.h2.breakAfter: true midas*SGMLHyper.h2.matched: true midas*SGMLHyper.h2.breakBefore: true midas*SGMLHyper.h2.font: -*-helvetica-bold-*-*-*-*-*-*-*-*-*-*-* midas*SGMLHyper.h2.spaceBefore: 5 midas*SGMLHyper.h3.spaceAfter: 3 midas*SGMLHyper.h3.breakAfter: true midas*SGMLHyper.h3.matched: true midas*SGMLHyper.h3.breakBefore: true midas*SGMLHyper.h3.font: -*-helvetica-medium-*-*-*-*-*-*-*-*-*-*-* midas*SGMLHyper.h3.spaceBefore: 3 midas*SGMLHyper.li.breakBefore: true midas*SGMLHyper.li.spaceBefore: 3 midas*SGMLHyper.h1.spaceAfter: 10 midas*SGMLHyper.h1.breakAfter: true midas*SGMLHyper.h1.matched: true midas*SGMLHyper.h1.breakBefore: true midas*SGMLHyper.h1.font: -*-helvetica-bold-*-*-*-18-*-*-*-*-*-*-* midas*Horizontal_Tree.TreeStyle: Set Value . set TreeStyle==left midas*Horizontal_Tree.TreeStyleExecuteWhenCreated: True midas*Horizontal_Tree.midasIngots: TreeStyle midas*MidasHelpSearch.activateCallback: Popup .^^^XmMainWindow...MidasHelpSearchDialog midas*NameText.currentWidget: Set Value . value WidgetName(currentWidget) midas*NameText.midasIngots: currentWidget midas*MidasEvalTypeText.midasIngots: Result midas*MidasEvalTypeText.Result: midas*MidasCallbackManagerCancel.activateCallback: PopDown .^ midas*title.createCallback: Set Value .^^^XmDialogShell title HyperGetText() midas*MidasCreateIngotCancel.activateCallback: PopDown .^ midas*MidasIngotManager.autoUnmanage: false midas*MidasCallbackManagerWidgetText.currentWidget: Set Value . value WidgetName(currentWidget) midas*MidasCallbackManagerWidgetText.midasIngots: currentWidget midas*Toggle.currentWidget: Set Sensitive . currentWidget!="" midas*Toggle.midasIngots: currentWidget midas*WidgetList*Tree.XmPushButton.activateCallback: if GetClickCount()==2 Toggle Children currentWidget \n\ Set Ingot .^^^XmMainWindow currentWidget TreeToWidget(.) midas*WidgetList.midasIngots: currentWidget TreeStyle midas*WidgetList.TreeStyleExecuteWhenCreated: False midas*WidgetList.midasCreateCallback: Custom Create WIDGETLIST .\n\ Set Ingot . TreeStyle left\n\ Create Widget . Tree WidgetTree\n\ Create Widget Tree ....WidgetTree midas*WidgetList.mappedWhenManaged: true midas*WidgetList.: midas*WidgetList.TreeStyle: midas*MidasIngotManagerCallbackSave.activateCallback: Store Callback currentWidget GetValue(MidasIngotManager...MidasIngotManagerList,selectedItems)\n\ Set Sensitive . False midas*MidasIngotManagerCallbackSave.currentWidget: Set Sensitive . False midas*MidasIngotManagerCallbackSave.midasIngots: currentWidget midas*MidasIngotManagerNameText.currentWidget: Set Value . value WidgetName(currentWidget) midas*MidasIngotManagerNameText.midasIngots: currentWidget midas*Vertical_Tree.TreeStyle: Set Value . set TreeStyle==top midas*Vertical_Tree.TreeStyleExecuteWhenCreated: True midas*Vertical_Tree.midasIngots: TreeStyle midas*MidasCallbackManagerClassText.currentWidget: Set Value . value WidgetClass(currentWidget) midas*MidasCallbackManagerClassText.midasIngots: currentWidget midas*MidasStartupSave.activateCallback: Store App Resource Midas startup GetValue(.^.MidasStartupText,value) midas*MidasEvalClearButton.activateCallback: Set Value .^.MidasEvalResultText value ""\n\ Set Value .^.MidasEvalTypeText value ""\n\ Set Value .^.MidasEvalExpressionText value ""\n midas*Destroy.currentWidget: Set Sensitive . currentWidget!="" midas*Destroy.midasIngots: currentWidget midas*MidasCreateIngotNameText.valueChangedCallback: Set Sensitive .^.MidasCreateIngotOk GetValue(.,value)!="" midas*MidasInfoNameText.currentWidget: Set Value . value WidgetName(currentWidget) midas*MidasInfoNameText.midasIngots: currentWidget midas*MidasCallbackManagerText.currentWidget: Set Value . value ""\n\ Set Sensitive . False midas*MidasCallbackManagerText.midasIngots: currentWidget midas*MidasCallbackManagerText.valueChangedCallback: Set Sensitive .^^^...MidasCallbackManagerApply True \n midas*Pop_Down.currentWidget: Set Sensitive . currentWidget!=&&IsManaged(currentWidget) midas*Pop_Down.midasIngots: currentWidget midas*Pop_Up.currentWidget: Set Sensitive . currentWidget!=&&IsManaged(currentWidget)==False midas*Pop_Up.midasIngots: currentWidget midas*MidasCreateNewIngot.currentWidget: Invoke Callback . mapCallback midas*MidasCreateNewIngot.midasIngots: currentWidget Owner midas*MidasCreateNewIngot.dialogTitle: Midas - Create New Ingot midas*MidasCreateNewIngot.mapCallback: Set Ingot . Owner currentWidget\n\ Set Value ..MidasCreateIngotNameText value "" midas*Midas_Command.promptString: Midas Command midas*MidasCallbackManagerApply.activateCallback: Set Value currentWidget GetValue(MidasCallbackManager...MidasCallbackManagerList,selectedItems) GetValue(MidasCallbackManager...MidasCallbackManagerText,value)\n\ Set Sensitive .^.MidasCallbackManagerSave True\n\ Set Sensitive . False midas*MidasCallbackManagerApply.currentWidget: Set Sensitive . False midas*MidasCallbackManagerApply.midasIngots: currentWidget midas*MidasInfoButtonBox.midasCreateCallback: Custom Connect WIDGETLIST "" . midas*MidasHelp.midasCreateCallback: Create Widget . SGMLHyper MidasHelpHyper midas*MidasHelp.Position: midas*MidasHelp.PositionExecuteWhenCreated: True midas*MidasHelp.midasIngots: Position midas*MidasIngotManagerList.currentWidget: UnRealize List IngotList\n\ Get Ingots IngotList currentWidget\n\ Realize List IngotList .\n midas*MidasIngotManagerList.midasIngots: currentWidget midas*MidasIngotManagerList.browseSelectionCallback: Set Value MidasIngotManager...MidasIngotManagerValueText value GetIngot(currentWidget,GetValue(.,selectedItems))\n\ Set Value MidasIngotManager...MidasIngotManagerCallbackText value GetCallback(currentWidget,GetValue(.,selectedItems))\n\ Set Value MidasIngotManager...MidasIngotValueOwnerText value WidgetName(GetValueOwner(currentWidget,GetValue(.,selectedItems)))\n\ Set Value MidasIngotManager...MidasIngotManagerCallbackOption set GetIngotOption(currentWidget,GetValue(.,selectedItems))\n\ Set Sensitive .^^^...MidasIngotManagerValueText True\n\ Set Sensitive .^^^...MidasIngotManagerCallbackText True\n\ Set Sensitive .^^^...MidasIngotManagerCallbackOption GetCallback(currentWidget,GetValue(.,selectedItems))!=""\n\ Set Sensitive .^^^...MidasIngotManagerValueApply False\n\ Set Sensitive .^^^...MidasIngotManagerCallbackApply False\n\ Set Sensitive .^^^...MidasIngotManagerCallbackSave False midas*MidasCallbackManagerSave.activateCallback: Store Resource currentWidget GetValue(MidasCallbackManager...MidasCallbackManagerList,selectedItems)\n\ Set Sensitive . False midas*MidasCallbackManagerSave.currentWidget: Set Sensitive . False midas*MidasCallbackManagerSave.midasIngots: currentWidget midas*MidasEvalResultText.midasIngots: Result midas*MidasEvalResultText.Result: Set Value . value Result midas.geometry: 567x233+11+32 midas.startup: Midas Popup Midas_Main midas.title: MIDAS - Motif Interactive Data Analysis Shell idas*SGMLHyper.p.breakBefore: true CUSTOM.CUSTOM.Verb.6: Popup MidasHelp:Dialog\n\ Set Ingot MidasHelp Position 1\n\ Empty List HelpStack\n\ Add List Position HelpStack midas.help 0\n\ Hyper Load File MidasHelpHyper midas.help CUSTOM.CUSTOM.Verb.1: Popup MidasHelp:Dialog\n\ Set Ingot MidasHelp Position 1\n\ Empty List HelpStack\n\ Add List Position HelpStack about.help 0\n\ Hyper Load File MidasHelpHyper about.help CUSTOM.CUSTOM.Verb.2: Popup MidasExpressionEvaluator CUSTOM.CUSTOM.Verb.3: Popup FileList CUSTOM.CUSTOM.Verb.4: Cr \n\ Load Image MidasHandypak CUSTOM.CUSTOM.Verb.5: Create Shell jazelle:UidFile=Ducsjazelle:Jazelle.Uid :Icon=JazelleIcon\n\ PopUp JazelleMain\n\ Load Image MidasJazelle\n\ Index CUSTOM.CUSTOM.Verb.9: Save Geometry Midas_Main+ CUSTOM.CUSTOM.Verb.16: Popup WidgetList:Dialog CUSTOM.CUSTOM.Verb.8: Quit CUSTOM.CUSTOM.Verb.15: Custom Popup CUSTOM CUSTOM.CUSTOM.Verb.7: Invoke Application puzzle CUSTOM.CUSTOM.Verb.10: Custom Write CUSTOM CUSTOM CUSTOM.CUSTOM.Verb.11: Popup MidasStartup CUSTOM.CUSTOM.Verb.12: Popup MidasHelp:Dialog\n\ Set Ingot MidasHelp Position 1\n\ Empty List HelpStack\n\ Add List Position HelpStack fhbenefit.html 0\n\ Hyper Load File MidasHelpHyper fhbenefit.html CUSTOM.CUSTOM.Verb.13: Popup MidasHelp:Dialog\n\ Set Ingot MidasHelp Position 1\n\ Empty List HelpStack\n\ Add List Position HelpStack hlmain.html 0\n\ Hyper Load File MidasHelpHyper hlmain.html CUSTOM.CUSTOM.Verb.14: Popup MidasHelp:Dialog\n\ Set Ingot MidasHelp Position 1\n\ Empty List HelpStack\n\ Add List Position HelpStack "/nfs/juno/u1/ey/tonyj/WWW/LineMode/Defaults/Features.html" 0\n\ Hyper Load File MidasHelpHyper "/nfs/juno/u1/ey/tonyj/WWW/LineMode/Defaults/Features.html" CUSTOM.CUSTOM.Menu.5: About...\\1#Overview...\\6#Test...\\12#Test2...\\13#Test3...\\14 CUSTOM.CUSTOM.Menu.4: Startup...\\11#Verbs and Menus...\\15#......\\0#Save Current Settings\\10#Save Current Geometry\\9 CUSTOM.CUSTOM.Menu.3: Quit\\8 CUSTOM.CUSTOM.Menu.2: Puzzle\\7 CUSTOM.CUSTOM.Menu.1: Control =>\\-3#Tools =>\\-6#Applications =>\\-2#Customize =>\\-4#Help =>\\-5 CUSTOM.CUSTOM.Menu.6: Widget Manager...\\16#File Manager...\\3#Expression Evaluator...\\2 CUSTOM.CUSTOM.Verbs: About...#Expression Evaluator...#File Manager...#Ida#Jazelle#Overview...#Puzzle#Quit#Save Current Geometry#Save Current Settings#Startup...#Test...#Test2...#Test3...#Verbs and Menus...#Widget Manager... CUSTOM.CUSTOM.Menus:
#Applications#Control#Customize#Help#Tools CUSTOM.WIDGETLIST.Verb.4: Midas PopDown .^^ CUSTOM.WIDGETLIST.Verb.2: PopDown WidgetList CUSTOM.WIDGETLIST.Verb.6: Popup MidasIngotManager:parent=WidgetList CUSTOM.WIDGETLIST.Verb.15: Custom Popup WIDGETLIST CUSTOM.WIDGETLIST.Verb.17: Popup WidgetList CUSTOM.WIDGETLIST.Verb.13: #Custom Popup WIDGETLIST CUSTOM.WIDGETLIST.Verb.11: Custom Write WIDGETLIST CUSTOM.WIDGETLIST.Verb.7: PopDown currentWidget\n\ Set Sensitive . False\n\ Set Sensitive .^.Pop_Up True CUSTOM.WIDGETLIST.Verb.5: #Set Ingot .^^^XmMainWindow TreeStyle left CUSTOM.WIDGETLIST.Verb.3: Destroy currentWidget\n\ Set Ingot WidgetList "currentWidget" "" CUSTOM.WIDGETLIST.Verb.1: Popup MidasCallbackManager:Parent=WidgetList CUSTOM.WIDGETLIST.Verb.16: #Set Ingot .^^^XmMainWindow TreeStyle top CUSTOM.WIDGETLIST.Verb.9: Popup MidasResourceManager:parent=WidgetList CUSTOM.WIDGETLIST.Verb.8: PopUp currentWidget\n\ Set Sensitive . False\n\ Set Sensitive .^.Pop_Down True CUSTOM.WIDGETLIST.Verb.14: Toggle currentWidget\n\ Set Sensitive .^.Pop_Down IsManaged(currentWidget)\n\ Set Sensitive .^.Pop_Up IsManaged(currentWidget)==False CUSTOM.WIDGETLIST.Verb.12: Toggle Children currentWidget\n\ If ChildrenInTree(currentWidget) Set Value . labelString "Hide Children"\n\ Else Set Value . labelString "Show Children" CUSTOM.WIDGETLIST.Verb.10: Save Geometry WidgetList^ CUSTOM.WIDGETLIST.Menu.5: Verbs and Menus...\\15#......\\0#Save Current Settings\\11#Save Current Geometry\\10 CUSTOM.WIDGETLIST.Menu.4: Layout =>\\-6#......\\0#Close Window\\2 CUSTOM.WIDGETLIST.Menu.3: Control =>\\-4#Tools =>\\-7#Customize =>\\-5 CUSTOM.WIDGETLIST.Menu.2: Show Children\\12#Pop Up\\8#Pop Down\\7#Toggle\\14#Destroy\\3 CUSTOM.WIDGETLIST.Menu.1: Callback Manager...\\1#Resource Manager...\\9#Ingot Manager...\\6#Widget Manager...\\17#Dismiss\\4 CUSTOM.WIDGETLIST.Menu.6: Horizontal Tree\\5#Vertical Tree\\16#......\\0#Show Class\\13 CUSTOM.WIDGETLIST.Menu.7: Callback Manager...\\1#Resource Manager...\\9#Ingot Manager...\\6 CUSTOM.WIDGETLIST.Verbs: Callback Manager...#Close Window#Destroy#Dismiss#Horizontal Tree#Ingot Manager...#Pop Down#Pop Up#Resource Manager...#Save Current Geometry#Save Current Settings#Show Children#Show Class#Toggle#Verbs and Menus...#Vertical Tree#Widget Manager... CUSTOM.WIDGETLIST.Menus: ##
#Control#Customize#Layout#Tools ckManagerWidgetText.currentWidget: Set Value . value WidgetName(currentWidget) midas*MidasCallbackManagerWidgetText.midasIngots: currentWidget midas*Toggle.currentWidget: Set Sensitive . currentWidget!="" midas*Toggle.midasIngots: currentWidget midas*WidgetList*Tree.XmPushButton.activateCallback: if GetClickCount()==2 Toggle Children currentWidmidaswww-1.0/Midaswww.ad100644 002113 001774 00000054323 05302057366 015164 0ustar00tonyjey000000 000000 midaswww*WWWSave.dialogTitle: Save Document midaswww*WWWSave.mapCallback: Set Sensitive ..WWWSaveOk GetValue(....WWWSaveText,value)!="" midaswww*WWWSave.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/MidasWWW/v10/save.html" midaswww*WWWHistoryHelp.activateCallback: Invoke Callback .^ helpCallback midaswww*File.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/menus.html#File" midaswww*WWWButtons.midasCreateCallback: Custom Connect WWW "" . midaswww*WWWButtons.orientation: XMHORIZONTAL midaswww*WWWButtons.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/menus.html#Buttons" midaswww*WWWParamHome.valueChangedCallback: Set Sensitive .^^^WWWParameters...WWWParamApply True\n\ Set Sensitive .^^^WWWParameters...WWWParamReset True\n\ Set Sensitive .^^^WWWParameters...WWWParamSave False midaswww*WWWParamHome.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/options.html#Home" midaswww*WWWMail.dialogTitle: WWW Mail midaswww*WWWMail.mapCallback: Set Sensitive ....WWWMailOk GetValue(....WWWMailToText,value)!="" midaswww*WWWMail.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/slac_library.html#Mail" midaswww*WWWHome.activateCallback: Set Ingot .^^^XmMainWindow WWWFile WWW_Home midaswww*WWWHome.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/home.html" midaswww*WWWCommandText.activateCallback: WWW Link WWWFile\n\ If GetValue(.,value)!="" Set Ingot .^^^XmMainWindow WWWFile Extract(0,Locate("?",WWWFile),WWWFile)++"?"++GetValue(.,value)\n\ Set Value . value "" midaswww*WWWOpenHelp.activateCallback: Invoke Callback .^ helpCallback midaswww*WWWHyper*h6.tagList: SGMLAnchorText: a midaswww*WWWHyper*h1.spaceAfter: 20 midaswww*WWWHyper*h1.tagList: SGMLAnchorText: a midaswww*WWWHyper*h1.breakAfter: SGMLBREAK_ALWAYS midaswww*WWWHyper*h1.font: -*-helvetica-bold-r-normal-*-24-*-*-*-*-*-*-* midaswww*WWWHyper*h1.spaceBefore: 40 midaswww*WWWHyper*h1.underline: 2 midaswww*WWWHyper*h1.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*h1.underlineHeight: 3 midaswww*WWWHyper*h1.leftIndent: -20 midaswww*WWWHyper*dt.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*dt.spaceBefore: 6 midaswww*WWWHyper*dt.position: 20 midaswww*WWWHyper*title.mapCallback: Set Ingot .^^^WWWMain NewTitle HyperGetText() midaswww*WWWHyper*SGMLPlainText.tabs: 8 midaswww*WWWHyper*menu.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*menu.spaceAfter: 4 midaswww*WWWHyper*menu.spaceBefore: 4 midaswww*WWWHyper*menu.breakAfter: SGMLBREAK_ALWAYS midaswww*WWWHyper*menu.tagList: SGMLMarkerText: isindex li SGMLAnchorText: a midaswww*WWWHyper*dir.li.columnAlign: 125 midaswww*WWWHyper*dir.li.breakBefore: SGMLBREAK_NEVER midaswww*WWWHyper*dir.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*dir.spaceAfter: 6 midaswww*WWWHyper*dir.spaceBefore: 6 midaswww*WWWHyper*dir.breakAfter: SGMLBREAK_ALWAYS midaswww*WWWHyper*dir.tagList: SGMLMarkerText: p isindex li SGMLAnchorText: a midaswww*WWWHyper*xmp.font: -*-courier-medium-r-normal-*-17-*-*-*-*-*-iso8859-* midaswww*WWWHyper*xmp.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*xmp.breakAfter: SGMLBREAK_ALWAYS midaswww*WWWHyper*h2.spaceAfter: 10 midaswww*WWWHyper*h2.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*h2.underline: 1 midaswww*WWWHyper*h2.breakAfter: SGMLBREAK_ALWAYS midaswww*WWWHyper*h2.tagList: SGMLAnchorText: a midaswww*WWWHyper*h2.leftIndent: -20 midaswww*WWWHyper*h2.font: -*-helvetica-bold-r-normal-*-20-*-*-*-*-*-*-* midaswww*WWWHyper*h2.spaceBefore: 20 midaswww*WWWHyper*h5.tagList: SGMLAnchorText: a midaswww*WWWHyper*dl.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*dl.spaceAfter: 6 midaswww*WWWHyper*dl.breakAfter: SGMLBREAK_ALWAYS midaswww*WWWHyper*dl.leftIndent: 150 midaswww*WWWHyper*dl.tagList: SGMLMarkerText: p isindex dt dd SGMLCompositeText: dl ul SGMLPlainText: xmp listing plaintext SGMLAnchorText: a midaswww*WWWHyper*dl.spaceBefore: 6 midaswww*WWWHyper*default.sensitiveOutline: true midaswww*WWWHyper*default.sensitiveFont: -*-new century schoolbook-bold-r-*-*-17-*-*-*-*-*-*-* midaswww*WWWHyper*default.leftIndent: 20 midaswww*WWWHyper*default.sensitiveColor: blue midaswww*WWWHyper*default.tagList: SGMLMarkerText: p isindex nextid SGMLCompositeText: address dl h1 h2 h3 h4 h5 h6 dir menu SGMLListText: ul SGMLText: comment title SGMLPlainText: xmp listing plaintext SGMLAnchorText: a midaswww*WWWHyper*default.font: -*-new century schoolbook-medium-r-*-*-17-*-*-*-*-*-*-* midaswww*WWWHyper*address*a.font: -*-new century schoolbook-bold-i-*-*-17-*-*-*-*-*-*-* midaswww*WWWHyper*address.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*address.spaceAfter: 10 midaswww*WWWHyper*address.font: -*-new century schoolbook-medium-i-normal-*-17-*-*-*-*-*-*-* midaswww*WWWHyper*address.breakAfter: SGMLBREAK_ALWAYS midaswww*WWWHyper*address.tagList: SGMLAnchorText: a SGMLMarkerText: p isindex midaswww*WWWHyper*address.spaceBefore: 10 midaswww*WWWHyper*isindex.mapCallback: Set Ingot .^^^XmMainWindow IsIndex True midaswww*WWWHyper*isindex.class: true midaswww*WWWHyper*a.activateCallback: WWW Link WWWNode(.)\n\ Set Ingot .^^^XmMainWindow WWWFile Convert(WWWDest(WWWNode(.)),"WWWFile") midaswww*WWWHyper*a.createCallback: WWW Anchor . WWWFile\n\ Set Value . sensitive GetValue(.,href)!="" midaswww*WWWHyper*h4.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*h4.underline: 1 midaswww*WWWHyper*h4.font: -*-helvetica-bold-r-normal-*-17-*-*-*-*-*-*-* midaswww*WWWHyper*h4.spaceBefore: 8 midaswww*WWWHyper*h4.tagList: SGMLAnchorText: a midaswww*WWWHyper*plaintext.font: -*-courier-medium-r-normal-*-17-*-*-*-*-*-iso8859-* midaswww*WWWHyper*listing.font: -*-courier-medium-r-normal-*-12-*-*-*-*-*-iso8859-* midaswww*WWWHyper*listing.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*listing.breakAfter: SGMLBREAK_ALWAYS midaswww*WWWHyper*dd.position: 170 midaswww*WWWHyper*h3.spaceAfter: 6 midaswww*WWWHyper*h3.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*h3.underline: 1 midaswww*WWWHyper*h3.font: -*-helvetica-bold-r-normal-*-17-*-*-*-*-*-*-* midaswww*WWWHyper*h3.tagList: SGMLAnchorText: a midaswww*WWWHyper*h3.breakAfter: SGMLBREAK_ALWAYS midaswww*WWWHyper*h3.spaceBefore: 12 midaswww*WWWHyper*p.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*p.spaceBefore: 6 midaswww*WWWHyper*ul.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*ul.spaceAfter: 6 midaswww*WWWHyper*ul.leftIndent: 20 midaswww*WWWHyper*ul.breakAfter: SGMLBREAK_ALWAYS midaswww*WWWHyper*ul.tagList: SGMLMarkerText: p isindex li SGMLCompositeText: dl ul SGMLPlainText: xmp listing plaintext SGMLAnchorText: a midaswww*WWWHyper*ul.spaceBefore: 6 midaswww*WWWHyper*li.breakBefore: SGMLBREAK_ALWAYS midaswww*WWWHyper*li.spaceBefore: 6 midaswww*WWWHyper.cacheSize: 10 midaswww*WWWHyper.WWWFileExecuteWhenCreated: False midaswww*WWWHyper.borderWidth: 0 midaswww*WWWHyper*midasIngots: WWWFile midaswww*WWWHyper.WWWFile: Set Cursor .^^^midaswww watch\n\ Set Cursor . ""\n\ Set Ingot .^^^XmMainWindow IsIndex False\n\ Set Ingot .^^^XmMainWindow NewTitle "Untitled" \n\ WWW Get . WWWFile\n\ WWW Add History HistoryList NewTitle\n\ if IsIndex!=KeywordVisible Set Ingot .^^^XmMainWindow KeywordVisible IsIndex\n\ Set Ingot .^^^XmMainWindow WWWTitle NewTitle\n\ Set Cursor .^^^midaswww "" midaswww*WWWSaveCancel.activateCallback: PopDown .^ midaswww*WWWParamOk.activateCallback: If GetValue(.^.WWWParamApply,sensitive) Invoke Callback .^.WWWParamApply activateCallback\n\ PopDown .^^^WWWParameters midaswww*WWWParamOk.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/options.html#Ok" midaswww*WWWParamGate.valueChangedCallback: Set Sensitive .^^^WWWParameters...WWWParamApply True\n\ Set Sensitive .^^^WWWParameters...WWWParamReset True\n\ Set Sensitive .^^^WWWParameters...WWWParamSave False midaswww*WWWParamGate.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/options.html#Gateway" midaswww*WWWMain.midasIngots: WWWFile IsIndex KeywordVisible WWWTitle WWW_Home WWW_Gateway midaswww*WWWMain.helpCallback: Set Ingot . WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/overview.html" midaswww*WWWMain.WWW_HomeExecuteWhenCreated: True midaswww*WWWMain.WWWTitleExecuteWhenCreated: False midaswww*WWWMain.IsIndexExecuteWhenCreated: True midaswww*WWWMain.WWW_Gateway: WWW Set Gateway WWW_Gateway midaswww*WWWMain.midasCreateCallback: Set Value .^ iconPixmap MidasWWWIcon\n\ Custom Create WWW .\n\ Create Widget . SGMLHyper WWWHyper\n\ Set Ingot . HistoryList CreateList(HistoryList)\n\ Set value ....WWWHyper naturalWidth 0++(GetValue(.,width)-35)\n\ Set ingot . WWW_Home GetAppResource(.^,home)\n\ Set ingot . WWW_Gateway GetAppResource(.^,gateway) midaswww*WWWMain.WWW_Home: midaswww*WWWMain.WWWFileExecuteWhenCreated: False midaswww*WWWMain.WWWTitle: Set Value .^ title WWWTitle midaswww*WWWMain.WWW_GatewayExecuteWhenCreated: False midaswww*WWWMain.scrollingPolicy: XMAUTOMATIC midaswww*WWWKey.translations: #override \n\ Shift : SendMidas("Custom Popup WWW") midaswww*WWWMain.translations: #override \n\ : : SendMidas("set value ....WWWHyper naturalWidth 0++(GetValue(.,width)-35)") midaswww*WWWParamSave.activateCallback: Store App Resource .^^^midaswww home WWW_Home\n\ Store App Resource .^^^midaswww gateway WWW_Gateway\n\ Store Resource .^^^XmMainWindow...WWWHyper cacheSize midaswww*WWWParamSave.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/options.html#Save" midaswww*Quit.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/quit.html" midaswww*WWWCommand.KeywordVisible: Set Sensitive . KeywordVisible midaswww*WWWCommand.KeywordVisibleExecuteWhenCreated: False midaswww*WWWCommand.midasIngots: KeywordVisible midaswww*WWWCommand.sensitive: false midaswww*WWWMailHelp.activateCallback: Invoke Callback .^ helpCallback midaswww*SourceTextSW.midasCreateCallback: Create Widget . SGMLHyper WWWSource midaswww*SourceTextSW.ShowSource: If ShowSource Then PopUp .\n\ Else PopDown .\n\ Set Value . width 600\n\ Set Value . height 600\n\ If ShowSource WWW Put ....WWWSource WWWSource(.^^^XmMainWindow...WWWHyper) midaswww*SourceTextSW.ShowSourceExecuteWhenCreated: False midaswww*SourceTextSW.midasIngots: ShowSource midaswww*WWWMenu.midasCreateCallback: Custom Connect WWW "" . midaswww*ShowSource.ShowSourceExecuteWhenCreated: True midaswww*ShowSource.midasIngots: ShowSource midaswww*ShowSource.activateCallback: Set Ingot .^^^WWWDocInfo ShowSource True midaswww*ShowSource.ShowSource: Set Sensitive . ShowSource!=True midaswww*WWWDocInfoCancel.activateCallback: PopDown .^ midaswww*Print.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/slac_library.html#Print" midaswww*WWWParameters.dialogTitle: WWW Options midaswww*WWWParameters.mapCallback: Set Value ....WWWParamHome value WWW_Home\n\ Set Value ....WWWParamGate value WWW_Gateway\n\ Set Ingot . N GetValue(.^^^XmMainWindow...WWWHyper,cacheSize)\n\ if N>0 Set Value ....WWWParamCacheSize value N\n\ else Set Value ....WWWParamCacheSize value 2\n\ Set Value ....WWWParamCacheEnable set N>0\n\ Set Sensitive ....WWWParamCacheSize N>0\n\ Set Sensitive ....WWWParamApply False\n\ Set Sensitive ....WWWParamReset False\n\ Set Sensitive ....WWWParamSave True\n midaswww*WWWParameters.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/options.html" midaswww*WWWHistoryButtons.midasCreateCallback: Custom Connect WWW "" . midaswww*WWWSaveText.valueChangedCallback: Set Sensitive .^^^.WWWSaveOk GetValue(.,value)!="" midaswww*Go_Back.midasIngots: WWWFile midaswww*Go_Back.WWWFile: Set Sensitive . WWWBack(HistoryList)!=0 midaswww*Go_Back.WWWFileExecuteWhenCreated: True midaswww*Go_Back.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/navigate.html#GoBack" midaswww*WWWParamCacheSize.valueChangedCallback: Set Sensitive .^^^WWWParameters...WWWParamApply True\n\ Set Sensitive .^^^WWWParameters...WWWParamReset True\n\ Set Sensitive .^^^WWWParameters...WWWParamSave False midaswww*WWWSource*default.defaultClass: SGMLPlainText midaswww*WWWSource.WWWFile: If ShowSource WWW Put . WWWSource(.^^^XmMainWindow...WWWHyper) midaswww*WWWSource.WWWFileExecuteWhenCreated: False midaswww*WWWSource.BorderWidth: 0 midaswww*WWWSource.midasIngots: WWWFile midaswww*WWWParamCacheEnable.valueChangedCallback: Set Sensitive .^.WWWParamCacheSize GetValue(.,set)\n\ Set Sensitive .^^^WWWParameters...WWWParamApply True\n\ Set Sensitive .^^^WWWParameters...WWWParamReset True\n\ Set Sensitive .^^^WWWParameters...WWWParamSave False midaswww*WWWMailToText.valueChangedCallback: Invoke Callback .^^^WWWMail mapCallback midaswww*WWWWDocInfoDocNameText.WWWFile: Set Value . value WWWFile midaswww*WWWWDocInfoDocNameText.WWWFileExecuteWhenCreated: True midaswww*WWWWDocInfoDocNameText.midasIngots: WWWFile midaswww*WWWSaveOk.activateCallback: WWW Dump .^^^XmMainWindow...WWWHyper GetValue(.^...XmTextField,value)\n\ PopDown .^ midaswww*Mail___.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/slac_library.html#Mail" midaswww*Previous.WWWFile: Set Sensitive . WWWDest(WWWPrev(WWWBack(HistoryList)))!=0 midaswww*Previous.WWWFileExecuteWhenCreated: True midaswww*Previous.midasIngots: WWWFile midaswww*Previous.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/navigate.html#NextPrevious" midaswww*WWWMailDismiss.activateCallback: PopDown .^ midaswww*Save___.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/save.html" midaswww*Text.sensitive: false midaswww*Documents.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/menus.html#Documents" midaswww*HideSource.ShowSource: Set Sensitive . ShowSource midaswww*HideSource.ShowSourceExecuteWhenCreated: True midaswww*HideSource.midasIngots: ShowSource midaswww*HideSource.activateCallback: Set Ingot .^^^WWWDocInfo ShowSource False midaswww*WWWDocInfoDismiss.activateCallback: PopDown .^^ midaswww*Clone_.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/clone.html" midaswww*Next.WWWFile: Set Sensitive . WWWDest(WWWNext(WWWBack(HistoryList)))!=0 midaswww*Next.WWWFileExecuteWhenCreated: True midaswww*Next.midasIngots: WWWFile midaswww*Next.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/navigate.html#NextPrevious" midaswww*WWWSaveHelp.activateCallback: Invoke Callback .^ helpCallback midaswww*SGMLHyper.midasCreateCallback: WWW CopyB . .^ midaswww*SGMLHyper*color: black midaswww*WWWHistoryDismiss.activateCallback: PopDown .^ midaswww*Navigate.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/menus.html#Navigate" midaswww*WWWParamDismiss.activateCallback: PopDown .^^^WWWParameters midaswww*WWWParamDismiss.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/options.html#Dismiss" midaswww*WWWSaveFormatMenu.midasCreateCallback: Custom Connect WWW "" . midaswww*Postscript.sensitive: false midaswww*WWWParamHelp.activateCallback: Invoke Callback .^ helpCallback midaswww*WWWParamReset.activateCallback: Invoke Callback .^^^WWWParameters mapCallback midaswww*WWWParamReset.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/options.html#Reset" midaswww*Customize.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/menus.html#Customize" midaswww*WWWDocOpenOk.activateCallback: PopDown .^ \n\ Set Ingot .^^^XmMainWindow WWWFile GetValue(.^...WWWDocOpenText,value) midaswww*WWWHistory.dialogTitle: Documents visited midaswww*WWWHistory.mapCallback: Realize List HistoryList ....XmList midaswww*WWWHistory.unmapCallback: Unrealize List HistoryList midaswww*WWWHistory.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/navigate.html" midaswww*WWWDocInfoHelp.activateCallback: Invoke Callback .^^ helpCallback midaswww*Help.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/menus.html#Help" midaswww*WWWMailFormatMenu.midasCreateCallback: Custom Connect WWW "" . midaswww*WWWDocOpen.autoUnmanage: false midaswww*WWWDocOpen.dialogTitle: Open Document midaswww*WWWDocOpen.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/opendoc.html" midaswww*WWWDocInfo.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/docinfo.html" midaswww*WWWDocInfo.dialogTitle: Document Info. midaswww*WWWDocInfo.midasIngots: ShowSource midaswww*WWWDocInfo.midasCreateCallback: Set Ingot . ShowSource False midaswww*WWWDocInfo.ShowSourceExecuteWhenCreated: True midaswww*WWWParamCache.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/options.html#Caching" midaswww*WWWDocInfoDocTitleText.WWWTitle: Set Value . value WWWTitle midaswww*WWWDocInfoDocTitleText.WWWTitleExecuteWhenCreated: True midaswww*WWWDocInfoDocTitleText.midasIngots: WWWTitle midaswww*WWWParamApply.activateCallback: If GetValue(.^^^...WWWParamCacheEnable,set) Set Value .^^^XmMainWindow...WWWHyper cacheSize GetValue(.^^^...WWWParamCacheSize,value)\n\ Else Set Value .^^^XmMainWindow...WWWHyper cacheSize 0\n\ Set Ingot .^^^XmMainWindow WWW_Home GetValue(.^^^...WWWParamHome,value)\n\ Set Ingot .^^^XmMainWindow WWW_Gateway GetValue(.^^^...WWWParamGate,value)\n\ Invoke Callback .^^^^WWWParameters mapCallback midaswww*WWWParamApply.helpCallback: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/options.html#Apply" midaswww*WWWMailOk.activateCallback: WWW Dump .^^^XmMainWindow...WWWHyper ".mwww_temp"\n\ system "mail %GetValue(.^^^WWWMail...WWWMailToText,value) < .mwww_temp"\n\ system "rm .mwww_temp"\n\ PopDown .^ midaswww.home: http://slacvx.slac.stanford.edu:80/midaswww/v10/welcome.html midaswww.startup: Open Uid midaswww.uid .\n\ Popup WWWMain\n\ WWW Init .\n\ Invoke Callback ....Home_Page activateCallback\n\ Set Ingot Midas_Main NWin 1 midaswww.gateway: http://htmlgate.slac.stanford.edu:2784 midaswww.visitedFont: -*-new century schoolbook-medium-r-*-*-17-*-*-*-*-*-*-* midaswww.visitedColor: lightBlue CUSTOM.WWW.Verb.26: Popup .^^^XmMainWindow...WWWSave CUSTOM.WWW.Verb.14: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/help.html" CUSTOM.WWW.Verb.16: Popup .^^^XmMainWindow...WWWDocOpen CUSTOM.WWW.Verb.21: WWW Dump .^^^XmMainWindow...WWWHyper ".mwww_temp"\n\ system "lpr -r .mwww_temp" CUSTOM.WWW.Verb.8: Set Ingot .^^^XmMainWindow WWWFile WWW_Home CUSTOM.WWW.Verb.6: Set Ingot .^^^XmForm Format HTML CUSTOM.WWW.Verb.24: Set Ingot .^^^XmMainWindow WWWFile "http://slacvm.slac.stanford.edu:5080/FIND/SLAC.HTML" CUSTOM.WWW.Verb.22: if GetIngot(Midas_Main,NWin)==1 Quit\n\ Set Ingot Midas_Main NWin GetIngot(Midas_Main,NWin)-1\n\ Destroy .^^^midaswww CUSTOM.WWW.Verb.1: Set Ingot .^^^XmMainWindow WWWFile "http://info.cern.ch:2784/hypertext/DataSources/bySubject/Overview.html" CUSTOM.WWW.Verb.19: Set Ingot .^^^XmForm Format PS CUSTOM.WWW.Verb.15: Set Ingot .^^^XmMainWindow WWWFile "http://info.cern.ch/hypertext/WWW/TheProject.html" CUSTOM.WWW.Verb.31: Custom Popup WWW CUSTOM.WWW.Verb.2: Create Shell midaswww\n\ Set Value midaswww x GetValue(.^^^midaswww,x)+40\n\ Set Value midaswww y GetValue(.^^^midaswww,y)+40\n\ Fetch WWWMain:parent=midaswww\n\ Popup WWWMain\n\ Set Ingot WWWMain WWWFile WWWFile \n\ Set Ingot Midas_Main NWin GetIngot(Midas_Main,NWin)+1 CUSTOM.WWW.Verb.7: Popup .^^^WWWMain...WWWHistory CUSTOM.WWW.Verb.27: Popup WWWStartup CUSTOM.WWW.Verb.18: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/overview.html" CUSTOM.WWW.Verb.10: Popup Midas_Main CUSTOM.WWW.Verb.23: WWW Zap .^^^XmMainWindow...WWWHyper WWWFile\n\ WWW Link\n\ Set Ingot .^^^XmMainWindow WWWFile Convert(WWWFile,"WWWFile") CUSTOM.WWW.Verb.3: Popup .^^^XmMainWindow...WWWDocInfo CUSTOM.WWW.Verb.28: Set Ingot .^^^XmForm Format TEXT CUSTOM.WWW.Verb.25: Custom Write WWW\n\ Save Stored Resources . CUSTOM.WWW.Verb.4: WWW Dump .^^^XmMainWindow...WWWHyper CUSTOM.WWW.Verb.17: Popup .^^^XmMainWindow...WWWParameters CUSTOM.WWW.Verb.11: Set Ingot . Temp WWWNext(WWWBack(HistoryList))\n\ WWW Delete History HistoryList\n\ WWW Link Temp \n\ Set Ingot .^^^XmMainWindow WWWFile Convert(WWWDest(Temp),"WWWFile") CUSTOM.WWW.Verb.30: Set Ingot .^^^XmForm Format TEXT CUSTOM.WWW.Verb.12: Set Ingot .^^^XmMainWindow WWWFile "http://slacvx.slac.stanford.edu:80/midaswww/v10/about.html" CUSTOM.WWW.Verb.5: Set Ingot . Temp WWWBack(HistoryList)\n\ WWW Delete History HistoryList\n\ WWW Link\n\ Set Ingot .^^^XmMainWindow WWWFile Convert(Temp,"WWWFile") CUSTOM.WWW.Verb.29: Custom Popup WWW CUSTOM.WWW.Verb.20: Set Ingot . Temp WWWPrev(WWWBack(HistoryList))\n\ WWW Delete History HistoryList\n\ WWW Link Temp \n\ Set Ingot .^^^XmMainWindow WWWFile Convert(WWWDest(Temp),"WWWFile") CUSTOM.WWW.Verb.13: Help On Context . CUSTOM.WWW.Verb.9: Popup .^^^XmMainWindow...WWWMail CUSTOM.WWW.Menu.3: Next\\11#Previous\\20#Go Back\\5 CUSTOM.WWW.Menu.10: Front Page\\6#Academic Information\\2 CUSTOM.WWW.Menu.4: File =>\\-7#Documents =>\\-6#Navigate =>\\-9#Customize =>\\-5#Help =>\\-8 CUSTOM.WWW.Menu.8: Overview\\18#On Bugs\\12#On WWW\\15#On Help\\14#......\\0#On Context\\13 CUSTOM.WWW.Menu.6: Home Page\\8#Academic Information\\1 CUSTOM.WWW.Menu.1: Go Back\\5#Next\\11#Previous\\20#......\\0#Save...\\26#......\\0#Clone \\2#Quit\\22 CUSTOM.WWW.Menu.5: Options...\\17#......\\0#Save Current Settings\\25 CUSTOM.WWW.Menu.9: History...\\7#......\\0#Go Back\\5#Next\\11#Previous\\20 CUSTOM.WWW.Menu.2: HTML\\6#Text\\28#Postscript\\19 CUSTOM.WWW.Menu.7: Reread Document\\23#Open Document...\\16#Document Info...\\3#......\\0#Save...\\26#......\\0#Clone \\2#......\\0#Quit\\22 CUSTOM.WWW.Verbs: Academic Information#Clone #Document Info...#Dump#Go Back#HTML#History...#Home Page#Mail...#Midas...#Next#On Bugs#On Context#On Help#On WWW#Open Document...#Options...#Overview#Postscript#Previous#Print#Quit#Reread Document#SLAC#Save Current Settings#Save...#Startup...#Text#Verbs and Menus... CUSTOM.WWW.Menus: ####Customize#Documents#File#Help#Navigate WWFileExecuteWhenCreated: False midaswww*WWWSource.BorderWidth: 0 midaswww*WWWSource.midasIngots: WWWFile midaswww*WWWParamCacheEnable.valueChangedCallback: Set Sensitive .^.WWWParamCacheSize GetValue(.,set)\n\ Set Sensitive .^^^WWWParameters...WWWParamApply True\n\ Set Sensitive .^^^WWWParameters...midaswww-1.0/descrip.mms100644 002113 001774 00000003564 05302057366 015224 0ustar00tonyjey000000 000000 # Makefile to construct the midaswww library # Tony Johnson, Oct, 1992 .First @ delete == "delete/noconf" @ define rpc multinet_root:[multinet.include.rpc] @ define netinet multinet_root:[multinet.include.netinet] @ define sys multinet_root:[multinet.include.sys] NAME=midaswww LIBRARY = $(NAME).olb LIBMEMS = $(LIBRARY)(- custom.obj , - midas.obj , - midasclass.obj , - midasconvert.obj , - midasdeclare.obj , - midasevaluate.obj , - midasingot.obj , - midaslist.obj , - midasloadimage.obj , - midasutil.obj , - sgmlanchortext.obj , - sgmlcompositetext.obj , - sgmlformattedtext.obj , - sgmlhyper.obj , - sgmllisttext.obj , - sgmlmarkertext.obj , - sgmlplaintext.obj , - sgmltext.obj , - tree.obj) # Targets all : exe midas.uid midaswww.uid midas.dat midaswww.dat ! done midas.uid : midas.uil UIL/MOTIF $< midaswww.uid : midaswww.uil UIL/MOTIF $< midas.dat : midas.ad COPY $< *.dat midaswww.dat : midaswww.ad COPY $< *.dat $(NAME).exe : $(NAME).obj $(NAME).olb link $(NAME),$(NAME)/opt delete/noconf $(NAME).obj;* purge $(NAME).exe exe : @ $(MMS) $(MMSQUALIFIERS)/skip $(NAME).exe test : all @ define/user decw$user_defaults sys$disk:[] @ midaswww := $sys$disk:[]midaswww.exe @ midaswww -name "midaswww" clean : delete/noconfirm *.obj;* help : @echo ' lib: makes $(NAME).olb' @echo ' debug: makes $(NAME)_debug.olb' @echo ' util: makes utilities nt2text.exe and text2nt.exe' @echo ' clean: removes all .obj files' @echo ' install: installs libraries and include files' $(LIBRARY) : $(LIBMEMS) midaswww-1.0/midaswww.opt100644 002113 001774 00000000472 05302057366 015436 0ustar00tonyjey000000 000000 midaswww/lib/inc=(tree,sgmlanchortext,sgmlcompositetext,sgmlplaintext, - sgmlformattedtext,sgmlhyper,sgmltext,sgmlmarkertext, - sgmllisttext) sys$share:DECW$DXMLIBSHR/SHAREABLE sys$share:DECW$XLIBSHR/SHAREABLE multinet_socket_library/share psect_attr = SYS_ERRLIST, shr, nowrt midaswww-1.0/README_VMS100644 002113 001774 00000007666 05302057366 014471 0ustar00tonyjey000000 000000 MidasWWW VAX Installation Instructions VAX INSTALLATION INSTRUCTIONS These instructions are for the VAX. See README file for UNIX installation instructions. Requirements To install this version of MidasWWW you will need a VAX running VMS 5.4 or greater, with DecWindows/Motif and C installed. You will also need MMS to be able to build MidasWWW in the standard way (although you could certainly build MidasWWW without MMS if you do a little more work). Currently MidasWWW has only been run with Multinet TCP/IP software. It should be possible to run it with other versions of TCP/IP for the VAX without too much trouble, if you succeed please feed the changes back to me. Obtaining MidasWWW You can obtain MidasWWW as a compressed TAR file via anonymous FTP from FreeHEP.Scri.Fsu.Edu, in directory /pub/freehep/networking_email_news/midaswww In this case you will need TAR2VMS and some way to uncompress the file (I don't know of a VMS version of uncompress...I usually uncompress files on UNIX and then ship the tar file to VMS). Alternatively if you are on HEPNET you can get a VMS BACKUP version of MidasWWW using DECNET from: SLACVX::DISK$SLD_FAC0:[EXPORT]MIDASWWW_1_0.BCK (SLACVX is HEPNET node 44.481). To unpack the backup file use the command: $ backup/log MIDASWWW_1_0.BCK/save *.* Building Once you have obtained MidasWWW and unpacked it, set your default directory to be the directory containing the unpacked files. To build MidasWWW use the following command: $ mms all Testing To try out MidasWWW first make sure your X windows DISPLAY is set up correctly (use the SET DISPLAY command to set it). Then issue the command: $ mms test Please ignore the message X Toolkit Warning: Urm__FetchLiteral: Can't find literal 'MidasWWWIcon' - MrmNO T_FOUND This is a known bug. Installing To install MidasWWW five files must be placed in a public area. These are: MIDASWWW.EXE The executable file MIDAS.UID User Interface definition file MIDASWWW.UID User Interface definition file MIDAS.DAT X-resource file MIDASWWW.DAT X-resource file If you do not install all five files MidasWWW will not run. The .EXE file can be installed anywhere (for example in the SYS$SYSTEM: directory), and a suitable global symbol should be defined in the system login file. A suitable definition is: $ MIDASWWW == "$SYS$SYSTEM:MIDASWWW -NAME MIDASWWW" The four remaining files must be installed in a directory pointed to by the logical name DECW$SYSTEM_DEFAULTS, for example in SYS$COMMON:[DECW$DEFAULTS.USER]. Once this has been done your users will be able to start MidasWWW by using the command: $ MIDASWWW Starting MidasWWW from your Session Manager If you wish "World Wide Web" to appear in the applications menu of your DecWindows session manager or FileView then you must install two more files. These are: MIDASWWW.VUE$DAT Defines an entry in the "Application" menu VUE$MIDASWWW.COM Runs MidasWWW from FileView (These files are only included in the BACKUP version of the MidasWWW distribution). Both files must be installed in a directory pointer to by VUE$LIBRARY, for example SYS$COMMON:[VUE$LIBRARY.USER]. Please let me know if you encounter any problems. Tony Johnson Tony_Johnson@Slac.Stanford.Edu midaswww-1.0/README100644 002113 001774 00000010316 05302057366 013726 0ustar00tonyjey000000 000000 MidasWWW UNIX Installation Instructions UNIX INSTALLATION INSTRUCTIONS These instructions are for UNIX. See the README_VMS file for VMS installation instructions. Requirements To install this version of MidasWWW you will need a Unix system with X windows (X11R4 or X11R5) and Motif (version 1.1.0 or greater). The current version has been tested on the following systems: SGI - Indigo (4.0.5) RS6000 (AIX 3.2.2) HP-UX MidasWWW should be portable to other unix systems. Please let me know if you port it to other systems, and let me know of any changes you had to make. Obtaining MidasWWW You can obtain MidasWWW as a compressed TAR file via anonymous FTP from FreeHEP.Scri.Fsu.Edu, in directory /pub/freehep/networking_email_news/midaswww After obtaining the TAR file, uncompress it and detar it using the commands: uncompress midaswww-1.0.tar.Z tar -xvf midaswww-1.0.tar cd midaswww-1.0 Building There are two ways to go about building MidasWWW. The way that is in principle recommended is to use the standard X-windows utility xmkmf (x-make-makefile). This facility is supposed to take into account any machine dependencies, and to correctly link against the correct libraries on your machine. I have found a number of problems with using xmkmf however: It appears not to be installed on many machines It doesn't appear to always do as good a job as one would like in removing machine dependencies. Consequently we support two ways of building MidasWWW, with xmkmf or without xmkmf, choose one! WITH XMKMF Build MidasWWW as follows: xmkmf make WITHOUT XMKMF Choose the one of the following makefiles: Makefile.sgi Makefile.aix32 Makefile.hp If a standard makefile doesn't exist for your machine, then either try using xmkmf or try making one yourself using one of the above as a starting point. If you succeed please send the new Makefile back to me so that others can benefit from your work. Then use the following commands (where MMMM is the makefile you chose): cp MMMM Makefile make Testing To try out MidasWWW first make sure your DISPLAY envirnonment variable is set up correctly. Then issue the command: $ make test Please ignore the message X Toolkit Warning: Urm__FetchLiteral: Can't find literal 'MidasWWWIcon' - MrmNO T_FOUND This is a known bug. NOTES On HP machines these extra error messages are generated: Warning: translation table syntax error: Missing ':'after event sequence. Warning: ... found while parsing '' I have no idea why but they don't seem to do any harm. Installation At run time there are five files that must be successfully accessed in order for MidasWWW to run correctly. These files are: midaswww The binary executable file midas.uid User Interface Description file midaswww.uid User Interface Description file Midas.ad X-Applications Default File Midaswww.ad X-Applications Default File If you do not install all five files MidasWWW will not run. The following commands will install MidasWWW for public use on most systems. cp midaswww /usr/bin/X11/midaswww cp midas.uid /usr/lib/X11/uid/midas.uid cp midaswww.uid /usr/lib/X11/uid/midaswww.uid cp Midas.ad /usr/lib/X11/app-defaults/Midas cp Midaswww.ad /usr/lib/X11/app-defaults/Midaswww Once this is done the MidasWWW browser can be run using the command midaswww NOTES The directory /usr/lib/X11/uid often doesn't exist and must be greated using mkdir. The uid files must be installed in a directory searched by the routine MrmOpenHierarchy. See the man page for that routine for more details. The .ad files must be installed in the appropriate app-defaults directory, WITHOUT the .ad suffix. f or without xmkmf, choose one! WITH XMKMF Build MidasWWW as follows: xmkmf make WITHOUT XMKMF Choose the one of the following makefiles: Makefile.sgi Makefile.aix32 Makefile.hp If a standard makefile doesn't exist for your machine, then either try using xmk MidasWWW VAX Installation Instructions VAX INSTALLATION INSTRUCTIONS These instructions are for the VAX. See README file for UNIX installation instructions. Requirements To install this version of MidasWWW you will need a VAX running VMS 5.4 or greater, with DecWindows/Motif and C installed. You will also need MMS to be able to build MidasWWW in the standard way (although you could certainly build MidasWWW without MMS if you do a little more work). Currently MidasWWW has only been run with Multinet TCP/IP software. It should be possible to run it with other versions of TCP/IP for the VAX without too much trouble, if you succeed please feed the changes back to me. Obtaining MidasWWW You can obtain MidasWWW as a compressed TAR file via anonymous FTP from FreeHEP.Scri.Fsu.Edu, in directory /pub/freehep/networking_email_news/midaswww In this case you will need TAR2VMS and some way to uncompress the file (I don't know of a VMS version of uncompress...I usually uncompress files on UNIX and then ship the tar file to VMS). Alternatively if you are on HEPNET you can get a VMS BACKUP version of MidasWWW using DECNET from: SLACVX::DISK$SLD_FAC0:[EXPORT]MIDASWWW_1_0.BCK (SLACVX is HEPNET node 44.481). To unpack the backup file use the command: $ backup/log MIDASWWW_1_0.BCK/save *.* Building Once you have obtained MidasWWW and unpacked it, set your default directory to be the directory containing the unpacked files. To build MidasWWW use the following command: $ mms all Testing To try out MidasWWW first make sure your X windows DISPLAY is set up correctly (use the SET DISPLAY command to set it). Then issue the command: $ mms test Please ignore the message X Toolkit Warning: Urm__FetchLiteral: Can't find literal 'MidasWWWIcon' - MrmNO T_FOUND This is a known bug. Installing To install MidasWWW five files must be placed in a public area. These are: MIDASWWW.EXE The executable file MIDAS.UID User Interface definition file MIDASWWW.UID User Interface definition file MIDAS.DAT X-resource file MIDASWWW.DAT X-resource file If you do not install all five files MidasWWW will not run. The .EXE file can be installed anywhere (for example in the SYS$SYSTEM: directory), and a suitable global symbol should be defined in the system login file. A suitable definition is: $ MIDASWWW == "$SYS$SYSTEM:MIDASWWW -NAME MIDASWWW" The four remaining files must be installed in a directory pointed to by the logical name DECW$SYSTEM_DEFAULTS, for example in SYS$COMMON:[DECW$DEFAULTS.USER]. Once this has been done your users will be able to start MidasWWW by using the command: $ MIDASWWW Starting MidasWWW from your Session Manager If you wish "World Wide Web" to appear in the applications menu of your DecWindows session manager or FileView then you must install two more files. These are: MIDASWWW.VUE$DAT Defines an entry in the "Application" menu VUE$MIDASWWW.COM Runs MidasWWW from FileView (These files are only included in the BACKUP version of the MidasWWW distribution). Both files must be installed in a directory pointer to by VUE$LIBRARY, for example SYS$COMMON:[VUE$LIBRARY.USER]. Please let me know if you encounter any problems. Tony Johnson Tony_Johnson@Slac.Stanford.Edu midaswww-1.0/README100644 002113 001774 00000010316 05302057366 013726 0ustar00tonyjey000000 000000 MidasWWW UNIX Installation Instructions UNIX INSTALLATION INSTRUCTIONS These instructions are for UNIX. See the README_VMS file for VMS installation instructions. Requirements To install this version of MidasWWW you will need a Unix system with X windows (X11R4 or X11R5) and Motif (version 1.1.0 or greater). The current version has been tested on the following systems: SGI - Indigo (4.0.5) RS6000 (AIX 3.2.2) HP-UX MidasWWW should be portable to other unix systems. Please let me know if you port it to other systems, and let me know of any changes you had to make. Obtaining MidasWWW You can obtain MidasWWW as a compressed TAR file via anonymous FTP from FreeHEP.Scri.Fsu.Edu, in directory /pub/freehep/networking_email_news/midaswww After obtaining the TAR file, uncompress it and detar it using the commands: uncompress midaswww-1.0.tar.Z tar -xvf midaswww-1.0.tar cd midaswww-1.0 Building There are two ways to go about building MidasWWW. The way that is in principle recommended is to use the standard X-windows utility xmkmf (x-make-makefile). This facility is supposed to take into account any machine dependencies, and to correctly link against the correct libraries on your machine. I have found a number of problems with using xmkmf however: It appears not to be installed on many machines It doesn't appear to always do as good a job as one would like in removing machine dependencies. Consequently we support two ways of building MidasWWW, with xmkmf or without xmkmf, choose one! WITH XMKMF Build MidasWWW as follows: xmkmf make WITHOUT XMKMF Choose the one of the following makefiles: Makefile.sgi Makefile.aix32 Makefile.hp If a standard makefile doesn't exist for your machine, then either try using xmkmf or try making one yourself using one of the above as a starting point. If you succeed please send the new Makefile back to me so that others can benefit from your work. Then use the following commands (where MMMM is the makefile you chose): cp MMMM Makefile make Testing To try out MidasWWW first make sure your DISPLAY envirnonment variable is set up correctly. Then issue the command: $ make test Please ignore the message X Toolkit Warning: Urm__FetchLiteral: C