Common Lisp Package: WEBLOCKS-CLSQL-DEMO

A web application based on Weblocks.

README:

FUNCTION

Public

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

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

STOP-WEBLOCKS-CLSQL-DEMO

Stops the application by calling 'stop-weblocks'.

Private

ALL-COMPANIES (&OPTIONAL ARG)

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

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)

SLOT-ACCESSOR

Private

Undocumented

ADDRESS-CITY (OBJECT)

SETFADDRESS-CITY (NEW-VALUE OBJECT)

ADDRESS-ID (OBJECT)

SETFADDRESS-ID (NEW-VALUE OBJECT)

ADDRESS-STATE (OBJECT)

SETFADDRESS-STATE (NEW-VALUE OBJECT)

ADDRESS-STREET (OBJECT)

SETFADDRESS-STREET (NEW-VALUE OBJECT)

AGE (OBJECT)

SETFAGE (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-ADDRESS (OBJECT)

SETFEMPLOYEE-ADDRESS (NEW-VALUE OBJECT)

EMPLOYEE-ADDRESS-ID (OBJECT)

SETFEMPLOYEE-ADDRESS-ID (NEW-VALUE OBJECT)

EMPLOYEE-COMPANY (OBJECT)

SETFEMPLOYEE-COMPANY (NEW-VALUE OBJECT)

EMPLOYEE-COMPANY-ID (OBJECT)

SETFEMPLOYEE-COMPANY-ID (NEW-VALUE OBJECT)

EMPLOYEE-ID (OBJECT)

SETFEMPLOYEE-ID (NEW-VALUE OBJECT)

FIRST-NAME (OBJECT)

SETFFIRST-NAME (NEW-VALUE OBJECT)

LAST-NAME (OBJECT)

SETFLAST-NAME (NEW-VALUE OBJECT)

NON-PROFIT-P (OBJECT)

SETFNON-PROFIT-P (NEW-VALUE OBJECT)

VARIABLE

Private

Undocumented

*SQL-STORE*

CLASS

Private

Undocumented

ADDRESS

COMPANY

EMPLOYEE

WEBLOCKS-CLSQL-DEMO