\ clipBoard CWH 8/31/04	
needs toolkit 
needs double 
.( clipBoard ) 

0 enum cliptype 
cliptype clipboardText 
cliptype clipboardInk  \ reserved 
cliptype clipboardBitmap 

: cb>text ( -- c-addr u ) 
( ClipboardGetItem ) ( &len. format -- memhandle. )  \ needs work ! 
\ copy string to different addr ? 
; 

: type>cb ( c-addr u -- ) 
swap >abs clipboardText 
ClipboardAddItem ; 

\ systrap does not consume the input
\ stack values here.
: ClipboardAppendItem (hex) A370 systrap 2drop 2drop ; 

: type>>cb ( c-addr u -- ) 
swap >abs clipboardText 
ClipboardAppendItem ; 

: .>cb ( n -- ) dup 0< 
if abs 0 <# bl hold #s [char] - hold #> 
else 0 <# bl hold #s #> 
then type>cb ; 

: .>>cb ( n -- ) dup 0< 
if abs 0 <# bl hold #s [char] - hold #> 
else 0 <# bl hold #s #> 
then type>>cb ; 

: u.>cb ( u -- ) 
0 <# bl hold #s #> 
type>cb ; 

: u.>>cb ( u -- ) 
0 <# bl hold #s #> 
type>>cb ; 

: d.>cb ( d. -- ) 2dup d0< 
if dabs <# bl hold [char] . hold #s [char] - hold #> 
else <# bl hold [char] . hold #s #> 
then type>cb ; 

: d.>>cb ( d. -- ) 
2dup d0< if dabs <# bl hold [char] . hold #s [char] - hold #> 
else <# bl hold [char] . hold #s #> 
then type>>cb ; 

: ud.>cb ( ud. -- ) 
<# bl hold [char] . hold #s #> 
type>cb ; 

: ud.>>cb ( ud. -- ) 
<# bl hold [char] . hold #s #> 
type>>cb ;