fdup f2* to border
	fnegate fdup to borderl fdup to borderv to bordert
    ELSE
	fdup f2* to border
	0e to borderl fnegate f2* to bordert 0e to borderv
    THEN o o> ;
: add-dtms ( ticks -- )
    \sans \small blackish
    1n fm* >day { day } day last-day <> IF
	{{
	    x-color { f: xc }
	    glue*l day-color x-color slide-frame dup .button1
	    xc to x-color
	    \bold day ['] .day $tmp }}text 25%b \regular
	}}z /center msgs-box .child+

' re-log#-token is update-log

: new-msg-par ( -- )
    {{ }}p "msg-par" name!
    dup .subbox box[] drop box[] cbl >bl
    dup .subbox "msg-box" name!
    to msg-box to msg-par
    \sans \script cbl re-green log-mask @ +log#-date-token msg-box .child+
    \normal cbl ;
:noname { d: pk -- o }
    pk key| to msg:id$  pk startdate@ to msg:timestamp
    pk [: .simple-id ." : " ;] $tmp notify-nick!
    pk key| pkc over str= { me? }
    pk enddate@ otr? { otr }
    pk key| last-bubble-pk $@ str= otr last-otr? = and

\ replace some tools available under net2o

[IFUNDEF] qr(
    debug: qr(
    debug: health(
    debug: msg(
    +db qr( \ turn it on )
    -db msg( \ turn it on )
[THEN]

[IFUNDEF] xtype
    : hex[ ]] [: [[ ; immediate
    : ]hex ]] ;] $10 base-execute [[ ; immediate
    : xtype ( addr u -- )  hex[
	bounds ?DO  I c@ 0 <# # # #> type  LOOP  ]hex ;

p3 2 cells + Constant px

: min²! ( x y addr -- ) >r
    over dup * over dup * +
    r@ 2@ dup * swap dup * + u< IF
	r> 2!  EXIT
    THEN  2drop rdrop ;

: rgb?-min ( addr x y -- addr ) 2>r
    dup rgb? dup 4 and IF
	over rgba+ rgb? over = IF
	    over scan-w 3 lshift + rgb? over = IF
		over rgba+ scan-w 3 lshift + rgb? over = IF
		    3 and 2 xor
		    2* cells p0 + 2r> rot min²!
		    EXIT
		THEN
	    THEN
	THEN
    THEN
    drop 2rdrop ;

: search-corners ( -- )
    init-xy p0 !  p0 p0 cell+ 7 cells cmove \ fill all with the same contents
    scan-buf0 $@ drop
    scan-w 1- dup invert DO
	scan-w 1- dup invert DO





	    i j rgb?-min rgba+
	LOOP  rgba+
    LOOP  drop
    qr( msg( p0 2@ . . space p1 2@ . . space p2 2@ . . space p3 2@ . . cr ) )
;

: ?legit ( -- flag )
    p0 2@ init-xy dup d<>
    p1 2@ init-xy dup d<> and

	    THEN
	LOOP
    ELSE
	msg( ." not ?legit" cr  save-png0 1 +to scan# )
    THEN  false ;

: scan-its ( -- )
    85 82 DO
	I s>f to x-scansize
	85 82 DO
	    I s>f to y-scansize
	    scan-it IF  true
		UNLOOP UNLOOP
		EXIT  THEN
	2 +LOOP
    2 +LOOP  false ;