diff options
| author | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-09-08 23:58:23 +0200 |
|---|---|---|
| committer | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-09-08 23:58:23 +0200 |
| commit | a91adfdf373f6914bfec9901421cba0e99746b0b (patch) | |
| tree | 9fc3e2e67270c619fed36dea3b41495c497775c7 /xm-enved.scm | |
| parent | 595a8d637b81d45fe73f566b25d64cf8bca672c1 (diff) | |
New upstream version 16.8
Diffstat (limited to 'xm-enved.scm')
| -rw-r--r-- | xm-enved.scm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/xm-enved.scm b/xm-enved.scm index f8012be..824a83a 100644 --- a/xm-enved.scm +++ b/xm-enved.scm @@ -250,9 +250,9 @@ (g_signal_lookup "configure_event" (G_OBJECT_TYPE (G_OBJECT drawer))) 0 gf #f)) (let ((gf (g_cclosure_new (lambda (w e d) - (let ((coords (gdk_event_get_coords (GDK_EVENT e)))) + (let ((coords (cdr (gdk_event_get_coords (GDK_EVENT e))))) (set! dragging #t) - (xe-mouse-press editor (cadr coords) (caddr coords))) + (xe-mouse-press editor (car coords) (cadr coords))) #f) #f #f))) (g_signal_connect_closure_by_id (GPOINTER drawer) @@ -268,8 +268,8 @@ 0 gf #f)) (let ((gf (g_cclosure_new (lambda (w e d) (if dragging - (let ((coords (gdk_event_get_coords (GDK_EVENT e)))) - (xe-mouse-drag editor (cadr coords) (caddr coords)))) + (let ((coords (cdr (gdk_event_get_coords (GDK_EVENT e))))) + (xe-mouse-drag editor (car coords) (cadr coords)))) #f) #f #f))) (g_signal_connect_closure_by_id (GPOINTER drawer) @@ -296,7 +296,7 @@ (let* ((cur-env (xe-envelope drawer)) (widget (drawer 1)) (dpy (and (provided? 'snd-motif) ((*motif* 'XtDisplay) widget))) - (wn (if (provided? 'snd-motif) ((*motif* 'XtWindow) widget) ((*gtk* 'gtk_widget_get_window) widget))) + (wn ((if (provided? 'snd-motif) (*motif* 'XtWindow) (*gtk* 'gtk_widget_get_window)) widget)) (ax-pix (drawer 2)) (ax-inf (drawer 3)) (gc (car (drawer 4))) @@ -305,9 +305,7 @@ (get_realized (if (provided? 'snd-gtk) (*gtk* 'gtk_widget_get_realized)))) (when (and (list? ax-pix) (list? cur-env) - (if (provided? 'snd-motif) - ((*motif* 'XtIsManaged) widget) - (get_realized widget))) + ((if (provided? 'snd-motif) (*motif* 'XtIsManaged) get_realized) widget)) (let ((py0 (ax-pix 1)) (py1 (ax-pix 3)) (ix0 (ax-inf 0)) |