Common Lisp Package: WEBLOCKS-DEMO-POPOVER

A web application based on Weblocks.

README:

FUNCTION

Public

START-WEBLOCKS-DEMO-POPOVER (&REST ARGS)

Starts the application by calling 'start-weblocks' with appropriate arguments.

STOP-WEBLOCKS-DEMO-POPOVER

Stops the application by calling 'stop-weblocks'.

Private

ALL-COMPANIES (&OPTIONAL ARG)

Accepts an argument (passed by dropdown choices) and returns all available companies.

INIT-SANDBOX-STORE

Copies the fixtures from the disk store to a sandbox store (to ensure users have their own non-peristant sandboxes).

INITIAL-PAGE (K)

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.

MAKE-COMPANIES-PAGE

Lays out the widgets for the companies page. It consists of a single GRIDEDIT widget.

MAKE-EMPLOYEES-PAGE

Lays out the widgets for the employees page. It consists of a single GRIDEDIT widget.

MAKE-MAIN-PAGE

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.

Undocumented

INIT-USER-SESSION (COMP)

MACRO

Private

SANDBOX-STORE

Access to a sandbox store in the session.

SLOT-ACCESSOR

Private

Undocumented

ADDRESS-CITY (OBJECT)

SETFADDRESS-CITY (NEW-VALUE OBJECT)

ADDRESS-STATE (OBJECT)

SETFADDRESS-STATE (NEW-VALUE OBJECT)

ADDRESS-STREET (OBJECT)

SETFADDRESS-STREET (NEW-VALUE OBJECT)

COMPANY-ID (OBJECT)

SETFCOMPANY-ID (NEW-VALUE OBJECT)

COMPANY-INDUSTRY (OBJECT)

SETFCOMPANY-INDUSTRY (NEW-VALUE OBJECT)

COMPANY-NAME (OBJECT)

SETFCOMPANY-NAME (NEW-VALUE OBJECT)

COMPANY-NON-PROFIT-P (OBJECT)

SETFCOMPANY-NON-PROFIT-P (NEW-VALUE OBJECT)

EMPLOYEE-COMPANY (OBJECT)

SETFEMPLOYEE-COMPANY (NEW-VALUE OBJECT)

EMPLOYEE-CONTRACT (OBJECT)

SETFEMPLOYEE-CONTRACT (NEW-VALUE OBJECT)

PERSON-ADDRESS (OBJECT)

SETFPERSON-ADDRESS (NEW-VALUE OBJECT)

PERSON-AGE (OBJECT)

SETFPERSON-AGE (NEW-VALUE OBJECT)

PERSON-FIRST-NAME (OBJECT)

SETFPERSON-FIRST-NAME (NEW-VALUE OBJECT)

PERSON-ID (OBJECT)

SETFPERSON-ID (NEW-VALUE OBJECT)

PERSON-LAST-NAME (OBJECT)

SETFPERSON-LAST-NAME (NEW-VALUE OBJECT)

VARIABLE

Private

Undocumented

*PREVALENCE-STORE*

*SCRATCH-STORE*

CLASS

Private

Undocumented

ADDRESS

COMPANY

EMPLOYEE

PERSON

WEBLOCKS-DEMO-POPOVER