(Shape (Height 300 - 200 + Inf) (Width 425 - 200 + Inf) %editor (Filter %top (LabelFont (Family "new century schoolbook")) (Font "fixed") (Macro tra BOA (x) `(Text RightAlign ,x)) (Macro command BOA (name label k1 k2 k3 k4 (type (MButton))) `(,@type ,name (HBox (Text LeftAlign ,label) Fill (TSplit %,(SxSymbol.FromName (Text.Cat "Model_" (SxSymbol.Name (List.Nth name 1)))) (tra ,k1) (tra ,k2) (tra ,k3) (tra ,k4))))) (Macro H BOA (x) `(Shape (Height + 0) ,x)) (Insert "finder.fv") (Insert "confirm.fv") (Insert "yesno.fv") (ZSplit (ZBackground (VBox (BgColor "PaleYellow") (Glue 3) (MenuBar (HBox (LightShadow "VeryVeryLightBlue") (DarkShadow "Blue") (Glue 5) (Menu (Shape (Width 30) (Height 13.5) (Pixmap "pen.pbm")) (Border (VBox (PopMButton (For aboutMFE) (Text LeftAlign "About FormsEdit...")) (Glue 3) (Bar 1) (Glue 3) (command %Help "Help..." "oH" "M-h" "M-h" "M-h" (PopMButton (For manpage))) (Bar 1) (Radio %Model (Macro TLA BOA (x) `(Text LeftAlign ,x)) (HBox (Glue 10) (VBox "Editing Model" (Choice %ivyModel MenuStyle (TLA "Ivy")) (Choice %emacsModel MenuStyle (TLA "Emacs")) (Choice %macModel MenuStyle (TLA "Mac")) (Choice %xtermModel MenuStyle (TLA "Xterm"))))) (Bar 1) (command %quit2 "Quit" "oQ" "M-q" "M-q" "M-q")))) (Glue 5) (Menu (Text (Margin 10) "File") (Border (Shape (Width 110) (VBox (command %new "New" "oN" "M-n" "M-n" "M-n") (command %openMButton "Open..." "oO" "M-o" "M-o" "M-o" (PopMButton (For OpenDialog))) (Glue 3) (Bar 1) (Glue 3) (MButton %close (Text LeftAlign "Close")) (Filter (command %save "Save" "oS" "M-s" "M-s" "M-s")) (PopMButton (For SaveAsDialog) %saveasMButton (Text LeftAlign "Save As...")) (Filter (PopMButton (For RevertDialog) %revertbutton (Text LeftAlign "Revert To Saved"))) (Glue 3) (Bar 1) (Glue 3) (PopMButton %ppwidthPopMButton (For PPwidthNumeric) (Text LeftAlign "PP setup...")) (command %PPrint "PPrint" "oP" "M-p" "M-p" "M-p") (Glue 3) (Bar 1) (Glue 3) (command %quit "Quit" "oQ" "M-q" "M-q" "M-q"))))) (Glue 5) (Menu (Text (Margin 10) "Edit") (Border (Shape (Width 100) (VBox (command %undo "Undo" "cZ" "C-_" "M-z" "M-z") (command %redo "Redo" "csZ" "M-_" "M-z" "M-Z") (Glue 3) (Bar 1) (Glue 3) (command %cut "Cut" "oX" "C-w" "M-x" "M-x") (command %copy "Copy" "oC" "M-w" "M-c" "M-c") (command %paste "Paste" "oV" "C-y" "M-v" "M-v") (command %clear "Clear" "" "" "" "") (command %selectAll "SelectAll" "oA" "M-a" "M-a" "M-a") (Bar 1) (command %findMButton "Find..." "oF" "" "M-f" "M-f") (command %findNext "Find Next" "cN" "C-s" "" "") (command %findPrev "Find Prev" "oM" "C-r" "" ""))))) (Glue 5) (Menu (Text (Margin 10) "Misc") (Border (VBox (LightShadow "VeryLightBlue") (DarkShadow "DarkBlue") (BgColor "White") (PopMButton %dumpTable (For dumpTablePopup) "Show the named VBTs...") (PopMButton %snapshot (For snapshotDialog) "Show current snapshot...") (Filter %rescreenFilter (VBox %rescreenMenu))))) (Glue 5) Fill (HBox (Text (Color "Red") %modified RightAlign " ") (Text %shortname LeftAlign "")) Fill (Glue 5) (Shape (Button (BgColor "VeryPaleBlue") (DarkShadow "Blue") %parse (Text (Margin 10) "Do It"))) (Glue 5))) (Glue 3) (Bar 1) (finder %FindInBuffer (first bhelpfindfirst) (next bhelpfindnext) (prev bhelpfindprev) (case bhelpcase) (typein bhelpfindtext)) (TextEdit %buffer =""))) (ZChassis %manpage (BgColor "VeryPaleBlue") (Title "formsedit help") (VBox (MenuBar (HBox (DarkShadow "Blue") (PageButton (For FindDialog) "Search...") Fill)) (Bar 1) (finder %FindDialog (first helpfindfirst) (next helpfindnext) (prev helpfindprev) (case helpcase) (typein helpfindtext)) (Shape (Width 360 + Inf) (Height 150 + Inf) (TextEdit ReadOnly (Font "fixed") %manpagetext ="")))) (ZChild %notfound (BgColor "PaleOrange") (Border (Pen 1) (Rim (Pen 1) (Border (Pen 2) (Rim (Pen 10) (VBox "Not found." (Glue 10) (CloseButton "OK"))))))) (ZChild %aboutMFE (LightShadow "VeryVeryLightBlue") (DarkShadow "Blue") (BgColor "PaleWhite") (Border (Pen 1.5) (Rim (Pen 2) (Border (Pen 1) (Rim (Pen 6) (VBox (Glue 6) (HBox (VBox (Text LeftAlign "FormsEdit version 2.6a") (Text LeftAlign "Written by Jim, Marc, and Steve.") (Text LeftAlign "Send comments to meehan@src.dec.com") (Glue 6) Ridge (Glue 6) (HBox Fill (Shape (Width 56) (Height 24) (BgColor "PaleYellow") (CloseButton "Close")) Fill)) (Glue 6) (Filter (Color "Blue") (Pixmap "digitalLogo.pbm"))))))))) (ZChassis %errorPopup NoClose (At 1. 1. SE) (BgColor "QuitePaleGreen") (Title "Error") (LightShadow "White") (DarkShadow "DarkGreen") (VBox (Shape (Width 300 + Inf - 200) (Height 50 + Inf - 50) (TextEdit %stderr ReadOnly ="")) (Bar 1) (HBox Fill (CloseButton %closeError (Text (Margin 15) "OK")) Fill))) (ZChassis %PPwidthNumeric (BgColor "PaleGold") (Title (Text (BgColor "White") "PrettyPrint width")) (At 0.1 0.1 NW) (Shape (Width 60) (Numeric %ppwidth =78 (Min 30) (Max 200)))) (ZChassis %snapshotDialog (BgColor "VeryPaleTurquoise") (Title (Text (BgColor "White") (Color "DarkTurquoise") "Current Snapshot")) (Shape (Width 450 + Inf - 250) (Height 150 - 100 + Inf) (TextEdit (Font "fixed") %SnapshotText ReadOnly =""))) (ZChassis %dumpTablePopup (BgColor "PaleGold") (Title (Text (BgColor "White") (Color "Blue") "Named VBTs")) (Shape (Width 450 + Inf - 250) (Height 150 - 100 + Inf) (TextEdit (Font "fixed") %VBTtable ReadOnly =""))) (ZChassis %OpenDialog (Font "fixed") (BgColor "VeryPaleGreen") (Title "Open an existing file") (Shape (Width 300 - 200 + Inf) (LightShadow "White") (DarkShadow "RatherDarkGreen") (ShadowSize 2) (Border (Pen 1) (Rim (Pen 10) (VBox (HBox (Shape (Width 150 + Inf) (Height 150 + Inf) (VBox (LabelFont "fixed") (DirMenu (For openfile)) (Glue 6) (Border (FileBrowser %openfile (BgColor "White") ReadOnly)))) Fill (Shape (Width 100) (VBox Fill (Button %open "Open") (Glue 10) (CloseButton "Cancel")))) (Glue 6) (HBox (Shape (Width 30) (Height 16) "File:") (Frame Lowered (BgColor "VeryPaleGray") (Helper %fbh (For openfile)))) (Glue 6) (HBox (Radio (VBox (Choice %reuse (Text LeftAlign "Use this window")) (Choice %newwindow =#TRUE (Text LeftAlign "Open a new window")))) Fill (Radio (VBox (Choice %fvonly =#TRUE (Text LeftAlign "*.fv only")) (Choice %notfvonly (Text LeftAlign "Any file")))))))))) (ZChassis %SaveAsDialog (Font "fixed") (BgColor "VeryPaleBlue") (Title "Save As...") (Shape (Width 300 - 200 + Inf) (LightShadow "White") (ShadowSize 2) (DarkShadow "DarkBlue") (Border (Pen 1) (Rim (Pen 10) (VBox (HBox (Shape (Width 150 + Inf) (Height 150 + Inf) (VBox (LabelFont "fixed") (DirMenu (For saveasfile)) (Glue 6) (Border (FileBrowser %saveasfile (BgColor "White"))))) Fill (Shape (Width 100) (VBox Fill (Button %saveas "Save") (Glue 10) (Filter (CloseButton %cancelsaveas "Cancel"))))) (Glue 6) (HBox (Shape (Width 30) (Height 16) "File:") (Frame Lowered (BgColor "VeryVeryPaleBlue") (Helper %sfbh (For saveasfile))))))))) (Confirm %quitConfirmation (question "Save changes before quitting?") (yes saveandquit) (no quitAnyway) (cancel dontquit) (cancelMsg "Don't quit")) (Confirm %switchConfirmation (question "Save changes before switching?") (yes saveandswitch) (no switchAnyway) (cancel cancelSwitch) (cancelMsg "Don't switch")) (Confirm %closeConfirmation (question "Save changes before closing?") (yes saveandclose) (no closeAnyway) (cancel cancelClose) (cancelMsg "Don't close")) (YesNo %overwriteConfirmation (msg "That file already exists. Overwrite it?") (yes overwrite) (no dontOverwrite)) (YesNo %RevertDialog (yes revert) (no dontRevert) (msg "Revert to the last version saved?")))))