[Openmcl-devel] broken search files dialog

[Raffael Cavallaro]

On Apr 26, 2009, at 7:53 PM, Gary Byers wrote:

> If you just type text into the "Find" text field and click on the  
> "Search"
> button, it seems to search for the empty string.

Right, I discovered this later. Also, if you enter the search string  
and select a directory using the Choose… button, the Find: field keeps  
focus, so it still searches for the empty string.

If, having once searched on the empty string, you change focus to  
another field and then execute the search, Alt Console prints the  
following error and the search progress indicator spins indefinitely  
with no results. the Search Files dialog becomes unusable after this.  
If you want me to open a trac ticket on this let me know:

*** Error in event process: value 0 is not of the expected type  
STRUCTURE.

  (342DC0) : 0 (FUNCALL #'#<(:INTERNAL GUI::|- 
[SearchFilesWindowController updateResults:]|)> #<TYPE-ERROR  
#x9288FE6>) 151
   (#:G35534)
    #:G35534: #<TYPE-ERROR #x9288FE6>

   #:COMPILER-VAR: (NIL)
   #:G35531: #<A Foreign Pointer [stack-allocated] #xBFFFEAB8>

  (342DD4) : 1 (SIGNAL #<TYPE-ERROR #x9288FE6>) 903
   (CONDITION &REST CCL::ARGS)
    CONDITION: #<TYPE-ERROR #x9288FE6>
    CCL::ARGS: NIL

   CCL::%HANDLERS%: ((ERROR) (ERROR))
   CCL::TAG: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #xCBEAE>)
   CCL::HANDLERS: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #xCBEAE>)
   CCL::FN: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|- 
[SearchFilesWindowController updateResults:]|) #xCBEAE>

  (342DFC) : 2 (%ERROR #<TYPE-ERROR #x9288FE6> NIL 854960) 119
   (CONDITION CCL::ARGS CCL::ERROR-POINTER)
    CONDITION: #<TYPE-ERROR #x9288FE6>
    CCL::ARGS: NIL
    CCL::ERROR-POINTER: 854960



  (342E10) : 3 (FUNCALL #'#<(:INTERNAL CCL::%XERR-DISP)>) 3447
   NIL

   CCL::FRAME-PTR: 854960
   CCL::FN: #<Compiled-function GUI::|-[SearchFilesWindowController  
updateResults:]| (Non-Global)  #x8F2ECE6>
   CCL::OP0: 205
   CCL::OP1: 222
   CCL::OP2: 122
   CCL::SKIP: -1
   CCL::TYPENAME: STRUCTURE
   CCL::XP: #<A Foreign Pointer #xBFFFE980>
   CCL::XCF: #<A Foreign Pointer #x342EC0>

  (342E3C) : 4 (FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED- 
LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #xCBE4E>) 183
   (CCL::THUNK)
    CCL::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP)  
#xCBE4E>

   COUNT: 0
   CCL::*ERROR-REENTRY-COUNT*: 0

  (342E5C) : 5 (FUNCALL #'#<CCL::%XERR-DISP> -268437406) 431
   (#:G128876)
    #:G128876: -268437406

   #:G128886: #<A Foreign Pointer [stack-allocated] #xBFFFE188>
   CCL::XP: #<A Foreign Pointer #xBFFFE980>
   CCL::XCF: #<A Foreign Pointer #x342EC0>
   #:G128887: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP)  
#xCBE4E>

  (342E78) : 6 (%PASCAL-FUNCTIONS% 2 -268437406) 343
   (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
    CCL::INDEX: 2
    CCL::ARGS-PTR-FIXNUM: -268437406

   CCL::LISP-FUNCTION: #<Compiled-function CCL::%XERR-DISP (Non- 
Global)  #x83E1E3E>
   WITHOUT-INTERRUPTS: NIL
   CCL::*CALLBACK-TRACE-P*: NIL

*(342EC0) : 8 (FUNCALL #'#<GUI::|-[SearchFilesWindowController  
updateResults:]|> -268436818) 852
   (#:G35530)
    #:G35530: -268436818

   #:G35546: #<A Foreign Pointer [stack-allocated] #xBFFFEAB8>
   #:G35531: #<A Foreign Pointer [stack-allocated] #xBFFFEAB8>
   #:COMPILER-VAR: (NIL)
   #:G35536: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|- 
[SearchFilesWindowController updateResults:]|) #xCBEAE>
   #:G35547: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #xCBEAE>)
   CCL::%HANDLERS%: ((CONDITION #) (ERROR))
   GUI::WC: #<SEARCH-FILES-WINDOW-CONTROLLER  
<SearchFilesWindowController: 0x894c00> (#x894C00)>
   GUI::_CMD: #<A Foreign Pointer #x119D90>
   GUI::MSG: #<NS-MUTABLE-STRING "Found 106 occurrences in 25 files  
out of 34 files searched." (#x86946CD0)>
   GUI::OLD-RESULTS: #(#S(GUI::SEARCH-RESULT-FILE :NAME "anticipat- 
symbol-complete.lisp" :NSSTR #<# # (#x86912820)> ...) #S(GUI::SEARCH- 
RESULT-FILE :NAME "aproposes.lisp" :NSSTR #<# # (#x8691CA40)> ...)  
#S(GUI::SEARCH-RESULT-FILE :NAME "bezier.lisp" :NSSTR #<# #  
(#x86915600)> ...) #S(GUI::SEARCH-RESULT-FILE :NAME "ccl-qt-video- 
capture-example/qtvidcapture.lisp" :NSSTR #<# # (#x1F8E70)> ...)  
#S(GUI::SEARCH-RESULT-FILE :NAME "choose-directory-dialog.lisp" :NSSTR  
#<# # (#x1E4EB0)> ...) ...)
   #:G35549: 34
   GUI::F: 0

  (342F20) : 9 (%PASCAL-FUNCTIONS% 240 -268436818) 343
   (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
    CCL::INDEX: 240
    CCL::ARGS-PTR-FIXNUM: -268436818

   CCL::LISP-FUNCTION: #<Compiled-function GUI::|- 
[SearchFilesWindowController updateResults:]| (Non-Global)  #x8F2ECE6>
   WITHOUT-INTERRUPTS: NIL
   CCL::*CALLBACK-TRACE-P*: NIL

  (342F68) : 11 (FUNCALL #'#<Anonymous Function #x8B74D76> #<LISP- 
APPLICATION <LispApplication: 0x81a000> (#x81A000)> #S(CCL::OBJC- 
SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x95B26A24>)) 199
   (#:G3061 #:G3062)
    #:G3061: #<LISP-APPLICATION <LispApplication: 0x81a000> (#x81A000)>
    #:G3062: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign  
Pointer #x95B26A24>)



  (342F78) : 12 (FUNCALL #'#<(:INTERNAL CCL::SEND-UNAMBIGUOUS-MESSAGE  
(SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION T)))> #<LISP- 
APPLICATION <LispApplication: 0x81a000> (#x81A000)>) 935
   (CCL::RECEIVER &REST CCL::ARGS)
    CCL::RECEIVER: #<LISP-APPLICATION <LispApplication: 0x81a000>  
(#x81A000)>
    CCL::ARGS: NIL

   #:G2582: #<A Foreign Pointer [stack-allocated] (:* #) #xBFFFFA30>
   #:G2583: -268435838
   CCL::SELECTOR: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign  
Pointer #x95B26A24>)
   FUNCTION: #<Anonymous Function #x8B74D76>

  (342FB8) : 13 (EVENT-LOOP NIL) 343
   (&OPTIONAL GUI::END-TEST)
    GUI::END-TEST: NIL

   GUI::APP: #<LISP-APPLICATION <LispApplication: 0x81a000> (#x81A000)>
   *BREAK-ON-ERRORS*: NIL
   #:G7205: (ERROR)
   CCL::%HANDLERS%: ((ERROR))
   GUI::*EVENT-PROCESS-REPORTED-CONDITIONS*: (#<TYPE-ERROR #x9288FE6>)






regards,

Ralph




Raffael Cavallaro, Ph.D.
raffaelcavallaro at mac.com