START-WEBLOCKS-CLSQL-DEMO (&REST ARGS)
Starts the application by calling 'start-weblocks' with appropriate arguments.
Stops the application by calling 'stop-weblocks'.
ALL-COMPANIES (&OPTIONAL ARG)
Accepts an argument (passed by dropdown choices) and returns all available companies.
Initial page is so simple we can just define a function to render it and use it as a widget. Since it will be used in a continuation flow, it accepts K - the continuation parameter.
Lays out the widgets for the companies page. It consists of a single GRIDEDIT widget.
Lays out the widgets for the employees page. It consists of a single GRIDEDIT widget.
Lays out the main page. It consists of a FLASH widget for showing initial message, and a NAVIGATION widget with panes that hold employees page and companies page.
RENDER-HEADER (&REST ARGS)
This function renders the page header.