Custom Query (1030 matches)

Currently *wrap-lines-to-window* is a global preference that only takes effect when new windows are opened. We need a way to dynamically change this value on a per-window basis (on windows that have already been opened) with a menu item and command-key equivalent.

We should probably keep the global preference as it serves as a default. But it needs to be possible to change this flag dynamically on windows that are already open.

Fred had this capability and it was useful, and we need it in the CCL IDE.

The information seems to still be generally informative and accurate as far as it goes, but deals with things as of 1.1x.

After a long period of stability I'm starting to get Hemlock crashes again. Here's an example. Not much additional info at the moment.

> Error: value NIL is not of the expected type STRUCTURE.
> While executing: (:INTERNAL GUI::|-[HemlockTextstorageTextView keyDown:]|), in process Initial(0).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :b
 (441E98) : 0 (FUNCALL #'#<(:INTERNAL GUI::|-[HemlockTextstorageTextView keyDown:]|)> #<TYPE-ERROR #x300041F9E76D>) 149
 (441EC0) : 1 (SIGNAL #<TYPE-ERROR #x300041F9E76D>) 981
 (441F18) : 2 (%ERROR #<TYPE-ERROR #x300041F9E76D> NIL 558095) 117
 (441F40) : 3 (FUNCALL #'#<(:INTERNAL CCL::%XERR-DISP)>) 4597
 (441F98) : 4 (FUNCALL-WITH-ERROR-REENTRY-DETECTION #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x492EBF>) 181
 (441FD8) : 5 (FUNCALL #'#<CCL::%XERR-DISP> 17591849974758) 493
 (442010) : 6 (%PASCAL-FUNCTIONS% 2 17591849974758) 397
*(442078) : 8 (GET-BINDING-IN-BUFFER #(#<Key-Event Uparrow>) NIL) 35
 (4420D8) : 9 (GET-CURRENT-BINDING #(#<Key-Event Uparrow>)) 117
 (442120) : 10 (FUNCALL #'#<#<STANDARD-METHOD HI::TRANSLATE-AND-LOOKUP-COMMAND (T)>> #(#<Key-Event Uparrow>)) 189
 (442150) : 11 (FUNCALL #'#<#<STANDARD-METHOD HI::GET-COMMAND-BINDING-FOR-KEY (HEMLOCK-VIEW T)>> #<HEMLOCK-VIEW #x300041CCDCED> #<Key-Event Uparrow>) 333
 (442188) : 12 (FUNCALL #'#<#<STANDARD-METHOD HI::BOUND-TO-SYSTEM-DEFAULT-BEHAVIOR-P (HEMLOCK-VIEW T)>> #<HEMLOCK-VIEW #x300041CCDCED> #<Key-Event Uparrow>) 45
 (4421A8) : 13 (FUNCALL #'#<GUI::|-[HemlockTextstorageTextView keyDown:]|> 17591849975114) 1349
 (442230) : 14 (%PASCAL-FUNCTIONS% 73 17591849975114) 397
 (4422F0) : 16 (FUNCALL #'#<Anonymous Function #x300041439BDF> #<A Foreign Pointer [stack-allocated] (:* #) #x7FFF5FBFEF00> #<A Foreign Pointer #x7FFF80772D48> #<NS-EVENT NSEvent: type=KeyDown loc=(0,948) time=779910.9 flags=0xa00100 win=0x0 winNum=14626 ctxt=0x0 chars="" unmodchars="" repeat=0 keyCode=126 (#xB2C14E0)>) 397
 (442318) : 17 (%CALL-NEXT-OBJC-METHOD #<LISP-APPLICATION <LispApplication: 0x1ca9a0> (#x1CA9A0)> #<OBJC:OBJC-CLASS GUI::LISP-APPLICATION (#x1342A0)> #<A Foreign Pointer #x7FFF80772D48> (:VOID :ID) #<NS-EVENT NSEvent: type=KeyDown loc=(0,948) time=779910.9 flags=0xa00100 win=0x0 winNum=14626 ctxt=0x0 chars="" unmodchars="" repeat=0 keyCode=126 (#xB2C14E0)>) 837
 (442378) : 18 (FUNCALL #'#<GUI::|-[LispApplication sendEvent:]|> 17591849975294) 1141
 (4423F0) : 19 (%PASCAL-FUNCTIONS% 15 17591849975294) 397
 (4424B0) : 21 (FUNCALL #'#<Anonymous Function #x30004139141F> #<LISP-APPLICATION <LispApplication: 0x1ca9a0> (#x1CA9A0)> #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF80829D68>)) 205
 (4424D0) : 22 (FUNCALL #'#<(:INTERNAL CCL::SEND-UNAMBIGUOUS-MESSAGE (SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION T)))> #<LISP-APPLICATION <LispApplication: 0x1ca9a0> (#x1CA9A0)>) 501
 (442510) : 23 (EVENT-LOOP #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL PARSE-FOR-SOMETHING) #x300041DC1A6F>) 1093
 (442568) : 24 (FUNCALL #'#<(:INTERNAL PARSE-FOR-SOMETHING)>) 557
 (442600) : 25 (INVOKE-MODIFYING-BUFFER-STORAGE NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL PARSE-FOR-SOMETHING) #x300041DC0E0F>) 445
 (442660) : 26 (FUNCALL #'#<(:INTERNAL PARSE-FOR-SOMETHING)>) 725
 (442700) : 27 (INVOKE-MODIFYING-BUFFER-STORAGE #<Hemlock Buffer "Echo Area 2"> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL PARSE-FOR-SOMETHING) #x300041DC149F>) 445
 (442760) : 28 (PARSE-FOR-SOMETHING :VERIFICATION-FUNCTION #<Compiled-function (:INTERNAL PROMPT-FOR-EXPRESSION) (Non-Global)  #x30004166242F> :TYPE :STRING :STRING-TABLES NIL :VALUE-MUST-EXIST T :DEFAULT-STRING NIL :DEFAULT NIL :PROMPT "Editor Eval: " :HELP "Expression to evaluate" :KEY-HANDLER NIL) 645
 (442828) : 29 (EDITOR-EVALUATE-EXPRESSION-COMMAND NIL) 717
 (442880) : 30 (FUNCALL #'#<#<STANDARD-METHOD HI::EXECUTE-HEMLOCK-KEY (HEMLOCK-VIEW T)>> #<HEMLOCK-VIEW #x300041CBEEDD> #<Key-Event Escape>) 1069
 (442938) : 31 (FUNCALL #'#<(:INTERNAL (HI::HANDLE-HEMLOCK-EVENT (HEMLOCK-VIEW T)))>) 549
 (4429B0) : 32 (INVOKE-MODIFYING-BUFFER-STORAGE #<Hemlock Buffer "Hemlock-hacks.lisp /Users/ron/devel/Lisp code/"> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x300041DC151F>) 445
 (442A10) : 33 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT (HEMLOCK-VIEW T)>> #<HEMLOCK-VIEW #x300041CBEEDD> #<Key-Event Escape>) 925
 (442AC8) : 34 (%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 558465)) 1069
 (442B48) : 35 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND (HEMLOCK-VIEW T)>> #<HEMLOCK-VIEW #x300041CBEEDD> #<Key-Event Escape>) 173
 (442BB0) : 36 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>) 558465) 773
 (442C20) : 38 (FUNCALL #'#<GUI::|-[HemlockTextstorageTextView keyDown:]|> 17591849975338) 1429
 (442CA8) : 39 (%PASCAL-FUNCTIONS% 73 17591849975338) 397
 (442D68) : 41 (FUNCALL #'#<Anonymous Function #x300041439BDF> #<A Foreign Pointer [stack-allocated] (:* #) #x7FFF5FBFF600> #<A Foreign Pointer #x7FFF80772D48> #<NS-EVENT NSEvent: type=KeyDown loc=(0,948) time=779885.1 flags=0x100 win=0x0 winNum=14624 ctxt=0x0 chars="" unmodchars="" repeat=0 keyCode=53 (#xB271A10)>) 397
 (442D90) : 42 (%CALL-NEXT-OBJC-METHOD #<LISP-APPLICATION <LispApplication: 0x1ca9a0> (#x1CA9A0)> #<OBJC:OBJC-CLASS GUI::LISP-APPLICATION (#x1342A0)> #<A Foreign Pointer #x7FFF80772D48> (:VOID :ID) #<NS-EVENT NSEvent: type=KeyDown loc=(0,948) time=779885.1 flags=0x100 win=0x0 winNum=14624 ctxt=0x0 chars="" unmodchars="" repeat=0 keyCode=53 (#xB271A10)>) 837
 (442DF0) : 43 (FUNCALL #'#<GUI::|-[LispApplication sendEvent:]|> 17591849975518) 1141
 (442E68) : 44 (%PASCAL-FUNCTIONS% 15 17591849975518) 397
 (442F28) : 46 (FUNCALL #'#<Anonymous Function #x30004139141F> #<LISP-APPLICATION <LispApplication: 0x1ca9a0> (#x1CA9A0)> #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF80829D68>)) 205
 (442F48) : 47 (FUNCALL #'#<(:INTERNAL CCL::SEND-UNAMBIGUOUS-MESSAGE (SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION T)))> #<LISP-APPLICATION <LispApplication: 0x1ca9a0> (#x1CA9A0)>) 501
 (442F88) : 48 (EVENT-LOOP NIL) 1093
1 >