CLIM mail archive

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

Bug with ctv::multiple-choose under Genera 8.1.1



    Date: Fri, 2 Oct 1992 14:09 EDT
    From: Schneider Daniel <schneide@divsun.unige.ch>

    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

It looks like Genera's decrepit stream system is missing some methods
for string streams.  I believe that the version of multiple-choose that
I wrote and submitted to the CLIM library will work; you might try using
it instead, if it does what you require.

    #|
    (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,,

References:

Main Index | Thread Index