<> <> <> <> 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.