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

keep gadget on stack, fix stack effect

db4
Doug Coleman 2008-04-26 13:04:10 -05:00
parent 2b1d5789a6
commit 7b9a757076
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/graphics/bitmap/bitmap.factor
View File

@ -117,8 +117,8 @@ M: bitmap height ( bitmap -- ) bitmap-height ;
: bitmap. ( path -- )
load-bitmap <graphics-gadget> gadget. ;
: bitmap-window ( path -- )
load-bitmap [ <graphics-gadget> "bitmap" open-window ] keep ;
: bitmap-window ( path -- gadget )
load-bitmap <graphics-gadget> [ "bitmap" open-window ] keep ;
: test-bitmap24 ( -- )
"resource:extra/graphics/bitmap/test-images/thiswayup24.bmp" bitmap. ;