ThesaSrc: zwndproc -- message handle for Thesa

See Example of stack trace and

See (ThesaHelp: buy the source for Thesa)

;Copyright (C) 2002 C. Bradford Barber.  All rights reserved.
;$Id: //product/ $
;$DateTime: 2002/08/10 21:28:43 $$Change: 65 $$Author: bbarber $
	include all.sym
codew	segment 
	PUBLIC wndproc

 ;;filter Messages for main Window
 ;   	proc hwnd:WORD,wmsg:WORD, wparam:WORD, lparam:DWORD
 ;	lasttime= cpu time of wm_timer message
 ;	DX:AX= depends on wmsg
 ;	DS,ES destroyed
 ;      calls defwndproc by default (MSDN Win3.1 SDK 0.2.13)
 ;	see below (wndproc) for message handling
 ;	must trap all errors
 ;	Current .crnoupdate= true if don't update the display
 ;group: sys.-windows
 ; call: zpurna initwin and Windows routines that call wndproc
 ; xref: zerrordlg

wndproc proc far
  stackdef <0>,<>
  aa@lparam = dword ptr argpas.word0
  aa@wparam = word  ptr argpas.word2
  aa@wmsg   = word  ptr argpas.word3 
  aa@hwnd   = word  ptr argpas.word4
  aa@argcnt = word5
  pushm	si,di,ds
  mov	ax,[bp].aa@hwnd		;;case of MessageId
  mov	bx,[bp].aa@wmsg
  mov	cx,[bp].aa@wparam
  mov	si,[bp]
  mov	di,[bp].aa@lparam.of
 ;  proclogx ,,'wndproc (zwndproc): hwnd @ax.hex msg @bx.hex wparam @cx.hex lparam @si.hex.di.hex'
  mov	ds,ss:curdataseg
  cmp	bx,wm_destroy
  mov	dx,'de'
  je	aa@wndprocx
  test	ss:curflags,crexitprogram ;;.{{InExitProgram
  jnz	aa@defwndprocx		;;..default processing of Message
  FIXUP ;should message processing depend on msgdepth? instead of dlgdepth etc.?
  test	ss:errinit,true		;;default processing unless ErrorInitialized
  jz	aa@defwndprocx		;;  and Current .display .initialized
  cmp	ss:curdisplay,sgnoref	;;  and Current .display .isValid
  je	aa@defwndprocx
  test	ss:sysinit,true		;;  and Current .systemInit
  FIXUP ;default processing locks everything out.  Now needs errinit, curdisplay, and sysinit
  jz	aa@defwndprocx
  mov	es,ss:curdisplay
  test	es:diflags,dinotvalid+dicheckerr
  jnz	aa@defwndprocx
  cmp	bx,wm_changecbchain
  mov	dx,'cb'
  je	aa@wndprocx
  cmp	bx,wm_close
  mov	dx,'cl'
  je	aa@wndprocx
  cmp	bx,wm_create
  mov	dx,'cr'
  je	aa@wndprocx
  cmp	bx,wm_drawclipboard
  mov	dx,'dr'
  je	aa@wndprocx
  cmp	bx,wm_mouseactivate
  mov	dx,'ma'
  je	aa@wndprocx
  cmp	bx,wm_queryendsession
  mov	dx,'qe'
  je	aa@wndprocx
  cmp	bx,wm_initmenu ;needed for cxignorebutton during zhancontext
  mov	dx,'im' 
  je	aa@wndproc
  cmp	bx,wm_killfocus
  mov	dx,'kf'
  je	aa@wndprocx
  cmp	bx,wm_paint		;;process paint {clears screen on inErrorDialog) 
  mov	dx,'pt'
  je	aa@wndprocx
  cmp	bx,th_basefocus
  mov	dx,'s2'
  je	aa@wndprocx
  cmp	bx,wm_setfocus
  mov	dx,'sf'
  je	aa@wndprocx
  FIXUP ;shouldn't setfocus be for all?
  cmp	ss:dlgdepth,0		;;if Current .dialogDepth
  je	aa@notdialog
  cmp	bx,wm_setcursor		;;.if Message = .setCursor
  jne	aa@notup2
  cmp	si,wm_lbuttonup		;;  and Message .mouseMessage = .leftButtonUp
  mov	dx,'su'	
  je	aa@wndprocx		;;..process set_cursor.up
  jmp	aa@defwndproc		;;.default processing
  FIXUP ;if curdata undefined then get an error 
  cmp	bx,ds:ufindmsg
  mov	dx,'fi'			;FindText from hwins
  je	aa@wndprocx
  cmp	ax,ds:hwins		;;default processing if SubWindows
  je	aa@defwndprocx
  cmp	ss:msgdepth,0		;;  or MessageDepth > 0
  ja	aa@defwndprocx
  cmp	bx,wm_char
  mov	dx,'ch'
  jne	aa@notch
  cmp	cx,chmaxcontrol		;;non-printables processed as 'kd'
  jbe	aa@defwndprocx
  cmp	cx,chmaxprint
  ja	aa@defwndprocx
  jmp	aa@wndproc
  cmp	bx,wm_command
  mov	dx,'cm'
  je	aa@wndprocx
  cmp	bx,wm_compacting
  mov	dx,'cp'
  je	aa@wndprocx
  ;wm_endsession, 		;;.{{EndSession}}
				;; nothing, full save in wm_queryendsession
  cmp	bx,wm_erasebkgnd	;;.{{EraseBackground}}
  je	aa@retnonzero 		;;..return True {upddisplay handles erase}
  cmp	bx,wm_hscroll
  mov	dx,'hs'
  je	aa@wndprocx
  cmp	bx,wm_initmenupopup
  jne	aa@notpopup
  mov	dx,'ip'
  cmp	di,3
  je	aa@wndprocx
  cmp	di,5
  je	aa@wndprocx
  cmp	di,6
  je	aa@wndprocx
  cmp	di,7
  je	aa@wndprocx
  jmp	aa@defwndproc
  cmp	bx,wm_keydown
  jne	aa@notkeyd
  callz zvirtual ;all,>dl	;remove cnisstate keys from log
  cmp	dl,cnisstate
  mov	dx,'kd'
  je	aa@defwndproc
  jmp	aa@wndproc
  cmp	bx,wm_lbuttondblclk
  mov	dx,'ld'
  je	aa@wndprocx
  cmp	bx,wm_lbuttondown
  mov	dx,'lb'
  je	aa@wndprocx
  cmp	bx,wm_lbuttonup
  mov	dx,'lu'
  je	aa@wndproc
  cmp	bx,wm_menuchar
  mov	dx,'mc' 
  je	aa@wndprocx
  cmp	bx,wm_mousemove
  jne	aa@notmove
  callz	zmousemove
  clear	ax
  clear	dx
  jmp	aa@ret1
  cmp	bx,wm_renderallformats
  mov	dx,'ra'
  je	aa@wndproc
  cmp	bx,wm_rbuttondblclk
  mov	dx,'rd'
  je	aa@wndproc
  cmp	bx,wm_rbuttondown
  mov	dx,'rb'
  je	aa@wndproc
  cmp	bx,wm_renderformat
  mov	dx,'rf'
  je	aa@wndproc
  cmp	bx,wm_rbuttonup
  mov	dx,'ru'
  je	aa@wndproc
  ;wm_setcursor is handled by wm_mousemove
  cmp	bx,wm_size
  mov	dx,'sz'
  je	aa@wndproc
  cmp	bx,wm_syscolorchange
  mov	dx,'cc'
  je	aa@wndproc
  cmp	bx,wm_syscommand
  jne	aa@notcmd
  mov	dx,'sc'
  push	cx
  and	cx,0fff0h
  cmp	cx,sc_minimize
  pop	cx
  jne	aa@notminimize
  cmp	ax,ds:hwnd
  je	aa@wndproc
  jmp	aa@defwndproc
  cmp	bx,wm_syskeydown
  jne	aa@notsys
  callz zvirtual ;all,>dl 
  cmp	dl,cnisstate
  je	aa@defwndproc
  mov	dx,'sd'
  cmp	cx,vk_f10
  je	aa@wndproc
  cmp	cx,vk_escape
  je	aa@wndproc
  test	si,sys_alternate2 ;alt-key
  jz	aa@defwndproc  ;key to minimized window
  pushm	ax,cx,di
  mov	al,cl
  ESsym	di,txtmenuchars		;;....default processing if .character in .menuChars
  mov	cl,es:[di].byte0
  clear	ch
  inc	di
  repne	scasb
  popm	di,cx,ax
  je	aa@defwndproc
  jmp	aa@wndproc
  cmp	bx,wm_timer		;;.{{Timer}}
  jne	aa@nottime
  cmp	cx,wstimerid		;;..exit if Message .timerId != .thesa
  jne	aa@defwndproc
  push	di
  push	cx
  op32				;;..Message .timerId <- classify 
  mov	di,ds:lasttime.low4	;;    lasttime >= looktime, nextmax, updtime
  cmp	di,ds:nextmax.low4
  mov	cx,3 
  NOTE  ;uses timerid
  jae	aa@wndtime  
  cmp	di,ds:looktime.low4
  mov	cx,1
  jae	aa@wndtime
  cmp	di,ds:updtime.low4
  mov	cx,2
  jae	aa@wndtime
  pop	cx
  pop	di
  jmp	aa@defwndproc
  pop	di ;ignore cx (timeid)
  pop	di
  mov	dx,'ti'
  jmp	aa@wndproc  
aa@defwndproc:			;;.{{Default}}
  test	ss:testmode,true	;;..if TestMode
  jz	aa@nolog
  cmp	ss:dlgdepth,0		;;  and DialogDepth = 0 {otherwise lots of messages}
  jne	aa@nolog		;;...log request
  proclog ,,'zwndproc: defwindowproc hwnd @ax.hex msg @bx.hex wparam @cx.hex lparam @si.hex.di.hex'
  syswin defwindowproc, 
  jmp	aa@ret1
  clear	dx
  setnz ax
  jmp	aa@ret1
  call	zwndproc ;xds,xes,xseg,>dx:ax
  popm	ds,di,si
  ret	aa@argcnt 
wndproc ENDP

;;handle windows Message
;	SS:BP,BX= Message (DH,DL= two-char code)
;	AX=   .hwnd
;	CX=   .wparam
;	SI:DI= .lparam
;	    EDI= CPU time for wm_timer
;	DS= curdataseg
;	DX:AX= returned value for wmsg (normally 0)
;	clears ss:timecnt via ztimer
;	DS,ES destroyed
;	any segment may move
;	see above for message filter
	FIXUP ;rewrite zwndproc to make messages look like commands
;	first call is wm_create from initwin
;	must trap all errors since called by Windows
;set crupdcells when:
;	curid changes (crnewcur, updcuritem, hanother)
;	need to reread data from disk (remdatas)
;	reset (handisplay, error, hanreset, chkwork repair)
;	update non-text, non-title cell (hancellcursor, hanother, nearcell)
;	also setid and repblank
;	VOK 1997/12
;group: sys.-windows
; call: initwin zpurna
; xref: zcommand e:\msvc\samples\defprocs\defwnd.c zerrordlg

	public zwndproc

  dec	ss:inwindows ;called from DispatchMessage in zpurna ; before proccall since lots of time
  proccall ,,'zwndproc: process Message @bx.hex xx ''@dh.chr.dl.chr'' hwnd @ax.hex wparam @cx.hex (@cx.dec)\\lparam @si.hex.di.hex (@si.dec.di.dec)'
  stackdef <1>,
   aa@hwndax		equ word ptr zz@ax
   aa@msgid		equ word ptr zz@bx
   aa@wparamcx		equ word ptr zz@cx
   aa@lparamsi		equ word ptr zz@si
   aa@lparamdi		equ word ptr zz@di
  inc	ss:msgdepth		;;bump MessageDepth
  callz zlogstate ;all		;;log Thesa state
  cmp	bx,wm_setfocus		;;unless Command .isMouse or .setFocus
  je	aa@notignore
  cmp	bx,wm_killfocus
  je	aa@notignore
  cmp	bx,wm_paint
  je	aa@notignore		;;  or .paint or .killFocus
  cmp	bx,wm_mousefirst
  jb	aa@ignore
  cmp	bx,wm_mouselast
  jbe	aa@notignore
  and	ss:curxflags,not cxignorebutton ;;.clear Current .ignoreNextButtonClick
  clear	al			;;trap Errors in select of Command
  callf	traperr ;bx,cx,dx,bp
  jmp	aa@iferror
  mov	ax,[bp].aa@hwndax
  mov	si,[bp].aa@lparamsi
  mov	di,[bp].aa@lparamdi
  cmp	bx,wm_changecbchain ;'cb' ;;.{{ChangeClipboardViewerChain}}
  jne	aa@notchange
  VTEST ;ChangeClipboardViewerChain}}
  proclog ,<>,'zwndproc: change clipboard viewer chain'
  NOTE ;no errors, may be called during error processing
  cmp	cx,ds:hnextclip		;;..if Message .nextWindow = Current .nextClipboardViewer
  jne	aa@notnext
  mov	ds:hnextclip,di		;;...Current .nextClipboardViewer <- Message .newNextViewer
  mov	ax,ds:hnextclip		;;..unless Current .nextClipboardViewer .undefined
  ifzero ax
  jz	aa@nonext2
  syswin SendMessage  ;;...forward Message to Current .nextClipboardViewer
  jmp	aa@ret0
  cmp	bx,wm_char	;'ch'	;;.{{Char}} 
  jne	aa@notchar
  mov	bl,cl
  clear bh
  cmp	bl,chmaxcontrol		;;..if Message .char .isNonPrintable
  jbe	aa@uni
  cmp	bl,chmaxprint
  jbe	aa@nothigh
  push	ds
  DSseg	ax,ansiuni		;;....WideCharacter <- AnsiToUnicode [Message.char]
  FIXUP ;lookup high codes in code page instead of ansidos
  sub	bl,80h
  twice	bx
  mov	bx,ds:ansiuni[bx]
  pop	ds
aa@nothigh:			;;...else
  clear	al			;;....WideCharacter <- Message .char
  callx	editcell		;;..apply WideCharacter to Current.cell
  jmp	aa@upd			;;..maybe update current data and cell
  cmp	bx,wm_close	;'cl'	;;.{{Close}} 
  jne	aa@notclose
  NOTE ;also called from zerrordlg
  cmp	ax,ds:hwnd		;;..if Message .window = MainWindow or SubWindows
  je	aa@hexit
  cmp	ax,ds:hwins
  jne	aa@nothexit
  test	ss:curflags,crexitprogram ;;...unless Current .exitprogram
  jnz	aa@exiting
  clear si			;;....unless exit program after updating
  cally	yexitprogram ;xds,xes
  jnc	aa@skipexit		;;.....exit function
  proclog ,<>,'hanexit: destroy base window'
  mov	ds,ss:curdataseg
  mov   ax,ds:hwnd
  syswin DestroyWindow  	;;...destroy MainWindow
  mov	ds,ss:curdataseg
  mov	ax,ds:hwins
  syswin DestroyWindow 	;;...destroy BaseWindow
  jmp	aa@ret0			;;...return 0
  mov	bx,ss:curhwnd		;;..if Message .window != Current .window
  cmp	ax,bx
  je	aa@closeok
  syswin SetFocus 		;;...set focus to Message .window
  callz	zhanclose		;;..close Current .window
  jmp	aa@upd			;;..maybe update current data and cell
  cmp	bx,wm_command	;'cm'	;;.{{Command}} 
  jne	aa@notcommand
  callz	zcommand 		;;..process Command
  jmp	aa@upd			;;..maybe update current cell
  cmp	bx,wm_compacting	;;.{{Compacting}} 'cp'
  jne	aa@notcompact
  proclog ,<>,'zwndproc: compact memory for wm_compacting'
  FIXUP ;process wm_compacting to compact memory
  jmp	aa@ret0
  cmp	bx,wm_create	;'cr'	;;.{{Create}} 
  jne	aa@notcreate
  NOTE ;wm_create changes the focus without wm_killfocus
  NOTE ;no MessageBox or DialogBox here, MSDN Q64329
  jmp	aa@ret0			;; nothing {used to get message into log}
  cmp	bx,wm_destroy	;'de'	;;.{{Destroy}} 
  jne	aa@notdestroy
	public wmdestroy
  mov	cx,ss:curidwindow	;;..if Current .idWindow .defined and 
  jcxz	aa@noidwin
  mov	es,cx			;;  and Current .idWindow .handle = Message .handle
  cmp	es:wihwnd,ax
  jne	aa@noidwin
  mov	ss:curidwindow,sgnoref	;;...clear Current .idWindow
  cmp	ax,ds:hwins		;;..if Message .window = .subWindows
  jne	aa@notquit
  proclog ,<>,'zwndproc: post quit message'
  syswin postquitmessage,<0>	;; quit message to SysWindow
  clear	ax			;;...return 0
  jmp	aa@retax
  jmp	aa@zdefproc		;;..\else default processing
  cmp	bx,wm_drawclipboard ;'dr' ;;.{{DrawClipboard}}
  jne	aa@notdraw
  VTEST ;'zwndproc: draw clipboard after change' 
  NOTE ;no errors, may be called during error processing
  syswin GetClipboardOwner ;>ax ;;..if MainWindow != OwnerWindow for Clipboard
  cmp	ax,ds:hwnd
  je	aa@myclip
  proclog ,<>,'zwndproc: set windows clipboard for wm_drawclipboard'
  or	ss:curxflags,cxwinclip	;;...set Current .windowsClipboard
  mov	ax,ds:hnextclip		;;..unless Current .nextClipboardViewer .undefined
  ifzero ax
  jz	aa@nonext3
  syswin SendMessage  ;;...forward Message to Current .nextClipboardViewer
  jmp	aa@ret0
  cmp	bx,ds:ufindmsg  ;'fi'	;;.{{FindMessage}}
  jne	aa@notfind		;;  [code from poppad3, Petzold 3.1, p. 476, see zhanfind]
  mov	ax,ds
  cmp	si,ax			;;..check segment to prevent seg faults
  je	aa@segok
  reterr <009c8h>,'zwndproc: find message uses segment @si.hex instead of @ax.hex'
  mov	si,offset findbuf	;;..get FindBuf.size for FindBuf
  pushm	si
  callx	skipprint ;di,>si
  mov	cx,si
  pop	si
  sub	cx,si
  mov	ds:findsiz,cl
  mov	ax,[di].fr_flags.low4	;;..if FindMessage .exit
  test	ax,fr_dialogterm
  jz	aa@notterm
  proclog ,<>,'zwndproc: exit find dialog'
  mov	ds:hfinddlg,0		;;....clear FindDialog {end sends a wm_setfocus to hwins}
  jmp	aa@ret0
aa@notterm:			;;...else
  mov	di,ss:curscan
  test	ax,fr_down		;;....if FindMessage .downFlag
  mov	bx,cnfindnext		;;.....handle FindNext key at Current
  jnz	aa@find			;;....\else
  mov	bx,cnfindprev		;;.....handle FindPrev key at Current
  callx	zhanfind ;xds,xes
  mov	di,ss:curscan		;;..update Scan for Current {for zadjdisplay}
  mov	ds,ss:curdata
  mov	es,ss:curcell
  callz zupdscan
  FIXUP ;zhanfind needs zupdscan before BringWindowToTop so that upddisplay does updscroll correctly.  Rework!
  mov	ds,ss:curdataseg
  syswin BringWindowToTop  	;;..set active window to Current .curWindow
  NOTE ;does not invoke wm_killfocus [already top?], invokes wm_setfocus
  jmp	aa@upd			;;..maybe update
  cmp	bx,wm_hscroll	;'hs'	;;.{{HorizonalScroll}} 
  jne	aa@notscroll
  FIXUP ;process horizontal scroll
  jmp	aa@ret0
  cmp	bx,wm_initmenu  ;'im' 	;;.((Init_menu}}
  jne	aa@notmenu
  or	ss:curxflags,cxignorebutton ;;..set Current .ignoreNextButtonClick
IF 0
  NOTE  ;difficult to get dynamic menu bars
  mov	dx,ax			;;..if Window for Message .windowHandle
  push	dx ;hwnd
  callz	zdetwin ;>ds
  pop	si ;hwnd
  jnc	aa@gotmenu
  test	ds:wiflags,wimenu	;;  and not Window .hasMenu
  jnz	aa@gotmenu
  mov	es,ss:curdataseg	;;...attach MainMenu to Message .window
  syswin SetMenu  ;si,>ax
  NOTE  ;removed at next aa@upd
  ifzero ax
  jnz	aa@setok
  reterr <00989h>,'zwndproc: could not attach menu to window @si.hex.ds.window'
  syswin DrawMenuBar  ;si	;;...draw menu bar for Message .window
  or	ds:wiflags,wimenu	;;...set Window .hasMenu
				;;...initiate key menu processing
  syswin DefWindowProc 
  jmp	aa@ret0			;; nothing
  cmp	bx,wm_initmenupopup ;'ip' ;;.((Init_Popupmenu}}
  jne	aa@notpmenu
  ;inactive popups culled above
			 ;'ip' ;;.((Init_Popupmenu}}
  callz	zsetpopup ;xds,xes	;;..set up menu
  jmp	aa@ret0			;;..return 0
  cmp	bx,wm_keydown	;'kd'	;;.{{KeyDown, or SysKeyDown/alt}}
  je	aa@keydown
  cmp	bx,wm_syskeydown ;'sd'
  jne	aa@notdown2		;;..if SysKeyDown
  test	si,sys_alternate2	;;     and .alternateKey or not (F10 or Escape)
  jnz	aa@alt
  cmp	cx,vk_f10
  je	aa@keydown
  cmp	cx,vk_escape
  je	aa@keydown
  push	cnisvirt ;.classification
  or	cx,cnvk+cnalt		;;....set VirtualChar .isVirtual and .isAlt
  jmp	aa@gotchar
aa@keydown:			;;...else
  callz zvirtual ;all,>dl	;;....get classification for virtual Key
  push	dx ;.classification	;;     {cnisstate culled above}
  or	cx,cnvk			;;....set VirtualChar .isVirtual
  push	cx			;;....if ShiftKey set
  syswin GetKeyState  ;>ax
  pop	cx
  test	ax,8000h
  jz	aa@notshift
  or	cx,cncap		;;.....set VirtualChar .shifted
  push	cx			;;....if ControlKey set
  syswin GetKeyState,vk_control ;>ax
  pop	cx
  test	ax,8000h
  jz	aa@notctl
  or	cx,cnctl		;;.....set VirtualChar .control
  push	cx			;;..get CommandChar for Message .virtualKey
  mov	ax,cx
  callz zgetcmd ;>al,bx
  pop	cx
  pop	dx ;.classification
  ifzero bx			;;..if CommandChar .undefined
  jnz	aa@keyok
  test	cx,cnctl		;;...if VirtualChar .notControl and
  jnz	aa@keyerr
  cmp	dl,cnischar		;;  VirtualChar .classification .isChar or .isOem
  je	aa@zdefprocx
  cmp	dl,cnisoem
  jne	aa@keyerr
  jmp	aa@zdefproc		;;....default processing
aa@keyerr:			;; error
  mov	ax,cx
  and	ax,not cncap+cnvk+cnctl+cnalt
  reterr <00542h>,'zwndproc: no command found for key @cx.hex class @dl.hexb with virtual code @ax.hex'
  callx	editcell ;xds,xes	;;..apply CommandChar to Current .cell 
  jmp	aa@upd			;;..maybe update current cell
  cmp	bx,wm_killfocus	;'kf'	;;.{{KillFocus}}
  jne	aa@notkill
  NOTE  ;called on entry to error dialog from zenterdlg, no errors
  proclog ,,'zwndproc: destroy caret on wm_killFocus @ax.hex to @cx.hex' 
  mov	ss:hasfocus,false	;;..clear Current .hasFocus
  push	cx			;;..destroy caret
  syswin DestroyCaret <> 
  pop	dx			;;..NextFocus <- Message .nextFocus
  mov	cx,ss:curdisplay	;;..if Current .display .isDefined
  jcxz	aa@nodisplay
  mov	es,cx
  mov	es:dicarethwnd,0	;;...clear Current .display .caretHwnd
  cmp	ss:dlgdepth,0		;;..if DialogDepth .isZero
  jne	aa@sameapp
  test	ss:inerror,true		;;  and not .inError
  jnz	aa@sameapp
  ifzero dx			;;...if NextFocus .undefined or
  jz	aa@nofocus
  mov	al,ehnoreport		;;....trap Errors .withoutReporting in
  callf	traperr
  jmp	aa@iferrork
aa@errprogramk: ;dx,bp
				;;.....set NewApp
  clear	cx			;;.....for each Window in Display
aa@kfloop:	;CX= Count, DS= Window, DX= SysWindow, DI= .end
  callx	nextwindow ;dx,>ds,cx,di
  jnc	aa@kfexit
  cmp	dx,ds:wihwnd		;;......if Window .handle = NextWindow
  jne	aa@kfloop
  clear	dx			;;.......clear NewApp
aa@kfexit:			;;.......exit loop
  retf	;end of traperr
  jc	aa@nofocus		;;....if error or NewApp
  ifzero dx
  jz	aa@sameapp
  callx	upddcdx ;xseg		;;.....update DCD completely
  jmp	aa@ret0			;;..return 0
  cmp	bx,wm_lbuttondown ;'lb'	;;.{{LeftButton}}
  jne	aa@notlbut
  test	ss:curxflags,cxignorebutton ;;..if Current .ignoreButton for set focus
  jnz	aa@ret0			;;..return 0
  or 	ss:curxflags,cxblockmode  ;;..set Current .blockMode
  jmp	aa@ret0			;;..return 0
  cmp	bx,wm_lbuttondblclk ;'ld' ;;.{{LeftDoubleClick}}
  jne	aa@notdouble
aa@errdouble:			;; error
  reterr <00544h>,'zwndproc: double click is ignored'
  NOTE ;if sometimes allow double click, may want to avoid overhead of error handling
  cmp	bx,wm_lbuttonup	;'lu'	;;.{{LeftButtonUp}}
  jne	aa@notup
  FIXUP ;should drags be ignored?
  and	ss:curxflags,not cxblockmode ;;..clear Current .blockMode
  test	ss:curxflags,cxignorebutton ;;..if Current .ignoreButton for set focus
  jnz	aa@ignoreb		;;...clear .ignoreButton, return0 and check update
  push	cx ;wparam
  callz zsetmouse ;>di,ds,es	;;..set Current.display .caret to Mouse .position
  pop	cx ;wparam
  mov	si,ss:[di].scposition	;;..if Current .scan .position = .endline
  cmp	si,ss:[di].scendline
  jne	aa@go
  je	aa@upd			;;....maybe update current cell
  and	cx,mk_control+mk_shift	;;...else if Mouse .controlShift = 0
  jnz	aa@leftflag
  VTEST ;variations on mouse control
  mov	ds,ss:curdata
  ; same: hangoto
  or	ss:[di].scflags,scsetid	;;....set Scan .setId
  setnz	al			;;....get ItemId for goto Scan .position
  callx	idtext ;xds,xes,xseg,>al,bx
  pushm	ax,bx ;ItemId
  mov	cx,ss:curidwindow 	;;....if Current .idWindow .defined
  jcxz	aa@notcur
  mov	ds,cx			;;.....make Current .idWindow current id
  callx	makecurrent
  popm	bx,ax
  callx	updcuritemx ;xseg,xds,xes ;;....update Current item to ItemId or its alias
  jmp	aa@upd			;;....maybe update current cell
  cmp	cx,mk_shift		;;...else if Mouse .controlShift = .shift
  je	aa@upd			;;....maybe update current cell
aa@errbutton:			;; soft error
  reterr <00543h>,'zwndproc: use the left button for ''goto'', the right button for a menu, and the shift+left button for editing'
  cmp	bx,wm_mouseactivate ;'ma' ;;.{{MouseActivate}}
  jne	aa@notmouseact
  cmp	di,htclient		;;..if Message .mouseHit = .client or .scroll
  je	aa@maignore
  cmp	di,hthscroll
  je	aa@maignore
  cmp	di,htvscroll
  jne	aa@manot
  test	ss:hasfocus,true	;;  and not Current .hasFocus
  jnz	aa@manot
  or	ss:curxflags,cxignorebutton ;;....ignore next mouse button
  mov	ax,ma_activate		;;....return Activate
  jmp	aa@retax
aa@manot:			;;...else
  NOTE  ;duplicated from wm_setfocus to avoid activating window on item click
	;  updcaret will call BringWindowToTop if needed
  mov	ds:curhwnd,ax		;;....Current .curWindow <- Message .window
  mov	ds:caretheight,0	;;....clear Current .caretHeight {updcaret recreates}
  mov	ax,ma_noactivate	;;....return NoActivate
  jmp	aa@retax		;;   {continues with button down or button up}
  cmp	bx,wm_menuchar  ;'mc'	;;.{{MenuChar}}
  jne	aa@notmenuc
  cmp	di,mf_popup		;;..if PopUp and TestMode
  jne	aa@noteq
  test	ss:testmode,true
  jz	aa@noteq
  NOTE 	;no easy way to determine menu handle of sub-menu (DI).  It is created
	; in zsetpopn which doesn't know which menu it is
				;;  and Message .char = '=' or '+'
  cmp	cl,'='			;;...if Message .char = '='
  mov	di,offset txttest	;;.....Title <- TestTitle
  je	aa@eq
  cmp	cl,'+'			;;....else if Message .char = '='
  mov	di,offset txttestlog	;;.....Title <- TestLog
  jne	aa@noteq
  clear	bx			;;...get ItemId for Title, create if necessary
  callx	getitemtitle ;xseg,ds,>al,bx
  clear	dx ;_incmirror
  callx	updcuritemx ;xds,xes	;;...update Current .item to ItemId or its alias
  mov	dx,mnc_close2		;;...update current cell and return .closeMenu
  clear	ax
  jmp	aa@upd2		
  jmp	aa@ret0			;;..return 0
	;wm_mousemove   ;'mm'	;;.{{MouseMove with Current .blockMode}}
				;;..see zmousemove
  cmp	bx,wm_paint	;'pt'	;;.{{Paint}}
  jne	aa@notpaint
  callz	zwmpaint ;xds,xes	;;..process paint Message
  jmp	aa@ret0			;;..return 0 
  cmp	bx,wm_queryendsession ;'qe' ;;.{{QueryEndSession}}
  jne	aa@notend
  NOTE ;Win95 calls this from inside getmessage instead of dispatchmessage
       ;  a non-zero AX return does not work.  It requires zdefproc for some reason
       ;  Next getmessage returns timer message.  Somewhere _hanerror fails
       ;  with a code 79, but everything seems to work out ok.
  clear	si			;;..if exit program after updating, do not exit
  cally	yexitprogram ;>C
  jc	aa@zdefproc		;;...perform default processing
  jmp	aa@ret0			;;..return 0
  cmp	bx,wm_renderformat ;'rf' ;;.{{RenderFormat}}
  xchg	bx,si
  je	aa@rendertext		;;..render text
  cmp	si,wm_renderallformats ;'ra' ;;.{{RenderAllFormats}} {at end of process}
  jne	aa@notrenderall
  VTEST ;renderformat
  syswin OpenClipboard  ;si,>ax ;;..unless open clipboard for MainWindow
  ifzero ax
  jnz	aa@opened
  FIXUP ;render all formats on exitprogram
  proclog ,<>,'00553h wm_renderallformats (zwndproc): could not open clipboard.  Is it opened by another process?'
  jmp	aa@ret0			;;..exit after logging error 
  syswin EmptyClipboard ;si,>ax	;;..unless empty clipboard
  ifzero ax
  jnz	aa@emptied
  proclog ,<>,'00554h wm_renderallformats (zwndproc): could not empty clipboard.'
  jmp	aa@ret0			;;..exit after logging error 
  push	si ;Message
  clear	al			;;..trap Errors in
  callf	traperr
  jmp	aa@iferrorra
aa@errprogramra: ;bx,cx,dx,bp
  callz	zrendertext		;;....render text data for clipboard
  nop	;_incmirror
  retf	;end of traperr
aa@iferrorra: ;xds,xes		;;...ignore Errors
  pop	si ;Message		;;..if message = wm_renderallformats
  cmp	si,wm_renderallformats
  jne	aa@ret0
  syswin CloseClipboard		;;...close Clipboard, ignore errors
  jmp	aa@ret0			;;..return 0
  xchg	bx,si
  cmp	bx,wm_rbuttondown ;'rb'	;;.{{RightButtonDown}}
  jne	aa@notrbut
  jmp	aa@ret0			;;..return 0
  cmp	bx,wm_rbuttondblclk ;'rd' ;;.{{RightDoubleClick}}
  jne	aa@notrdouble
  jmp	aa@errdouble		;; error since 'rb' message already processed
  cmp	bx,wm_rbuttonup   ;'ru'	;;.{{RightButtonUp}}
  jne	aa@notrup
  VTEST ;wm_rbuttonup   ;'ru'	;;.{{RightButtonUp}}
  test	ss:curxflags,cxignorebutton ;;..unless Current .ignoreButton for set focus
  jnz	aa@ignoreb		;;...clear .ignoreButton, return0 and check update
  and	cx,mk_shift+mk_control	;;...error if Mouse .shiftControl
  jnz	aa@errbutton
  callz zsetmouse ;>di,ds,es	;;...set Current.display .caret to Mouse .position
  mov	ds,ss:curdataseg	;;...display RightMenuId at Current
  mov	ax,ds:hsubright
  callz	zhancontext ;xds	
  jmp	aa@upd			;;...maybe update current cell
  and	ss:curxflags,not cxignorebutton
  jmp	aa@ret0
  cmp	bx,th_basefocus ;'s2'	;;.{{SetBaseFocus}}
  jne	aa@notbase2
  mov	di,ds:curhwnd		;;....Message .window <- Current .curWindow
  proclog ,,'zwndproc: convert wm_setfocus of base window to wm_setfocus of window @di.hex'
  syswin BringWindowToTop  ;di ;;....bring Current .curWindow to top
  NOTE ;maybe invokes wm_killfocus [not seen 7/02], invokes wm_setfocus
  jmp	aa@ret0			;;....return 0
  cmp	bx,wm_setfocus	;'sf'	;;.{{SetFocus}} {see: KillFocus 'kf'}
  jne	aa@notsetfocus
  cmp	ax,ds:hwins		;;..if Message .window = BaseWindows
  jne	aa@notsetsub
  cmp	ss:dlgdepth,0		;;...if DialogDepth .isZero
  jne	aa@nottop
				;; SetBaseFocus to Message .window
  syswin PostMessage  
				;;  {otherwise hwins gets keystrokes}
  jmp	aa@ret0			;;...return 0
  proclog ,,'zwndproc: set focus to Window @ax.hex'
  NOTE  ;duplicated by wm_mouseactivate if ss:hasfocus
  mov	ss:hasfocus,true	;;..set Current .hasFocus
  mov	ds:curhfocus,ax		;;..Current .curFocusWindow <- Message .window
  mov	ds:curhwnd,ax		;;..Current .curWindow <- Message .window
  mov	ds:caretheight,0	;;..clear Current .caretHeight {updcaret recreates}
  syswin InvalidateRect  ;;..invalidate Message .window {repaint}
  NOTE  ;can not report an error if exiting a dialog box
  cmp	ss:dlgdepth,0		;;..if DialogDepth .isZero
  jne	aa@skipcur
  and	ss:curflags,not crenddialog ;;..clear Current .endDialog
  callz	zsetcur ;xseg,>es	;;...set up current data, cell, scan, and window
				;;    for Current .display
  jmp	aa@ret0
  cmp	bx,wm_setcursor	;'su'	;;.{{SetCursor.up}}
  jne	aa@notsetcursor
  NOTE  ;only called if wm_lbuttonup during dialog
  syswin GetFocus <> ;>ax	;;..get FocusWindow
  ifzero ax			;;..if FocusWindow .undefined
  jz	aa@keepdlg
  mov	ax,ds:hdialog		;;...set focus to Current .dialogWindow
  proclog ,,'zwndproc: bring dialog window @ax.hex to top'
  syswin BringWindowToTop 	;;  {ignore errors}
  jmp	aa@ret0			;;..return 0
  cmp	bx,wm_size	;'sz'	;;.{{Size}}
  jne	aa@notsize
  cmp	cx,SizeNormal		;;..if Message .sizeNormal or .sizeFullScreen
  je	aa@wmsize
  cmp	cx,SizeFullScreen
  jne	aa@notwmsize
  mov	cx,ss:curdisplay	;; and Current .display .isValid
  jcxz	aa@notwmsize
  mov	ds,cx
  test	ds:diflags,dinotvalid+dicheckerr
  FIXUP ;currently always divalid by check at wndproc
  jnz	aa@notwmsize
  callz	zwmsize ;xds,xes	;;...change Depth and Width size for SysWindow
  jmp	aa@upd
  cmp	bx,wm_syscolorchange ;'cc' ;;.{{SystemColorChange}}
  jne	aa@notsyscolor
  syswin Ctl3dColorChange <>	;;..notify Ctl3d of color change
  jmp	aa@ret0
  cmp	bx,wm_syscommand ;'sc'	;;.{{SystemCommand}}
  jne	aa@notsyscmd
  cmp	cx,sc_minimize		;;..if Message .command = .minimize {MainWindow)
  jne	aa@notminmain		;;....forward message to SubWindows
  cmp	ax,ds:hwnd
  jne	aa@notminmain
  proclog ,<>,'zwndproc: forward minimize of MainWindow to SubWindows'
  syswin DefWindowProc  ;>dx:ax
  jmp	aa@retdxax
  cmp	bx,wm_timer	;'ti'	;;.{{Timer}} ;only if nextmax, looktime, updtime
				;   EDI= Cputime
  jne	aa@nottimer
  mov	al,cl			;;..update Purna by TimerId (set above)
  callz	ztimer ;xds,xes
  jmp	aa@upd			;;....maybe update current cell
  reterr <00954h>,'zwndproc: unknown Windows message @bx.hex.  Message is not cleared.  Check initial case statement.'
aa@upd:				;;maybe update cells by
  clear	ax			;;.clear Return
  clear	dx
  test	ss:curflags,crupdcells	;;.if Current .updateCells
				;	{crnewcur often set}
				;  (updcuritem getback hancellcursor 
				;  handisplay hanprevwork nearcell remdatas)
  jz	aa@noupd
aa@upd2:			;;..{here for update cells! with DX:AX= Return}
  pushm	ax,dx ;Return
  callz	zsetcur			;;..set up current data, cell, and window for 
  popm	dx,ax ;Return		;;     Current .display
  pushm	ax,dx ;Return
  mov	ds,ss:curwindow		;;.if Current .window .refType = .current
  cmp	ds:wireftype,clrefcur
  jne	bf@notrefcur
  mov	ss:curidwindow,ds	;;..Current .idWindow <- .window
  test	ss:curflags,crnoupdate	;;.unless Current .noUpdate
  FIXUP ;should crnoupdate be cleared in base errors?
  jnz	aa@noupdate
  callx	upddisplay ;xds,xes	;;...update Current_display
  cmp	ss:msgdepth,1		;;..if MessageDepth = 1
  jne	aa@notbase
  cmp	[bp].aa@msgid,wm_timer 	;;...unless Message .id = .timer
  je	aa@notinit
  callz	zcktimer ;xds,xes,xseg	;;....check timer and initialize timeouts
  clear	ax ;_incmirror
  callx	chkbase ;xds,xes	;;...check DCD from base loop
  clear	ax ;_incmirror
  callz	ztestall ;xseg		;;..perform any additional tests
  inc	ss:progress		;;..bump Progress
  jnz	aa@nodec
  dec	ss:progress
  popm	dx,ax ;Return		;;..return Return
  jmp	aa@retdxax
aa@ret0:			;;.return 0 
  callz	ztestall ;xseg		;;  and perform any additional tests
  clear	ax	
  clear dx
  retf	;end of traperr
aa@zdefproc:			;;.or do default processing of Message
  mov	ax,[bp].aa@hwndax
  mov	bx,[bp].aa@msgid
  mov	cx,[bp].aa@wparamcx
  mov	si,[bp].aa@lparamsi
  mov	di,[bp].aa@lparamdi
  test	ss:testmode,true	;;..if TestMode
  jz	aa@nolog2
  cmp	ss:dlgdepth,0		;;  and DialogDepth = 0 {otherwise lots of messages}
  jne	aa@nolog2		;;...log request
  proclog ,,'zwndproc2: default processing for window @ax.hex command @bx.hex wparam @cx.hex lparam @si.hex.di.hex'
  syswin defwindowproc, 
  retf	;end of traperr

aa@iferror: ;(NC) ax,dx (C) xds,xes,>di ;;.if Error
  jnc	aa@ret
  clear	ax		
  clear	dx
  test	ss:curxflags,cxhanerror ;;..if inside error handler
  jnz	aa@ret			;;...exit function normally
  cmp	ss:dlgdepth,0		;;..if DialogDepth .nonZero
  jne	aa@ret			;;...exit function normally
  cmp	ss:msgdepth,1		;;..if MessageDepth > 1
  ja	aa@ret			;;...exit function normally
  FIXUP ;is it correct to continue after errors in an embedded call?
  NOTE  ;allow error handling and zwndproc here, it appears to work ok
aa@errloop: ;xds,xes		;;..while Error during 
  clear	al			;;...trap Errors in
  callf traperr
  jmp	short aa@iferror2 ;xds,xes
;  test	ss:curflags,crremerror	;;.....unless Error .wasSoft
;  jnz	aa@soft
  FIXUP ;removed crremerror optimization due to 10/9/00 error wedge, OK? remerror.err
  callx	resetcurrent ;xds,xes	;;......reset Current
  clear	ax ;_incmirror
  callx	chkbase ;xds,xes	;;......check DCD from base loop
  setnz al			;;.......check everything
  callx	ckall
  clear	ax ;_incmirror
  callz	zsetcur			;;......setup Current window and cell
  test	ss:curflags,crnoupdate	;;.....unless Current .noUpdate
  FIXUP ;should crnoupdate be cleared in base errors?
  jnz	aa@noupdate2
  callx	upddisplay ;xds,xes	;;......update Current_display
  clear	al			;;.....update Purna by time .checkMaxDelay
  callz	ztimer ;xds,xes,xseg
  clear	ax			;;.....return 0
  clear	dx
  retf	;end of traperr
aa@iferror2: ;(NC) ax,dx (C) xds,xes ;;....if error
  jc	aa@errloop		;;.....repeat loop
  cmp	ss:tcprecedence,piall	;;if Current .logAll
  jne	aa@notall
  callz	zlogstate ;all		;;.log Thesa state
  dec	ss:msgdepth		;;decrement MessageDepth
  inc	ss:inwindows ;return to DispatchMessage in zpurna
  procret ,,'zwndproc'

codew	ENDS