// // "$Id: Fl_cutpaste.cxx,v 1.6.2.4.2.4 2002/01/09 21:50:02 easysw Exp $" // // Cut/paste code for the Fast Light Tool Kit (FLTK). // // Copyright 1998-2002 by Bill Spitzak and others. // // This library is free software; you can redistribute it and/or // modify it under the terms of the GNU Library General Public // License as published by the Free Software Foundation; either // version 2 of the License, or (at your option) any later version. // // This library is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU // Library General Public License for more details. // // You should have received a copy of the GNU Library General Public // License along with this library; if not, write to the Free Software // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 // USA. // // Please report all bugs and problems to "fltk-bugs@fltk.org". // // Implementation of cut and paste. // This is seperated from Fl.cxx mostly to test Fl::add_handler(). // But this will save a small amount of code size in a program that // has no text editing fields or other things that call cut or paste. #ifdef WIN32 # include "Fl_cutpaste_win32.cxx" #elif defined(__APPLE__) # include "Fl_cutpaste_mac.cxx" #else # include # include # include # include # include static char *selection_buffer; static int selection_length; static int selection_buffer_length; static char beenhere; static Atom TARGETS; extern Fl_Widget *fl_selection_requestor; // widget doing request_paste() extern Atom fl_XdndAware; extern Atom fl_XdndSelection; extern Atom fl_XdndEnter; extern Atom fl_XdndTypeList; extern Atom fl_XdndPosition; extern Atom fl_XdndLeave; extern Atom fl_XdndDrop; extern Atom fl_XdndStatus; extern Atom fl_XdndActionCopy; extern Atom fl_XdndFinished; //extern Atom fl_XdndProxy; extern Window fl_dnd_source_window; extern Atom *fl_dnd_source_types; // null-terminated list of data types being supplied extern Atom fl_dnd_type; extern Atom fl_dnd_source_action; extern Atom fl_dnd_action; extern void fl_sendClientMessage(Window window, Atom message, unsigned long d0, unsigned long d1=0, unsigned long d2=0, unsigned long d3=0, unsigned long d4=0); static int selection_xevent_handler(int) { switch (fl_xevent->type) { case SelectionNotify: { if (!fl_selection_requestor) return 0; static unsigned char* buffer; if (buffer) {XFree(buffer); buffer = 0;} long read = 0; if (fl_xevent->xselection.property) for (;;) { // The Xdnd code pastes 64K chunks together, possibly to avoid // bugs in X servers, or maybe to avoid an extra round-trip to // get the property length. I copy this here: Atom actual; int format; unsigned long count, remaining; unsigned char* portion; if (XGetWindowProperty(fl_display, fl_xevent->xselection.requestor, fl_xevent->xselection.property, read/4, 65536, 1, 0, &actual, &format, &count, &remaining, &portion)) break; // quit on error if (read) { // append to the accumulated buffer buffer = (unsigned char*)realloc(buffer, read+count*format/8+remaining); memcpy(buffer+read, portion, count*format/8); XFree(portion); } else { // Use the first section without moving the memory: buffer = portion; } read += count*format/8; if (!remaining) break; } Fl::e_text = (char*)buffer; Fl::e_length = read; fl_selection_requestor->handle(FL_PASTE); // Detect if this paste is due to Xdnd by the property name (I use // XA_SECONDARY for that) and send an XdndFinished message. It is not // clear if this has to be delayed until now or if it can be done // immediatly after calling XConvertSelection. if (fl_xevent->xselection.property == XA_SECONDARY && fl_dnd_source_window) { fl_sendClientMessage(fl_dnd_source_window, fl_XdndFinished, fl_xevent->xselection.requestor); fl_dnd_source_window = 0; // don't send a second time } return 1;} case SelectionClear: Fl::selection_owner(0); return 1; case SelectionRequest: { XSelectionEvent e; e.type = SelectionNotify; e.display = fl_display; e.requestor = fl_xevent->xselectionrequest.requestor; e.selection = fl_xevent->xselectionrequest.selection; e.target = fl_xevent->xselectionrequest.target; e.time = fl_xevent->xselectionrequest.time; e.property = fl_xevent->xselectionrequest.property; if (e.target == TARGETS) { Atom a = XA_STRING; XChangeProperty(fl_display, e.requestor, e.property, XA_ATOM, sizeof(Atom)*8, 0, (unsigned char*)&a, sizeof(Atom)); } else if (e.target == XA_STRING && selection_length) { XChangeProperty(fl_display, e.requestor, e.property, XA_STRING, 8, 0, (unsigned char *)selection_buffer, selection_length); } else { // char* x = XGetAtomName(fl_display,e.target); // fprintf(stderr,"selection request of %s\n",x); // XFree(x); e.property = 0; } XSendEvent(fl_display, e.requestor, 0, 0, (XEvent *)&e);} return 1; default: return 0; } } //////////////////////////////////////////////////////////////// static void setup_crap() { if (!beenhere) { beenhere = 1; TARGETS = XInternAtom(fl_display, "TARGETS", 0); Fl::add_handler(selection_xevent_handler); } } // Call this when a "paste" operation happens: void Fl::paste(Fl_Widget &receiver) { if (selection_owner()) { // We already have it, do it quickly without window server. // Notice that the text is clobbered if set_selection is // called in response to FL_PASTE! Fl::e_text = selection_buffer; Fl::e_length = selection_length; receiver.handle(FL_PASTE); return; } // otherwise get the window server to return it: fl_selection_requestor = &receiver; XConvertSelection(fl_display, XA_PRIMARY, XA_STRING, XA_PRIMARY, fl_xid(Fl::first_window()), fl_event_time); setup_crap(); } //////////////////////////////////////////////////////////////// // call this when you create a selection: void Fl::selection(Fl_Widget &owner, const char *stuff, int len) { if (!stuff || len<0) return; if (len+1 > selection_buffer_length) { delete[] selection_buffer; selection_buffer = new char[len+100]; selection_buffer_length = len+100; } memcpy(selection_buffer, stuff, len); selection_buffer[len] = 0; // needed for direct paste selection_length = len; selection_owner(&owner); static Window selxid; // window X thinks selection belongs to if (!selxid) selxid = XCreateSimpleWindow(fl_display, RootWindow(fl_display, fl_screen), 0,0,1,1,0,0,0); XSetSelectionOwner(fl_display, XA_PRIMARY, selxid, fl_event_time); setup_crap(); } #endif // // End of "$Id: Fl_cutpaste.cxx,v 1.6.2.4.2.4 2002/01/09 21:50:02 easysw Exp $". //