summaryrefslogtreecommitdiff
path: root/src/Fl_cutpaste.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'src/Fl_cutpaste.cxx')
-rw-r--r--src/Fl_cutpaste.cxx213
1 files changed, 0 insertions, 213 deletions
diff --git a/src/Fl_cutpaste.cxx b/src/Fl_cutpaste.cxx
deleted file mode 100644
index 80ca75b7f..000000000
--- a/src/Fl_cutpaste.cxx
+++ /dev/null
@@ -1,213 +0,0 @@
-//
-// "$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 <FL/Fl.H>
-# include <FL/x.H>
-# include <FL/Fl_Window.H>
-# include <string.h>
-# include <stdlib.h>
-
-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 $".
-//
generated by cgit v1.2.3 (git 2.25.1) at 2026-02-09 09:42:25 +0000