--=-=-=
Robert Morelli <morelli@cs.utah.edu> writes:
> Is there an easy way to get access to the XWindow clipboard from scsh or
> scheme 48? Specifically, I'd like to obtain the current selection as a
> string.
Your best bet would be to look at scheme-xp, though it is far from
finished.
The scsh.net link under Resources->Graphics->scheme-xp needs to be
updated to http://www.sarg.ryerson.ca/~cmwilson/code/scheme-xp/ due to
what looks like a host name change.
To try out scheme-xp with scsh 0.6.2 some time ago I ended up applying
to following quick patche.
--=-=-=
Content-Type: text/x-patch
Content-Disposition: attachment; filename=scheme-xp.patch
Content-Description: scheme-xp patch
diff -r scheme-xp.orig/connection-requests.scm scheme-xp/connection-requests.scm
20c20
< (let loop ((path exec-path-list))
---
> (let loop ((path (thread-fluid exec-path-list)))
diff -r scheme-xp.orig/scsh-specific.scm scheme-xp/scsh-specific.scm
42a43,50
>
> (define (with-lock lock thunk)
> (dynamic-wind
> (lambda ()
> (release-lock lock))
> thunk
> (lambda ()
> (release-lock lock))))
diff -r scheme-xp.orig/xprotocol-package.scm scheme-xp/xprotocol-package.scm
309c309
< (open scheme scsh threads defrec-package)
---
> (open scheme scsh threads thread-fluids locks defrec-package)
350c350
< (open scheme non-portable scsh tools set xserver basic-datatypes
---
> (open scheme non-portable scsh thread-fluids tools set xserver
> basic-datatypes
--=-=-=--
|