steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove commented-out code

release
Slava Pestov 2007-10-28 01:21:26 -04:00
parent 738672be9f
commit da4c77b445
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/ui/windows/windows.factor
View File

@ -306,8 +306,6 @@ SYMBOL: hWnd
"uint" { "void*" "uint" "long" "long" } "stdcall" [ "uint" { "void*" "uint" "long" "long" } "stdcall" [
[ [
pick pick
! "Message: " write dup get-windows-message-name write
! " " write dup unparse print flush
{ {
{ [ dup WM_CLOSE = ] [ drop handle-wm-close 0 ] } { [ dup WM_CLOSE = ] [ drop handle-wm-close 0 ] }
{ [ dup WM_PAINT = ] { [ dup WM_PAINT = ]
@ -340,7 +338,6 @@ SYMBOL: hWnd
{ [ t ] [ drop DefWindowProc ] } { [ t ] [ drop DefWindowProc ] }
} cond } cond
] ui-try ] ui-try
! "finished handling message" print .s flush
] alien-callback ; ] alien-callback ;
: do-events ( -- ) : do-events ( -- )