*** empty log message ***
parent
6598e60089
commit
3560ef6b6d
|
@ -142,7 +142,7 @@ dup >r [ select-input ] with-window-object
|
||||||
r> ;
|
r> ;
|
||||||
|
|
||||||
M: button handle-button-press-event ( event <button> -- )
|
M: button handle-button-press-event ( event <button> -- )
|
||||||
swap drop button-action call ;
|
nip button-action call ;
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
! <menu>
|
! <menu>
|
||||||
|
|
Loading…
Reference in New Issue