[PD-cvs] packages/patches set_cursors_in_tcl-0.41-test06.patch, NONE, 1.1

[Hans-Christoph Steiner]

Update of /cvsroot/pure-data/packages/patches
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6167

Added Files:
	set_cursors_in_tcl-0.41-test06.patch 
Log Message:
allow dynamic cursor configuration by move cursor name variables to u_main.tk, this is patch 1826507

--- NEW FILE: set_cursors_in_tcl-0.41-test06.patch ---
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.28
diff -u -w -r1.28 u_main.tk
--- u_main.tk	18 Aug 2007 23:32:44 -0000	1.28
+++ u_main.tk	6 Nov 2007 02:10:48 -0000
@@ -31,6 +31,36 @@
 set pd_array_listview_page(0) 0
 # end jsarlo
 
+# set up mouse cursors individually on each platform
+switch -- $pd_nt { 0 {
+    # GNU/Linux
+    set cursor_runmode_nothing "left_ptr"
+    set cursor_runmode_clickme "arrow"
+    set cursor_runmode_thicken "sb_v_double_arrow"
+    set cursor_runmode_addpoint "plus"
+    set cursor_editmode_nothing "hand2"
+    set cursor_editmode_connect "circle"
+    set cursor_editmode_disconnect "X_cursor"
+} 1 {
+    # Windows
+    set cursor_runmode_nothing "rigth_ptr"
+    set cursor_runmode_clickme "arrow"
+    set cursor_runmode_thicken "sb_v_double_arrow"
+    set cursor_runmode_addpoint "plus"
+    set cursor_editmode_nothing "hand2"
+    set cursor_editmode_connect "circle"
+    set cursor_editmode_disconnect "X_cursor"
+} 2 {
+    # Mac OS X
+    set cursor_runmode_nothing "arrow"
+    set cursor_runmode_clickme "center_ptr"
+    set cursor_runmode_thicken "sb_v_double_arrow"
+    set cursor_runmode_addpoint "plus"
+    set cursor_editmode_nothing "hand2"
+    set cursor_editmode_connect "circle"
+    set cursor_editmode_disconnect "X_cursor"
+} }
+
 if {$pd_nt == 1} {
     global pd_guidir
     global pd_tearoff
Index: g_editor.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/g_editor.c,v
retrieving revision 1.20
diff -u -w -r1.20 g_editor.c
--- g_editor.c	9 Oct 2006 04:36:12 -0000	1.20
+++ g_editor.c	6 Nov 2007 02:10:48 -0000
@@ -729,17 +729,13 @@
 /* ------------------------ event handling ------------------------ */
 
 static char *cursorlist[] = {
-#ifdef MSW
-    "right_ptr",        /* CURSOR_RUNMODE_NOTHING */
-#else
-    "left_ptr",         /* CURSOR_RUNMODE_NOTHING */
-#endif
-    "arrow",            /* CURSOR_RUNMODE_CLICKME */
-    "sb_v_double_arrow", /* CURSOR_RUNMODE_THICKEN */
-    "plus",             /* CURSOR_RUNMODE_ADDPOINT */
-    "hand2",            /* CURSOR_EDITMODE_NOTHING */
-    "circle",           /* CURSOR_EDITMODE_CONNECT */
-    "X_cursor"          /* CURSOR_EDITMODE_DISCONNECT */
+    "$cursor_runmode_nothing",
+    "$cursor_runmode_clickme",
+    "$cursor_runmode_thicken",
+    "$cursor_runmode_addpoint",
+    "$cursor_editmode_nothing",
+    "$cursor_editmode_connect",
+    "$cursor_editmode_disconnect"
 };
 
 void canvas_setcursor(t_canvas *x, unsigned int cursornum)