fix bar issues
This commit is contained in:
parent
d21141cb06
commit
9f0724e1bc
2
main.fs
2
main.fs
|
@ -268,7 +268,7 @@ S" you feel like throwing some stuff into the pool." set-message
|
||||||
\ draw-tab draws a single tab for a screen
|
\ draw-tab draws a single tab for a screen
|
||||||
: draw-tab ( i -- )
|
: draw-tab ( i -- )
|
||||||
dup screen @ = if
|
dup screen @ = if
|
||||||
." >" bl then draw-screen-name ;
|
." >" else space then draw-screen-name ;
|
||||||
|
|
||||||
\ draw-tab-bar draws the tab bar. TODO something here seems to be clobbering the stack
|
\ draw-tab-bar draws the tab bar. TODO something here seems to be clobbering the stack
|
||||||
: draw-tab-bar ( x y -- x y )
|
: draw-tab-bar ( x y -- x y )
|
||||||
|
|
Reference in New Issue