Interlisp.medley/internal/test/env/inspector/hand/inspectw.tedit

Testing the programmatic interface to INSPECTW
(assuming in Interlisp package)

type:
(CL:IN-PACKAGE "INTERLISP")

type:
(DEFINEQ (FETCHFROMLIST (AL PRP)
        (COND ((EQUAL PRP (QUOTE FIRST)) 
               (CAR (EVAL AL))) 
              ((EQUAL PRP (QUOTE SECOND)) 
               (CADR (EVAL AL))) 
              ((EQUAL PRP (QUOTE THIRD)) 
               (CADDR (EVAL AL))) 
             ((EQUAL PRP (QUOTE FOURTH)) 
              (CADDDR (EVAL AL))))))

(DEFINEQ (STOREINLIST (AL PRP NV)
         (SET AL
            (COND ((EQUAL PRP (QUOTE FIRST))
                   (CONS NV (CDR (EVAL AL)))) 
                  ((EQUAL PRP (QUOTE SECOND))
                   (CONS (CAR (EVAL AL)) 
                         (CONS NV (CDDR (EVAL AL))))) 
                 ((EQUAL PRP (QUOTE THIRD)) 
                  (CONS (CAR (EVAL AL)) 
                        (CONS (CADR (EVAL AL)) 
                              (CONS NV 
                                   (CDDDR (EVAL AL))))))
                 ((EQUAL PRP (QUOTE FOURTH))
                  (CONS (CAR (EVAL AL))
                        (CONS (CADR (EVAL AL))
                              (CONS (CADDR (EVAL AL))
                                   (CONS NV NIL)))))))))

(DEFINEQ (PROPCOM (PRP AL INS)
         (SET AL (REVERSE (EVAL AL)))))

(DEFINEQ (VALCOM  (VAL PRP AL INS) 
         (SET AL (REVERSE (EVAL AL))) 
         (INSPECTW.REDISPLAY INS NIL)))

(DEFINEQ (TITLECOM (INS AL)
         (SET AL (QUOTE (X Y Z A)))
         (INSPECTW.REDISPLAY INS NIL)))

(DEFINEQ (SELECTF (PRP VF INS)
         (PRINTOUT T T "YOU PICKED " PRP)
         (if VF then 
          (PRINTOUT T " OR RATHER, THE VALUE OF " PRP T)
         else (PRINTOUT T " IT IS A PROPERTY" T))))

(DEFINEQ (PROPP  (PRP AL)
         (LIST AL PRP)))

(SETQ ALIST '(A B C D))

(SETQ WIND (INSPECTW.CREATE 'ALIST '(FIRST SECOND THIRD FOURTH) 'FETCHFROMLIST 'STOREINLIST))

-- an inspect window appears

UT
ªªªªªªªªªª¨UUUUUUUUUUPUUUUUUUUUUPªªªªªªªªªª¨ªªªªªªªªªª¨UUUUUUUUUUPUUUUUUUUUUPªªªªªªªªªª¨ªªªªªªªªªª¨WÿÿÿÿÿÿÿÿÿÐWÿÿÿÿÿÿÿÿÿЫÿÿÿÿÿÿÿÿÿè«ý÷ûƒ€ÿÿÿèWý÷û}÷ÿÿÿÐWú÷û÷ÿhñÑЫú÷û‡÷ÿgnÎè«÷wûû÷ÿoqÞèWðwûý÷ÿo~ÞÐWï·û}÷ÿonÎЫï°;ƒ÷ÿoqÑè«ÿÿÿÿÿÿÿÿßèWÿÿÿÿÿÿÿÿßÐWÿÿÿÿÿÿÿÿÿЫè«èWÐWÇ|@Ы" è«" èW‚ ÐW
Ы"
ðè«"
èW
ÐWЫè«èWÐW<03>ŽDð
ÀЫH"dˆ
 è«H"dˆ
 èW"Tˆ
àÐWˆ"Tˆ
ЫH"Lˆ
è«H"Lˆ
èW<03>ŽDð
àÐWЫè«èWÐWÈŽ<xàЫ
„"D
è«
„"D
èW
„<D
ÐW
„(D
Ы
„$D
è«
„"D
èW
Ž"xàÐWЫè«èWÐWÇ<|ˆ
àЫ‘"ˆ
è«‘"ˆ
èWˆ‘<ø
ÐW‘(ˆ
Ы‘$ˆ
è«‘"ˆ
èW"ˆ
àÐWЫè«èWÐWЫÿÿÿÿÿÿÿÿÿè«ÿÿÿÿÿÿÿÿÿèUUUUUUUUUUPUUUUUUUUUUPªªªªªªªªªª¨ªªªªªªªªªª¨UUUUUUUUUUPUUUUUUUUUUPªªªªªªªªªª¨
select a name (first,second, third or fourth) with the left button, then press the middle button - select set.
type in a new value for the selected element, confirm that the value changes.

Type ALIST on the exec window and notice that the list has changed.

type:
 (INSPECTW.CREATE 'ALIST '(FIRST SECOND THIRD FOURTH) 'FETCHFROMLIST 'STOREINLIST 'PROPCOM)

 select a name (first,second, third or fourth) with the left button, then press the middle button.  It should appear as if nothing has happened.  Position the mouse in the title bar of the inspect window, press down the middle button - select refetch.  The values of Alist should be reversed.
Type ALIST on the exec window and notice that the list has changed.

Close all inspector windows

type:
 (INSPECTW.CREATE 'ALIST '(FIRST SECOND THIRD FOURTH) 'FETCHFROMLIST 'STOREINLIST "HELLO THERE     GUESS WHO?" 'VALCOM 'TITLECOM "Having Fun?" 'SELECTF WIND 'PROPP)

- the inspector window should appear where you placed the first one. Shape the window so you can view all of it.  It should look like this (notice the new title):

ÉX
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUªªªªªªªªªªªªªªªªªªªªªªªªª€ªªªªªªªªªªªªªªªªªªªªªªªªª€UUUUUUUUUUUUUUUUUUUUUUUUU_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€¿ÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€_}ÿþÿÿøÿüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ_}ÿÿÿÿûÿÿûÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿}ÇvÑâûûÚ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€¿
»vÎÜø;ÙÞÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€_}ã®ÞÞûûÛÝÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ_}›®ÞÞûûÛÝÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿}»ÞÞÜûû›ßÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€¿}ÅÞÞâûü[Ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€_ÿÿÿÿÞÿÿÿýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ_ÿÿÿÿáÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€¸€XX€áÇÀxqð€¸(€B!Dˆ@€€€¸(€B!Dˆ@@€€X(€A<E282AC>x`@@€XD€@AP@@€¸|€B!Hˆ@@€€¸D€B!Dˆ@@€€XDøáÁDp@€X€¸
€¸€XX€áÇÀ>8qÁ¸(€B! D‰’!€€¸(€B! D‰’ €€€X(€A<E282AC><@‰R €XD€@A @‰R €¸|€B! D‰2 €€€¸D€B! D‰2 €€€XDøáÁ>8qÁX
¸€¸€X
X€áÇÀ"8ñà€¸(€B!"‰€€€¸(€B!"‰@€X(€A<E282AC>>ñ@XD€@A"¡@€¸|€B!"‘@€€¸D€B!"‰@€€XDøáÁ"8‰à€X€¸
€¸€XX€áÇÀDñò!¸(€B!"DˆB!€¸(€B!"DˆB €€X(€A<E282AC>"DðCà€XD€@A"D B €€¸|€B!"D<>B €€€¸D€B!"DˆB €€€XDøáÁ8ˆB!€X
¸€¸€XX¸€¸€XX¸€¸€XX¸€¸€XX¸€¸€_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªªªªªªªªªªªªªªªªªªªªªªªªª€ªªªªªªªªªªªªªªªªªªªªªªªªª€

select something from the left-hand column

-a window will appear telling you what you selected and that it is a property.

press the middle button on the same selection

- a message "HELLO THERE   GUESS WHO" will appear in the prompt window

select something from the right hand column

-a message will appear in the same window that appeared two steps back telling you what property the value you selected belongs to and that it is a value.

press the middle button on the same selection

-the values reverse themselves again

Put the mouse in the title bar and press the middle button

 -The values have all changed to be the following.

ÌX
ªªªªªªªªªªªªªªªªªªªªªªªªª UUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªªªªªªªªª ¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ _ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐ_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿЯ¾ÿÿÿüÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ¯¾ÿÿÿÿýÿÿý¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ _¾ã»hñ}ýí¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐ_€Ý»gn|ìïÿÿÿÿÿÿÿÿÿÿÿÿÿÿЯ¾ñ×oo}ýíîÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ¯¾Í×oo}ýíîÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ _¾Ýïon}ýÍïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐ_¾âïoq}þ-îÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿЯÿÿÿÿïÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ¯ÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ _ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐ\
Ь
 ¬€
 \@pãàŽ<8ø@@
Ð\@!€"D @@
Ь@!€"D  €
 ¬@ À€<0  

 \"@  €(  

Ð\>@!€$D  €
Ь"@!€"D  @
 ¬"|pà€"8 @@
 \@
Ð\€
Ь
 ¬

 \@pãà8‰à€@
Ð\@!€<08>"DÉ€@
Ь@!€<08>"DÉ@€
 ¬@ À€ D©@€
 \"@  €
 D©@

Ð\>@!€<08>"D™@

Ь"@!€<08>"D™@

 ¬"|pà€8‰à€

 \€
Ð\

Ь
 ¬€
 \@pãà‘xð@À
Ð\@!€Dˆ@@
Ь@!€Dˆ €
 ¬@ À€xˆ 

 \"@  €Pˆ 

Ð\>@!€Hˆ 
Ь"@!€Dˆ 
 ¬"|pà€Dð@À
 \@
Ð\€
Ь
 ¬

 \@pãàŽ"xù€

Ð\@!€"D!€€
Ь@!€"D!@€
 ¬@ À€"x!ð@€
 \"@  €"P!@@
Ð\>@!€"H!@À
Ь"@!€"D!@@
 ¬"|pà€D!€@
 \€
Ð\

Ь
 ¬
 \
Ð\
Ь
 ¬
 \
Ð\
Ь
 ¬
 \
Ð\
Ь
 ¬
 \
Ð\
Яÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ UUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªªªªªªªªª MODERN

MODERN
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
<	í
ü
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))

½
D
]ý(
h¦¢

ü
BMOBJ.GETFN3+
O

.
G

,
›

.
%

;
3
ü
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
$6,zº