
Tioga Macros
Make Bold makes the selected text bold.
Box adds (or removes) a box around the selected text.
Sort sorts all but the first word in a list <word> <word>, <word>, ... , <word>;

DIRECTORY
Rules, PopUpButtons, Imager, GraphicsButton, AtomButtons;

IMPORTS Rules, PopUpButtons, Imager, GraphicsButton, AtomButtons

Implement PROC turns a procedure-definition into a procedure implementation.

ButtonDataToRope: PROC [val: REF] RETURNS [rope: ROPE];

Line-Fold: No adds the line "Line-Fold: No" to a message header.

Subject: Changing Message Headers With a Button-Click
To: YAM-Attendees^
Cc: bier
Reply-To: bier

This macro by Pavel Curtis uses search to find a message header, and then makes an addition to that header.

	-- Eric
     
 Ê•  •NewlineDelimiter
–(cedardoc) style™ Ititle˜ Icentertitle˜Iblock•	CharPropsÈ	Postfix-1.0 outlineBoxBearoff 1.0 outlineBoxThickness
ButtonData=PopUpButton (((1 ApplyLook) "Make Bold" "Makes text bold"))ButtonTargetTiogaButtonFeedback"((MouseMoved <Cursor bullseye>)) ˜'M–œPostfix-1.0 outlineBoxBearoff 1.0 outlineBoxThickness
ButtonData…PopUpButton (((SaveSelectionA PropForSelectedCharacter ClearPropName "Postfix" ClearPropValue "1.0 outlineBoxBearoff 1.0 outlineBoxThickness" RestoreSelectionA SetNodeProp) "1-Pixel Box" "Puts a 1-pixel wide box around the selected text")((SaveSelectionA PropForSelectedCharacter ClearPropName "Postfix" ClearPropValue "1.0 outlineBoxBearoff 2.0 outlineBoxThickness" RestoreSelectionA SetNodeProp) "2-Pixel Box" "Puts a 2-pixel wide box around the selected text")((SaveSelectionA PropForSelectedCharacter ClearPropName "Postfix"  RestoreSelectionA RemoveNodeProp) "Clear Box" "Clears the box (and all other postfix properties) from the selected text"))ButtonTargetTiogaButtonFeedback"((MouseMoved <Cursor bullseye>))2 ˜5–èPostfix-1.0 outlineBoxBearoff 1.0 outlineBoxThickness
ButtonData…\PopUpButton (((MakePointSelection GrowSelection GrowSelection GrowSelection CaretAfter 1 BackSpace ", " GrowSelection GrowSelection GrowSelection SortText DoSortAndRemoveDuplicates CaretAfter 1 BackSpace 1 BackSpace ";" ) "Sort DIRECTORY" "Sorts single-node DIRECTORY statements")()((MakePointSelection GrowSelection GrowSelection GrowSelection CaretBefore MakePointSelection GrowSelection GrowSelection CaretAfter 1 GoToNextChar Break GrowSelection GrowSelection GrowSelection CaretAfter ", " GrowSelection GrowSelection GrowSelection SortText DoSortAndRemoveDuplicates CaretAfter 1 BackSpace 1 BackSpace GrowSelection GrowSelection GrowSelection CaretBefore 1 BackSpace) "Sort IMPORTS" "Sorts single-node IMPORTS statements"))ButtonTargetTiogaButtonFeedback"((MouseMoved <Cursor bullseye>))L ˜PIdefault˜ codešÏk	˜	O˜9N˜ —Ošœ9˜@J˜ —– Postfix-1.0 outlineBoxBearoff 1.0 outlineBoxThickness
ButtonData‚PopUpButton ((("PUBLIC " GrowSelection GrowSelection GrowSelection SetMesaLooks CaretAfter 1 BackSpace ClearCaretLooks " = {" Break Nest "};" 1 GoToPreviousNode Break Nest) "Implement PUBLIC" "Turns a procedure definition into an implementation skeleton for a PUBLIC PROC"))ButtonTargetTiogaButtonFeedback"((MouseMoved <Cursor bullseye>))> ˜LM˜ Oš
Ïnœœœœœ˜7M˜ —M–’Postfix-1.0 outlineBoxBearoff 1.0 outlineBoxThickness
ButtonData‚PopUpButton (((SaveSelectionA ClearSearchFor "To:*" MatchNodes MatchPattern SearchAnywhere MakeNotPendingDelete Break 18 ApplyLook 1 ApplyLook "Line-Fold" ClearLooks ": No" RestoreSelectionA) "Line-Fold: No" "Add a "Line-Fold: No" line to the message header"))ButtonTargetTiogaButtonFeedback"((MouseMoved <Cursor bullseye>))3 ˜@˜ OšÐbsœ.˜5OšŸœ˜OšŸœ˜OšÏbœ˜J˜ Ibody˜kP˜ Pšœ˜—— …—    æ  ƒ  