(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("12-Feb-86 12:07:20" . {QV}<IDL>SOURCES>IDLDEMO.;7)
FNS (IDLDEMO IDLDEMO.CLEANUP IDLDEMO.SHADEDOUBLEITEM IDLDEMO.WHENSELECTEDFN)
(READATABASE)
(
CALL IDLDEMO (WFROMDS TTYDISPLAYSTREAM CREATEW CREATEREGION FUNCTION IDLMATRIX READFILE) 
IDLDEMO.CLEANUP (WFROMDS TTYDISPLAYSTREAM) IDLDEMO.SHADEDOUBLEITEM (WFROMMENU MEMB MENUITEMREGION) 
IDLDEMO.WHENSELECTEDFN (BKSYSBUF LET LENGTH MEMB) NIL
BIND IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN (BUTTON) NIL
NLAMBDA IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL NIL
NOBIND IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL NIL
RECORD IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL NIL
CREATE IDLDEMO (MENU) IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL NIL
FETCH IDLDEMO (ITEMS) IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM (ITEMS LEFT BOTTOM WIDTH HEIGHT) 
IDLDEMO.WHENSELECTEDFN (ITEMS) NIL
REPLACE IDLDEMO (ITEMS WHENSELECTEDFN TITLE) IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL 
IDLDEMO.WHENSELECTEDFN NIL NIL
REFFREE IDLDEMO (SHADE1) IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN (
SHADE1 IDLDEMO.TTYWINDOW) NIL
REF IDLDEMO (TTYWINDOW IDLDEMO.MENU TEDITWINDOW) IDLDEMO.CLEANUP (TTYWINDOW) IDLDEMO.SHADEDOUBLEITEM (
MENU ITEM1 ITEM2 MENUW SHADE) IDLDEMO.WHENSELECTEDFN (ITEM MENU FORM TAIL) NIL
SETFREE IDLDEMO (LOTTERY LOTTERY2 LOTTERY3 IDLDEMO.TTYWINDOW IDLDEMO.SHADEDITEM) IDLDEMO.CLEANUP NIL 
IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN (IDLDEMO.SHADEDITEM) NIL
SET IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM (REGION1 REGION2) IDLDEMO.WHENSELECTEDFN 
NIL NIL
SMASHFREE IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL NIL
SMASH IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL NIL
PROP IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL NIL
TEST IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL NIL
TESTFREE IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN (
IDLDEMO.SHADEDITEM) NIL
PREDICATE IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN (EVENP) 
NIL
EFFECT IDLDEMO (DECLARE SHAPEW ATTACHMENU IDLDEMO.SHADEDOUBLEITEM TEDIT GIVE.TTY.PROCESS) 
IDLDEMO.CLEANUP (DETACHALLWINDOWS WINDOWPROP) IDLDEMO.SHADEDOUBLEITEM (BITBLT) IDLDEMO.WHENSELECTEDFN 
(DECLARE IDLDEMO.SHADEDOUBLEITEM GIVE.TTY.PROCESS MAPC) NIL
CLISP IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN (for in do) 
NIL
SPECVARS IDLDEMO (IDLDEMO.SHADEDITEM IDLDEMO.TTYWINDOW LOTTERY LOTTERY2 LOTTERY3) IDLDEMO.CLEANUP NIL 
IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL NIL
LOCALVARS IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL NIL
APPLY IDLDEMO (IDLDEMO.WHENSELECTEDFN) IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL 
IDLDEMO.WHENSELECTEDFN NIL NIL
ERROR IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL NIL
LOCALFREEVARS IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL 
NIL
ARGS IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL NIL
USERTEMPLATES FCACHE.GETPROP (CALL EVAL PROP . PPE) FCACHE.PUTPROP (CALL EVAL PROP EVAL . PPE) UENTRY 
(CALL NIL .. EVAL RETURN) perform (MACRO ARGS (PERFORMTRAN ARGS T)) PERFORM (MACRO ARGS (PERFORMTRAN 
ARGS T)) UERRORGUARD MACRO SHAZAM (CALL .. NIL) UERROR MACRO UERRORSET MACRO SETQ.NOREF (CALL SET EVAL
 . PPE) SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) OP# (CALL) NIL
0 IDLDEMO NIL IDLDEMO.CLEANUP NIL IDLDEMO.SHADEDOUBLEITEM NIL IDLDEMO.WHENSELECTEDFN NIL NIL

)