\TEDIT.COPYINSERTFN is an undefined function error when copying bitmap to TEdit

[pamoroso]

Describe the bug

When copying a bitmap to TEdit by shift-clicking I get this error in a break window:

In OLDFAULT1:
\TEDIT.COPYINSERTFN is an undefined function

To Reproduce

Steps to reproduce the behavior:

1. sign into your Interlisp Online account
2. under Initial Exec, select Interlisp
3. click Run Medley
4. open TEdit
5. click on the TEdit buffer
6. on the background, SHIFT+right-click
7. select SNAP
8. swipe a frame around the Medley logo window

Expected behavior

The bitmap is inserted in the TEdit buffer with no errors.

Screenshots

The full desktop with the break window:

Context (please complete the following information):

• OS: Linux Mint Cinnamon
• OS Version: 22
• Host arch: x86_64 (System76 Merkaat)
• Maiko version: N/A
• IL:MAKESYSDATE: 31-Jul-2024 02:24:40

Additional context

A debugger session:

MOUSE/5(debug)BT
OLDFAULT1
NEWFAULT1
FAULTAPPLY
COPYINSERT
BITMAPOBJ.SNAPW
EVAL
DEFAULT.BACKGROUND.COPYFNA0011
DEFAULT.BACKGROUND.COPYFN
WINDOW.MOUSE.HANDLER

MOUSE/6(debug)?=
  FAULTX = \TEDIT.COPYINSERTFN
  FAULTARGS = ({IMAGEOBJ}#144,171256 {WINDOW}#122,40474)
  FAULTAPPLYFLG = T

After making the COPYINSERT frame current:

MOUSE/7(debug)?=
  IMAGEOBJ = {IMAGEOBJ}#144,171256
MOUSE/8(debug)PB FAULTX
bindings for FAULTX: 
 @ OLDFAULT1 : \TEDIT.COPYINSERTFN
 @ TOP : NOBIND
MOUSE/9(debug)BTV
   IMAGEOBJ {IMAGEOBJ}#144,171256
   TTYW {WINDOW}#122,40474
   INSERTFN \TEDIT.COPYINSERTFN
   IMOBJ {IMAGEOBJ}#144,171256
COPYINSERT
   SCALE NIL
   SAVE NIL
   REG (1672 873 247 182)
   BM {BITMAP}#147,56446
BITMAPOBJ.SNAPW
   *FORM* (BITMAPOBJ.SNAPW)
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* BITMAPOBJ.SNAPW
\EVALFORM
   \INTERNAL NIL
EVAL
   SI::*DUMMY-FOR-CATCH* T
   SI::*CATCH-RETURN-FROM* (& &)
DEFAULT.BACKGROUND.COPYFNA0011
   FORM (BITMAPOBJ.SNAPW)
   SI::NLSETQ-VALUE NIL
   *PROCEED-CASES* (& &)
   SI::*NLSETQFLAG* NIL
DEFAULT.BACKGROUND.COPYFN
   SI::*DUMMY-FOR-CATCH* T
   SI::*CATCH-RETURN-FROM* (&)
\PROTECTED.APPLYA0001
   FN DEFAULT.BACKGROUND.COPYFN
   WINDOW NIL
   SI::NLSETQ-VALUE NIL
   *PROCEED-CASES* (&)
   SI::*NLSETQFLAG* NIL
\PROTECTED.APPLY
   \MHCOM NIL
   \MHPROCESS NIL
   \MHWINDOW NIL
   \MOUSEBUSY T
WINDOW.MOUSE.HANDLER
   \OLDTTY #<Process TEdit/174,24000>
   \MOUSEBUSY NIL
\MOUSE.PROCESS
   *FORM* (\MOUSE.PROCESS)
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* \MOUSE.PROCESS
\EVALFORM
   %#FORM# (\MOUSE.PROCESS)
   *CURRENT-PROCESS* #<Process OLDMOUSE/174,24410>
   HELPFLAG BREAK!
   \CURRENTDISPLAYLINE 0
   \#DISPLAYLINES 40
   \LINEBUF.OFD #<IO Stream on T/174,74500>
   *READTABLE* #<ReadTable INTERLISP/174,73714>
   \PRIMTERMTABLE {TERMTABLEP}#174,66740
   \PRIMTERMSA {CHARTABLE}#174,67000
   TtyDisplayStream 
#<Output Display Stream/130,40200>
   SI::*RESETFORMS* NIL
   \INTERRUPTABLE T
   \TTYWINDOW NIL
   READBUF NIL
   \TERM.OFD #<Output Stream on T/170,111300>
   *STANDARD-OUTPUT* #<Output Stream on T/170,111300>
   *STANDARD-INPUT* #<IO Stream on T/174,74500>
\MAKE.PROCESS0
T