DIRECTORY BasicTime USING [GMT, Unpack, Unpacked], Convert USING [RopeFromTime], FS USING [EnumerateForInfo, InfoProc], MessageWindow USING [Append, Blink, Clear], Rope USING [Cat, Concat, IsEmpty, ROPE], TiogaButtons USING [AppendToButton, CreateButton, CreateViewer, GetRope, SetStyleFromRope, TiogaButton, TiogaButtonProc], ViewerClasses USING [Viewer], ViewerOps USING [OpenIcon]; TestTiogaButtonsImpl: CEDAR PROGRAM IMPORTS BasicTime, Convert, FS, MessageWindow, Rope, TiogaButtons, ViewerOps = BEGIN ROPE: TYPE = Rope.ROPE; FirstOne: PROC ~ { v: ViewerClasses.Viewer _ TiogaButtons.CreateViewer[info: [name: "First One", iconic: FALSE]]; b: TiogaButtons.TiogaButton _ TiogaButtons.CreateButton[viewer: v, rope: "DoIt", format: "center", looks: "lb", proc: DisplayButton]; b _ TiogaButtons.CreateButton[viewer: v, rope: "First", proc: DisplayButton]; b _ TiogaButtons.AppendToButton[button: b, rope: " "]; b _ TiogaButtons.AppendToButton[button: b, rope: "Second", proc: DisplayButton]; b _ TiogaButtons.AppendToButton[button: b, rope: " "]; b _ TiogaButtons.AppendToButton[button: b, rope: "Third", proc: DisplayButton]; b _ TiogaButtons.CreateButton[viewer: v, rope: ""]; b _ TiogaButtons.AppendToButton[button: b, rope: "First", proc: DisplayButton]; b _ TiogaButtons.AppendToButton[button: b, rope: " "]; b _ TiogaButtons.AppendToButton[button: b, rope: "Second", proc: DisplayButton]; b _ TiogaButtons.AppendToButton[button: b, rope: " "]; b _ TiogaButtons.AppendToButton[button: b, rope: "Third", proc: DisplayButton]; }; DisplayButton: TiogaButtons.TiogaButtonProc ~ { MessageWindow.Append[Rope.Cat["Button contents ", TiogaButtons.GetRope[button]], TRUE]; MessageWindow.Blink[]; }; FSButtons: PROC [fPattern: ROPE] ~ { FSInfoProc: FS.InfoProc ~ { b: TiogaButtons.TiogaButton; b _ TiogaButtons.CreateButton[viewer: v, rope: " ", format: "table", proc: DisplayButton]; b _ TiogaButtons.AppendToButton[button: b, rope: Convert.RopeFromTime[created], looks: "bs", proc: DisplayTime, clientData: NEW[MyTimeRec _ [created]]]; b _ TiogaButtons.AppendToButton[button: b, rope: "\t"]; b _ TiogaButtons.AppendToButton[button: b, rope: fullFName, proc: DisplayFileName]; IF NOT attachedTo.IsEmpty THEN { b _ TiogaButtons.AppendToButton[button: b, rope: "\n"]; b _ TiogaButtons.AppendToButton[button: b, rope: attachedTo, looks: "s", proc: DisplayFileName]; }; RETURN [TRUE] }; v: ViewerClasses.Viewer _ TiogaButtons.CreateViewer[info: [name: "FSButtons", iconic: TRUE]]; TiogaButtons.SetStyleFromRope[v, fancyTableStyle]; [] _ TiogaButtons.CreateButton[viewer: v, rope: "Clear", format: "Center", looks: "lb", proc: ClearMsgWindow]; [] _ TiogaButtons.CreateButton[viewer: v, rope: "XEROX", format: "logo"]; [] _ TiogaButtons.CreateButton[viewer: v, rope: ""]; FS.EnumerateForInfo[fPattern, FSInfoProc]; ViewerOps.OpenIcon[v]; }; fancyTableStyle: ROPE _ "BeginStyle (Cedar) AttachStyle (table) \"fancy table\" { block 3 in restIndent 3 in flushLeft \".\" 8 congruent leaders tabStop } StyleRule EndStyle"; ClearMsgWindow: TiogaButtons.TiogaButtonProc ~ { MessageWindow.Clear; }; MyTime: TYPE ~ REF MyTimeRec; MyTimeRec: TYPE ~ RECORD[ time: BasicTime.GMT]; DisplayTime: TiogaButtons.TiogaButtonProc ~ { timeRef: MyTime _ NARROW[button.clientData]; unpacked: BasicTime.Unpacked _ BasicTime.Unpack[timeRef.time]; MessageWindow.Append[Rope.Concat["This file created on a ", SELECT unpacked.weekday FROM Monday => "Monday", Tuesday => "Tuesday", Wednesday => "Wednesday", Thursday => "Thursday", Friday => "Friday", Saturday => "Saturday", Sunday => "Sunday", ENDCASE => "unknown day!"], TRUE]; }; DisplayFileName: TiogaButtons.TiogaButtonProc ~ { MessageWindow.Append[Rope.Cat["File named ", TiogaButtons.GetRope[button]], TRUE]; }; END. <TestTiogaButtonsImpl.Mesa Copyright c1984, 1985 Xerox Corporation. All rights reserved. Rick Beach, April 27, 1985 1:52:42 pm PST Willie-Sue, January 23, 1987 3:56:25 pm PST Use formats and looks as you wish. This line of buttons has the curious feature that "First" creates a button that is the whole node. Use this technique to create a button, perhaps a bullet character from the Math font (look m), that selects the entire contents of the button. This line of buttons has an empty button without a proc. All the other buttons are appended to the empty button and are individual. Unlike the preceeding example, there is no way to select this node entirely. InfoProc: TYPE = PROC [fullFName, attachedTo: ROPE, created: BasicTime.GMT, bytes: INT, keep: CARDINAL] RETURNS [continue: BOOLEAN]; For fancy formatting of TiogaButtons, define your own style rules using the StyleDef property or TiogaOps.SetStyle and a style name other than the default style. PROC [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift, control: BOOL _ FALSE] ; ΚR˜code™Kšœ Οmœ3™>K™)K™+—K˜šΟk ˜ Kšœ žœžœ˜(Kšœžœ˜Kšžœžœ˜&Kšœžœ˜+Kšœžœžœ˜(Kšœ žœg˜yKšœžœ ˜Kšœ žœ ˜—K˜KšΠblœž ˜#KšžœE˜Lšœž˜K˜Kšžœžœžœ˜—˜šΟnœžœ˜Kšœ^˜^K˜K™"Kšœ…˜…K˜K™bK™^K™/KšœM˜MKšœ7˜7KšœP˜PKšœ7˜7KšœO˜OK˜K™8K™JK™LKšœ3˜3KšœO˜OKšœ7˜7KšœP˜PKšœ7˜7KšœO˜OK˜K˜—š  œ"˜/KšœQžœ˜WK˜K˜K˜—š  œžœ žœ˜$š  œ˜Kš œžœžœžœžœ žœžœžœ žœ™„K˜K˜ZKšœ|žœ˜˜K˜7K˜Sšžœžœžœ˜ K˜7Kšœ`˜`Kšœ˜—Kšžœžœ˜ K˜—KšœVžœ˜]K˜K˜2Kšœn˜nKšœI˜IKšœ4˜4K˜K˜*K˜K˜K˜K˜K™‘K™Kšœžœš˜―K˜—š œ"˜0š žœ žœžœžœžœžœ™1Kšœ6žœžœ™E—K˜K˜K˜Kšœžœžœ ˜šœ žœžœ˜Kšœžœ˜K˜——š  œ"˜-Kšœžœ˜,Kšœ>˜>šœ<žœž˜XK˜K˜K˜K˜K˜K˜K˜Kšžœžœ˜"—K˜K˜—š œ"˜1KšœLžœ˜RKšœ˜——J˜Jšžœ˜—…—°>