[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Standalone editor panes



In Release 4.1, System 222.186, Hardcopy 11.14, Zmail 74.43, LMFS 30.26,
site configuration 34, on Lisp Machine Apiary-1:

The 4.0 release notes claim [p. 109] that you can use a 
ZWEI:STANDALONE-EDITOR-FRAME for prompting the user for editable input. 

(SETQ SEF (TV:MAKE-WINDOW 'ZWEI:STANDALONE-EDITOR-FRAME
			  ':EDGES-FROM 'MOUSE
			  ':EXPOSE-P T))

Then make a Lisp listener and run in it (SEND SEF ':EDIT)

>>Error: The object #<NODE 31043332> received a PUTPROP message, which went unclaimed.
The rest of the message was (ZWEI:LISP-MODE MAJOR-MODE)
While in the function ZWEI:TURN-ON-MODE  ZWEI:TURN-ON-USER-MODES  (METHOD ZWEI:TOP-LEVEL-EDITOR BEFORE EDIT)


ZWEI:TURN-ON-MODE: (P.C. = 70)
 Arg 0 (MODE-SYMBOL): ZWEI:LISP-MODE
 Local 0: NIL
 Local 1 (MINOR): NIL
 Local 2 (HOOK): NIL


ZWEI:TURN-ON-MODE:  (P.C. = 70)
   Arg 0 (MODE-SYMBOL): ZWEI:LISP-MODE

ZWEI:TURN-ON-USER-MODES:  (P.C. = 26)

(METHOD ZWEI:TOP-LEVEL-EDITOR BEFORE EDIT):  (P.C. = 32)
   (SELF = #<STANDALONE-EDITOR-FRAME Standalone Editor Frame 4 20564143 exposed>)
   Arg 0 (OPERATION): EDIT
   Rest arg (IGNORE): NIL

(METHOD ZWEI:TOP-LEVEL-EDITOR COMBINED EDIT):  (P.C. = 73)
   (SELF = #<STANDALONE-EDITOR-FRAME Standalone Editor Frame 4 20564143 exposed>)
   Rest arg (.DAEMON-CALLER-ARGS.): (EDIT)

SEND:  (P.C. = 22)
   Arg 0 (OBJECT): #<STANDALONE-EDITOR-FRAME Standalone Editor Frame 4 20564143 exposed>
   Arg 1 (MESSAGE-NAME): EDIT
   Rest arg (ARGUMENTS): NIL

SI:*EVAL:  (P.C. = 653)
   Arg 0 (FORM): (SEND SEF (QUOTE EDIT))

SI:LISP-TOP-LEVEL1:  (P.C. = 210)
   Arg 0 (TERMINAL-IO): #<LISP-LISTENER Lisp Listener 3 20565473 exposed>

SI:PROCESS-TOP-LEVEL:  (P.C. = 125)
   --Defaulted args:--
   Arg 0 (IGNORE): NIL