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 ( i -- )
|
||||
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 ( x y -- x y )
|
||||
|
|
Reference in New Issue