\ 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 ;