#
# $Id: clipboard.icn,v 1.1 2003/08/04 17:32:42 jeffery Exp $
#
# This file is in the public domain.
#
# Author: Robert Parlett (parlett@dial.pipex.com)
#

package gui

global clipboard

#
# Clipboard class
#
class Clipboard(content)
   #
   # Set the clipboard content
   #
   method set_content(o)
      content := o
      #write("set clipboard to " || image(o.get_value()))
   end

   #
   # Get the clipboard content
   #
   method get_content()
      return content
   end
end

procedure get_clipboard()
   if /clipboard then
      clipboard := Clipboard()
   return clipboard
end