Tulipmania

parent af43a642
......@@ -330,8 +330,11 @@ $BBDDDDFF color: msg-bg
swap
}}z me? 0= IF chatname-tab THEN
{{
glue*l $FFFFFFFF slide-frame dup .lbubble
{{ }}h dup to msg-box >o font-size# 25% f* to borderl o o>
glue*l $FFFFFFFF slide-frame dup me? IF .rbubble ELSE .lbubble THEN
{{ }}h dup to msg-box >o font-size# 25% f*
me? IF
fdup to border fnegate fdup to borderl to borderv
ELSE to borderl THEN o o>
}}z
glue*ll }}glue me? IF swap rot THEN
}}h msgs-box .child+
......
......@@ -723,7 +723,7 @@ Variable gui.fs$
: n2o-history ( -- )
history ?dup-IF close-file throw THEN
"~/.n2o-history" get-history ;
"history" .net2o/ get-history ;
n2o-history
......
......@@ -56,7 +56,11 @@ Sema notify-sema
[IFDEF] linux
require linux/notify.fs
[IFUNDEF] rendering
require minos2/gl-helper.fs
[IFUNDEF] mslinux
require minos2/gl-helper.fs
[ELSE]
: ftime ( -- r ) ntime d>f 1e-9 f* ;
[THEN]
[THEN]
[THEN]
......
......@@ -163,7 +163,9 @@ $FFFFFFFF ,
sig-params ed-sign
date>qr-key qr:keysig# .qr-rest ;
require qrscan.fs
[IFUNDEF] mslinux
require qrscan.fs
[THEN]
0 [IF]
Local Variables:
......
......@@ -814,8 +814,7 @@ e? max-xchar $100 u< [IF]
\ accept* derivative
[IFDEF] mslinux '*' [ELSE]
e? max-xchar $100 < [IF] '*' [ELSE] ( '' ) '' [THEN] [THEN] Value pw*
e? max-xchar $100 < [IF] '*' [ELSE] ( '' ) '' [THEN] Value pw*
Variable *insflag
......@@ -834,7 +833,7 @@ Variable *insflag
0= IF *-width ELSE x-width THEN ;
: *-width1 ( addr u -- w )
config:passmode# @ dup 0< IF drop 2drop 0 EXIT THEN
config:passmode# @ 2 = IF x-width ELSE *-width THEN ;
2 = IF x-width ELSE *-width THEN ;
: *-width2 ( addr u -- w )
case config:passmode# @
2 of x-width endof
......@@ -843,7 +842,7 @@ Variable *insflag
x-width >r *-width r> + ELSE nip THEN endof
0 of *-width endof
-1 of 2drop 0 endof
swap
drop swap
endcase ;
: .*resizeline ( span addr pos -- span addr pos )
2dup *insflag @ IF *-width2 ELSE *-width1 THEN >r
......
......@@ -30,7 +30,7 @@ Here's the bingo chart for all valid critics on BitCoins:
<th></th>
<td>BitCoin is deflationary</td>
<td>The BlockChain is too big</td>
<td class="joker">[Tulipmania!](https://en.wikipedia.org/wiki/Tulip_mania)</td>
<td class="joker"><a href="https://en.wikipedia.org/wiki/Tulip_mania">Tulipmania!</a></td>
<td>blocks are too big</td>
<td>blocks are too small</td>
</tr>
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment