CLIM mail archive

Bug with ctv::multiple-choose under Genera 8.1.1

To: clim <clim@BBN.COM>, pkarp <pkarp@Sunset.AI.SRI.COM>
Subject: Bug with ctv::multiple-choose under Genera 8.1.1
From: Schneider Daniel <schneide@divsun.unige.ch>
Date: Fri, 2 Oct 1992 19:09:55 +0100
Content-Identifier: 567
Conversion: Prohibited
X400-Content-Type: P2-1984 (2)
X400-Mts-Identifier: [/PRMD=SWITCH/ADMD=ARCOM/C=CH/;921002190955]
X400-Originator: schneide@divsun.unige.ch
X400-Received: by mta chx400.switch.ch in /PRMD=switch/ADMD=arcom/C=CH/; Relayed; Fri, 2 Oct 1992 19:10:47 +0100
X400-Received: by /PRMD=SWITCH/ADMD=ARCOM/C=CH/; Relayed; Fri, 2 Oct 1992 19:10:01 +0100
X400-Received: by /PRMD=ch/ADMD=/C=/; Relayed; Fri, 2 Oct 1992 19:09:58 +0100
X400-Received: by /PRMD=SWITCH/ADMD=ARCOM/C=CH/; Relayed; Fri, 2 Oct 1992 19:09:55 +0100
X400-Recipients: non-disclosure:;

Hi all,

I encounterd a bug with P.Karp's multiple-choose code after having
installed Genera 8.1.1 with CLIM 28.5. I have used the code below
with the latest version of ctv-menu.lisp available. It runs fine under Allegro
(Clim 1.1). Does somebody happen to have a fix for that problem ?

When I execute the (test) function from the Genera lisp listener, there
is no problem, the error happens only when I launch (test) from an
application, i.e. the function breaks when I move the cursor over a multi-choice
box.

thanx a lot for any help   - Daniel


#|
(defun test ()
  (setq headings '(:backup :output-binary :output-ascii :purge))
  (multiple-choose " Grasper Graph: "
		   (loop for file in '("File 1" "File 2" "File 3")
			 collect (list file file headings))
		   '((:Backup "Backup" nil nil nil nil)
		     (:Output-Binary "Output-Binary" nil nil nil nil)
		     (:Output-Ascii "Output-Ascii" nil nil nil nil)
		     (:Purge "Purge" nil nil nil nil))) )

(clim:DEFINE-application-FRAME
  test
  ()
  ()
  (:command-table (t))
  (:PANES
    ((random :application
	     :scroll-bars nil
	     :borders nil
	     )
     (command-pane :interactor
		   :scroll-bars :vertical
		   :vsp 0)
     ))
  (:layout
    ((main
       (:column 1
	(command-pane 0.1)
	(random :rest)
	)))))

(clim:define-genera-application test :select-key #\triangle)

(define-test-command (com-test :name t)
  ()
  (test))

|#

Symbolics System, FEP0:>Inc-Genera-8-1-1-from-Genera-etc.load.1
3620 Processor, 3.0M words Physical memory, 28.1M words Swapping space.
 Genera                                           8.1.1
 IP-TCP                                           435.4 (ECO level 1)
 CLX                                              431.0
 CLIM                                             28.5
 CLIM Documentation                               31.0
 Print Spooler                                    425.0
 RPC                                              425.0
 Embedding Support                                417.0
 UX Support                                       426.0
 NFS Client                                       425.2 (ECO level 1)
 X Server                                         414.0
 X Remote Screen                                  429.0
 Experimental A Toolbox for Learning Environments 2.0
 Experimental Memolab                             3.0
 FEP                                              206

Tecfa #1 SYMBOLICS around


;; ----------------- short trace

D,#TD1PsT[Begin using 006 escapes](1 0 (NIL 0) (:FIX :BOLD :NORMAL) "CPTFONTCB")Error: No applicable method for #<STANDARD-GENERIC-FUNCTION CLIM:STREAM-CURSOR-POSITION* 2720353
0> with arguments (#<STACK-LEXICAL-CLOSURE CLI::STRING-OUTPUT-STREAM 134526624>)

0The following specials have been rebound; use (2 0 (NIL 0) (:FIX :ITALIC :NORMAL) "CPTFONTI"):Show Standard Value Warnings0 for details:
  *PRINT-PRETTY*, *PRINT-LEVEL*, and *PRINT-LENGTH*

1#<CLOS:STANDARD-METHOD CLIM::PRESENT-METHOD (#<CLIM::PRESENTATION-TYPE-CLASS CTV::CHECK-BOX 1500
42530> T T T T T CLIM:TEXTUAL-VIEW) 205562566>
0   Arg 0: #<#<CLIM::PRESENTATION-TYPE-CLASS CTV::CHECK-BOX 150042530> 260001230>
   Arg 1 (CLOS-INTERNALS::.EXTRA-ARGUMENT.): NIL
   Arg 2 (CLOS-INTERNALS::.GENERIC.): NIL
   Arg 3: NIL
   Arg 4: NIL
   Arg 5 (CTV::BOX): (139 7 0 1 CTV::OFF)
   Arg 6 (TYPE): CTV::CHECK-BOX
   Arg 7 (STREAM): #<STACK-LEXICAL-CLOSURE CLI::STRING-OUTPUT-STREAM 134526624>
   Arg 8 (CTV::VIEW): #<CLIM:POINTER-DOCUMENTATION-VIEW 64335151>
   Rest arg: (:ACCEPTABLY NIL :FOR-CONTEXT-TYPE CTV::CHECK-BOX)
s-A, :    Return to Test command level
s-B:           Test top level
s-C:           Exit Test
s-D:           Exit process Test
 Control-B2 Show Backtrace
0#<CLOS:STANDARD-METHOD CLIM::PRESENT-METHOD (#<CLIM::PRESENTATION-TYPE-CLASS CTV::CHECK-BOX 1500
42530> T T T T T CLIM:TEXTUAL-VIEW) 205562566>
  #<CLOS-INTERNALS::MISCELLANEOUS-FUNCTION PRESENTATION-METHOD-COMBINATION 64706615>
  CLOS-INTERNALS::DISPATCH-INTERNAL  NIL  CLIM:PRESENT  #:IDENTITY-DOCUMENTATION-259
  CLIM:DOCUMENT-PRESENTATION-TRANSLATOR  (:INTERNAL CLIM::FRAME-DOCUMENT-HIGHLIGHTED-PRESENTAT
ION-INTERNAL 0 CLIM::DOCUMENT-TRANSLATOR)
  CLIM::FRAME-DOCUMENT-HIGHLIGHTED-PRESENTATION-INTERNAL  #<CLOS:STANDARD-METHOD CLIM::FRAME-D
OCUMENT-HIGHLIGHTED-PRESENTATION (CLIM:APPLICATION-FRAME T T T T T T) 65003355>
  CLIM:HIGHLIGHT-APPLICABLE-PRESENTATION  CLIM::HIGHLIGHT-PRESENTATION-OF-CONTEXT-TYPE  (:INT
ERNAL #<CLOS:STANDARD-METHOD CLIM:STREAM-READ-GESTURE (CLIM::INPUT-PROTOCOL-MIXIN) 64343750> 0 "
WITH-CURSOR-STATE-BODY")
  CLIM::WITH-CURSOR-STATE-1
  #<CLOS:STANDARD-METHOD CLIM:STREAM-READ-GESTURE (CLIM::INPUT-PROTOCOL-MIXIN) 64343750>  #<CL
OS:STANDARD-METHOD CLIM:STREAM-READ-GESTURE (:AROUND) (CLIM:BASIC-EXTENDED-INPUT-PROTOCOL) 64364
236>
  #<CLOS-INTERNALS::MISCELLANEOUS-FUNCTION STANDARD 542162017>  CLIM:READ-GESTURE
  (:INTERNAL CTV:MULTIPLE-CHOOSE 1 CLIM::BODY-CONTINUATION)  CLIM::WITH-INPUT-CONTEXT-1
  CTV:MULTIPLE-CHOOSE  CTV::TEST  CTV::COM-TEST
  #<CLOS:STANDARD-METHOD CLIM:EXECUTE-FRAME-COMMAND (CLIM:APPLICATION-FRAME T) 64772771>
  CLOS-INTERNALS::HANDLE-MISSED-DISPATCH  CLOS-INTERNALS::HANDLE-CLASS-DISPATCH-MISS
  (:INTERNAL (:INTERNAL CLIM:DEFAULT-FRAME-TOP-LEVEL 0) 0)  CLI::COMPATIBLE-RESTART-TRAMPOLINE
  (:INTERNAL CLIM:DEFAULT-FRAME-TOP-LEVEL 0)  CLI::RESTART-BIND-TRAMPOLINE
  CLIM:DEFAULT-FRAME-TOP-LEVEL
  #<CLOS:STANDARD-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME) 64773063>  (:INTERN
AL (:INTERNAL (:INTERNAL (:INTERNAL #<CLOS:STANDARD-METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (C
LIM:APPLICATION-FRAME) 64773250> 0) 0) 0) 0)
.....


------

Daniel K.Schneider, TECFA (Educational Technologies and Learning)
Faculte de Psychologie et des Sciences de l'Education, University of Geneva,
1211 Geneva 4 (Switzerland), Tel.(..41)22 705 7652, Fax. (..41) 22 20 29 27.

Internet:   schneide@divsun.unige.ch  (and various national nets)    | if reply
CSnet/ARPA: schneide%divsun.unige.ch@relay.cs.net   (old style)      | does not
X400:       S=schneide;OU=divsun;O=unige;PRMD=switch;ADMD=arcom;C=ch | work,
uucp:       mcvax!cui!divsun.unige.ch!shneider                       | try one
BITNET:     schneide@cgeuge51                                        | of
DECNET:     UGUN2A::SCHNEIDE (local Swiss)                           | these


0,,

Follow-Ups:

Bug with ctv::multiple-choose under Genera 8.1.1

From: Scott McKay <SWM@stony-brook.scrc.symbolics.com>

Bug with ctv::multiple-choose under Genera 8.1.1

From: Bill York <york%oakland-hills@lucid.com>

Prev: ie-patch.lisp (long)
Next: Can gadgets be deactivated?
Index: CLIM Mailing list (1-Sep-92 to 31-Dec-92)
Thread: CLIM Mailing list Index (1-Sep-92 to 31-Dec-92)

Main Index | Thread Index