Lisp HUG Maillist Archive

Can't use "Code" in Interface Builder when simple-char is default

DESCRIPTION: Can't use "Code" in Interface Builder when simple-char is
default <and a simple test case, if possible>

IMPACT: Broken

URGENCY: Current Release

Hi, LispWorks Support

I can't use the "Code" function(tab) in the Interface Builder. By
checking every config in my ~/.lispworks, I found this line can cause
the bug:

;; use simple-char
(set-default-character-element-type 'simple-char)

I also have these in my ~/.lispworks, as you fixed a bug early:

;; bug? fixed by LW.
(setf *print-pretty* t)

(set-pprint-dispatch
 'character
 #'(lambda (stream char)
     (write-string
      (with-output-to-string (base-stream nil :element-type 'base-char)
        (write char :stream base-stream :pretty nil))
      stream)))

Is there any solution or advice? Thanks.

Chun Tian (binghe)

PRODUCT CONFIGURATION:

  LispWorks 5.0.2

Save history:

1: lispworks-5-0-0-0-amd64-linux-release-base
Saved by davef as lispworks-5-0-0-0-amd64-linux-release-base, at 28 Jun
2006 19:09

2: lispworks-5-0-0-0-amd64-linux-release-xm-shaken
Saved by davef as lispworks-5-0-0-0-amd64-linux-release-xm-shaken, at 28
Jun 2006 19:20

3: lispworks-5-0-0-0-amd64-linux-release-xm-shaken
Saved by davef as lispworks-5-0-0-amd64-linux, at 24 Jul 2006 18:52
LispWorks 5.0.0

4: lispworks-5-0-2-0-amd64-linux-release-xm-shaken
Saved by binghe as lispworks, at 04 Jul 2007 22:24
LispWorks 5.0.2

Loaded Modules:  "interface-builder", "dynamic-complete", "ASDF"

Public patches:  PATCH-ITSELF 1.42, CAPI-MOTIF 1.2, CAPI 1.17,
  SYSTEM 1.64, FLI 1.11, COMPILER 1.7, SYSTEM64 1.17, FULL 1.16,
  EDITOR 1.12, MP 1.4, CLOS 1.7, EXTERNAL-FORMATS 1.1,
  INTERFACE-BUILDER 1.1
Private patches:  EXTERNAL-FORMATS-WINDOWS-936-2000

Foreign modules:
  #<FLI::INTERNAL-MODULE :LISP : exports = 0>
  #<FLI::INTERNAL-MODULE :CALLBACKS : exports = 0>
  #<FLI::EXTERNAL-MODULE X-UTILITIES::CAPIX11 
{/tmp/LWtemp.2950.lab.163.org.16919.0.so}: handle = #x0050A450; exports
= 221>

Signal Handlers
1       CAPI-MOTIF-LIBRARY::HUP-HANDLER NIL
2       SYSTEM::SIGINT-HANDLER NIL
10      MP::CALL-BREAK-OF-MP NIL
12      MP::PANIC NIL
13      RAW::THE-NULL-FUNCTION NIL
17      SYSTEM::GET-CHILDREN-INF NIL
26      MP::TIME-EVENT-HANDLER NIL
29      SYSTEM::THE-NULL-FUNCTION NIL

HOST CONFIGURATION:

  2950.lab.163.org (x86_64), Linux 2.6.18-4-xen-vserver-amd64

LWSerialNumber: LWENT0500040700928873

Site: Unknown

Motif library version: 2002 "@(#)Motif Version 2.2.3"

Display & window manager: localhost:10.0

Backtrace:
#<The COMMON-LISP-USER package, 13/32 internal, 0/4 external>
#<MP:PROCESS Name "Interface Builder 1" Priority 70000000 State "Running">

Condition: Editor-Error Handler EDITOR::DEFAULT-EDITOR-ERROR-HANDLER
returned.
Call to ERROR (offset 80)
  SYSTEM::ESTRING : "Editor-Error Handler ~S returned."
  SYSTEM::EARGS   : (EDITOR::DEFAULT-EDITOR-ERROR-HANDLER)

Call to EDITOR:EDITOR-ERROR (offset 166)
  EDITOR::ARGS : ("String ~S of wrong type for buffer ~S"
"(capi:define-interface interface-1 ()
  ()
  (:default-initargs
   :best-height 300
   :best-width 300
   :title \"Interface-1\"))
" #<EDITOR:BUFFER CAPI editor-pane 3>)

Call to CAPI:MODIFY-EDITOR-PANE-BUFFER (offset 407)
  CAPI::CONTENTS   : "(capi:define-interface interface-1 ()
  ()
  (:default-initargs
   :best-height 300
   :best-width 300
   :title \"Interface-1\"))
"
  CAPI::FLAG       : NIL
  CAPI::FIXED-FILL : NIL
  FILL             : :DEFAULT
  CAPI::FORCE      : T
  CAPI::MODIFIED   : T
  CAPI::PANE       : #<CAPI:EDITOR-PANE CAPI:EDITOR-PANE  40D00EB1A3>
  DBG::|rest-|     : (:CONTENTS "(capi:define-interface interface-1 ()
  ()
  (:default-initargs
   :best-height 300
   :best-width 300
   :title \"Interface-1\"))
")

Call to (METHOD (SETF CAPI:EDITOR-PANE-TEXT) (T CAPI:EDITOR-PANE))
(offset 43)
  CAPI-INTERNALS:TEXT : "(capi:define-interface interface-1 ()
  ()
  (:default-initargs
   :best-height 300
   :best-width 300
   :title \"Interface-1\"))
"
  CAPI::SELF          : #<CAPI:EDITOR-PANE CAPI:EDITOR-PANE  40D00EB1A3>

Call to (METHOD INTERFACE-BUILDER::UPDATE-VIEW-DISPLAY
(INTERFACE-BUILDER::INTERFACE-BUILDER-CODE-EDITOR)) (offset 31)
  INTERFACE-BUILDER::SELF :
#<INTERFACE-BUILDER::INTERFACE-BUILDER-CODE-EDITOR
INTERFACE-BUILDER::CODE-EDITOR 40D00EB1EB>

Binding frame:
  CLOS::*NEXT-METHODS* : NIL

Binding frame:
  CLOS::*NEXT-METHODS* : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE
410002E21C>)

Call to (METHOD (SETF CAPI-TOOLKIT:VIEW-INTERFACE-VIEW) :AROUND (T
LISPWORKS-TOOLS::INTERFACE-BUILDER)) (offset 252)
  INTERFACE-BUILDER::NEW-VIEW : :CODE
  INTERFACE-BUILDER::SELF     : #<LISPWORKS-TOOLS::INTERFACE-BUILDER
"Interface Builder 1" 40D00EAF73>

Binding frame:
  CLOS::*NEXT-METHODS* : NIL

Catch frame: CAPI::ABORT-CALLBACK-CATCH

Binding frame:
  CAPI::*TOP-LEVEL-INTERFACE* : #<LISPWORKS-TOOLS::INTERFACE-BUILDER
"Interface Builder 1" 40D00EAF73>

Catch frame: "<* Catch All Object *>"

Binding frame:
  CAPI::*PREVIOUS-OVERRIDE-CURSORS* :
(#<LISPWORKS-TOOLS::INTERFACE-BUILDER "Interface Builder 1" 40D00EAF73>)

Call to CAPI::EXECUTE-CALLBACK (offset 2195)
  CAPI-INTERNALS:CALLBACK : CAPI-TOOLKIT::SET-VIEW-LAYOUT-INTERFACE-VIEW
  CAPI:ITEM               : (:CODE INTERFACE-BUILDER::CODE-EDITOR)
  CAPI:COLLECTION         : #<CAPI:TAB-LAYOUT [3 items] 40D00EB2B3>
  CAPI::CALLBACK-ACCESSOR : CAPI:CALLBACKS-SELECTION-CALLBACK
  CAPI::CALLBACK-ITEM     : #<CAPI:TAB-LAYOUT [3 items] 40D00EB2B3>
  CAPI::DATA              : (:CODE INTERFACE-BUILDER::CODE-EDITOR)
  CAPI::DATAP             : T
  CAPI::MAYBE-POSITION    : CAPI::NOT-GIVEN
  CAPI::ITEM-P            : NIL

Call to CAPI:EXECUTE-WITH-INTERFACE (offset 379)
  CAPI:INTERFACE : #<LISPWORKS-TOOLS::INTERFACE-BUILDER "Interface
Builder 1" 40D00EAF73>
  FUNCTION       : CAPI::EXECUTE-CALLBACK
  CAPI::ARGS     : (CAPI-TOOLKIT::SET-VIEW-LAYOUT-INTERFACE-VIEW
#2=(:CODE INTERFACE-BUILDER::CODE-EDITOR) #1=#<CAPI:TAB-LAYOUT [3 items]
40D00EB2B3> CAPI:CALLBACKS-SELECTION-CALLBACK #1# #2# T CAPI::NOT-GIVEN NIL)

Call to CAPI::DO-CALLBACK-CALL (offset 330)
  CAPI:ITEM               : (:CODE INTERFACE-BUILDER::CODE-EDITOR)
  CAPI:COLLECTION         : #<CAPI:TAB-LAYOUT [3 items] 40D00EB2B3>
  CAPI::CALLBACK-ACCESSOR : CAPI:CALLBACKS-SELECTION-CALLBACK
  CAPI::DATA              : (:CODE INTERFACE-BUILDER::CODE-EDITOR)
  POSITION                : CAPI::NOT-GIVEN

Call to (METHOD CAPI-INTERNALS:CAPI-COLLECTION-CALLBACK (CAPI:CHOICE T))
(offset 288)
  CAPI::USER-SELECTION    : NIL
  CAPI::INDEX             : 2
  CAPI::THE-ITEM          : NIL
  CAPI::CALLBACK-ACCESSOR : CAPI:CALLBACKS-SELECTION-CALLBACK
  CAPI:CHOICE             : #<CAPI:TAB-LAYOUT [3 items] 40D00EB2B3>
  CAPI::NEW-SELECTED      : 2
  DBG::G                  : NIL

Binding frame:
  CLOS::*NEXT-METHODS* : NIL

Binding frame:
  CLOS::*NEXT-METHODS* : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE
41000128C4>)

Call to CLOS::NEXT-METHOD-CALL-3 (offset 188)
  CONS               : (METHOD CAPI-INTERNALS:CAPI-COLLECTION-CALLBACK
:AROUND (CAPI:CHOICE T))
  CLOS::NEXT-METHODS : (#<Closure CLOS::METHOD-COMBINATION-TEMPLATE
41000128C4>)
  #:G158082          : #<CAPI:TAB-LAYOUT [3 items] 40D00EB2B3>
  #:G158083          : 2
  #:G158084          : NIL

Catch frame: "<* Catch All Object *>"

Call to (METHOD CAPI-INTERNALS:CAPI-COLLECTION-CALLBACK :AROUND
(CAPI:CHOICE T)) (offset 164)
  CAPI:CHOICE        : #<CAPI:TAB-LAYOUT [3 items] 40D00EB2B3>
  CAPI::NEW-SELECTED : 2
  DBG::G             : NIL

Binding frame:
  CLOS::*NEXT-METHODS* : NIL

Call to CLOS::GENERIC-FUNCTION-DISCRIMINATOR (offset 320)

Catch frame: "<* Catch All Object *>"

Binding frame:
  CAPI::*PREVIOUS-OVERRIDE-CURSORS* : NIL

Catch frame: CAPI::ABORT-CALLBACK-CATCH

Binding frame:
  CAPI::*TOP-LEVEL-INTERFACE* : NIL

Call to CAPI::IN-PROCESS-CAPI-EVENT-CALLBACK (offset 775)
  CAPI::SELF                : #<CAPI::CAPI-GENERIC-TAB-LAYOUT
#<CAPI:TAB-LAYOUT [3 items] 40D00EB2B3> 40D00EB2F3>
  CAPI::TRANSLATOR          : NIL
  CAPI-INTERNALS:CALLBACK   : CAPI::SELECT-TAB
  CAPI::EXTRA-CALLBACK-ARGS : NIL
  CAPI::EVENT-ARGS          : (447 435)

Call to (METHOD MP:GENERAL-HANDLE-EVENT (CONS)) (offset 222)
  MP::EVENT : (CAPI::IN-PROCESS-CAPI-EVENT-CALLBACK
#<CAPI::CAPI-GENERIC-TAB-LAYOUT #<CAPI:TAB-LAYOUT [3 items] 40D00EB2B3>
40D00EB2F3> NIL CAPI::SELECT-TAB NIL (447 435))

Call to CAPI-INTERNALS:LOOP-PROCESS-EVENTS (offset 837)
  CAPI::PANE          : #<LISPWORKS-TOOLS::INTERFACE-BUILDER "Interface
Builder 1" 40D00EAF73>
  CAPI::EXIT-TEST     : (CAPI::EXIT-EVENT-LOOP-P (NIL))
  CAPI::WAIT-FUNCTION : NIL
  CAPI::WAIT-STRING   : "Waiting for events"
  CAPI::NO-HANG-P     : NIL

Catch frame: (NIL)

Catch frame: (NIL)

Binding frame:
  CAPI::*EXIT-EVENT-LOOP* : #<Unbound Marker>

Call to CAPI::INTERFACE-EVENT-LOOP (offset 390)
  CAPI:INTERFACE : #<LISPWORKS-TOOLS::INTERFACE-BUILDER "Interface
Builder 1" 40D00EAF73>


CAPI::INTERFACE-EVENT-LOOP <- CAPI::INITIALIZE-AND-PROCESS-EVENTS
<- (METHOD CAPI-LIBRARY:INTERFACE-PROCESS-WRAPPER
(CAPI-MOTIF-LIBRARY::SCREEN-REPRESENTATION T T))
<- (SUBFUNCTION MP::PROCESS-SG-FUNCTION MP::INITIALIZE-PROCESS-STACK)
<- SYSTEM::%%FIRST-CALL-TO-STACK

 > Generation 7: 29279952 (0x1BEC6D0)
       Cons               4604736 (0x464340)
       Non-Pointer        2675344 (0x28D290)
       Other              7189776 (0x6DB510)
       Symbol             2529072 (0x269730)
       Function           11979336 (0xB6CA48)
       Non-Pointer-Static 6136 (0x17F8)
       Mixed-Static       294864 (0x47FD0)
       Weak               688 (0x2B0)
 > Generation 6: 0 (0x0)
 > Generation 5: 0 (0x0)
 > Generation 4: 0 (0x0)
 > Generation 3: 0 (0x0)
 > Generation 2: 2706056 (0x294A88)
       Non-Pointer        547808 (0x85BE0)
       Other              128 (0x80)
       Symbol             34896 (0x8850)
       Non-Pointer-Static 2098304 (0x200480)
       Mixed-Static       24920 (0x6158)
 > Generation 1: 3449248 (0x34A1A0)
       Cons               1071536 (0x1059B0)
       Non-Pointer        50560 (0xC580)
       Other              1990296 (0x1E5E98)
       Symbol             624 (0x270)
       Function           336072 (0x520C8)
       Weak               160 (0xA0)
 > Generation 0: 952240 (0xE87B0)
       Cons               568032 (0x8AAE0)
       Non-Pointer        52984 (0xCEF8)
       Other              291544 (0x472D8)
       Function           39520 (0x9A60)
       Weak               160 (0xA0)

Total allocation 36387496 (0x22B3AA8), total size 131321856 (0x7D3D000)


Updated at: 2020-12-10 08:45 UTC