MODULE Browser EXPORTS Main; IMPORT Trestle, FileBrowserVBT, Shadow, HVBar, HVSplit, Axis, Font; FROM Colors IMPORT royal, white, lgrey, dgrey; CONST margin = 1.0; (* points *) shadow_size = 10.0; (* points *) times14 = "-*-times-*-r-*-*-14-*-*-*-*-*-*-*"; VAR font := Font.FromName(ARRAY OF TEXT{times14}); sh := Shadow.New(shadow_size, royal, white, lgrey, dgrey); helper := NEW(FileBrowserVBT.Helper).init(margin, margin, font, sh); dirmenu := NEW(FileBrowserVBT.DirMenu).init(font, sh); v := NEW(FileBrowserVBT.T).init(); main := HVSplit.Cons(Axis.T.Ver, helper, HVBar.New(), v); BEGIN FileBrowserVBT.Set(v, "./"); (* Set the initial display path *) FileBrowserVBT.SetHelper(v, helper); (* Add helper to File Browser *) FileBrowserVBT.SetDirMenu(v, dirmenu); (* Add DirMenu to File Browser *) Trestle.Install(main); Trestle.AwaitDelete(main); END Browser.