From skostysh at princeton.edu  Sun Sep  1 08:45:08 2013
From: skostysh at princeton.edu (Scott Kostyshak)
Date: Sun, 1 Sep 2013 02:45:08 -0400
Subject: [Rd] [PATCH] remove a duplicate tk function definition (and
	alphabetize)
Message-ID: <CAE3=dmf7XOBCJ-zNzVEH6HV4-Rz+J5om=WghfjkN4cdnSv0XVQ@mail.gmail.com>

'tkcoords' is defined twice (in the same way) in src/library/tcltk/R/Tk.R.

Attached is a patch against r63780 that removes the duplicate
definition and alphabetizes the functions.

I've read that minor patches such as this should be sent to r-devel [1].

Scott

[1] http://permalink.gmane.org/gmane.comp.lang.r.devel/33987


--
Scott Kostyshak
Economics PhD Candidate
Princeton University
-------------- next part --------------
Index: src/library/tcltk/R/Tk.R
===================================================================
--- src/library/tcltk/R/Tk.R	(revision 63780)
+++ src/library/tcltk/R/Tk.R	(working copy)
@@ -493,12 +493,11 @@
 tkbbox          <- function(widget, ...) tcl(widget, "bbox", ...)
 tkcanvasx       <- function(widget, ...) tcl(widget, "canvasx", ...)
 tkcanvasy       <- function(widget, ...) tcl(widget, "canvasy", ...)
+tkcget          <- function(widget, ...) tcl(widget, "cget", ...)
 tkcompare       <- function(widget, ...) tcl(widget, "compare", ...)
 tkconfigure     <- function(widget, ...) tcl(widget, "configure", ...)
 tkcoords        <- function(widget, ...) tcl(widget, "coords", ...)
 tkcreate        <- function(widget, ...) tcl(widget, "create", ...)
-tkcget          <- function(widget, ...) tcl(widget, "cget", ...)
-tkcoords        <- function(widget, ...) tcl(widget, "coords", ...)
 tkcurselection  <- function(widget, ...) tcl(widget, "curselection", ...)
 tkdchars        <- function(widget, ...) tcl(widget, "dchars", ...)
 tkdebug         <- function(widget, ...) tcl(widget, "debug", ...)
@@ -508,8 +507,8 @@
 tkdlineinfo     <- function(widget, ...) tcl(widget, "dlineinfo", ...)
 tkdtag          <- function(widget, ...) tcl(widget, "dtag", ...)
 tkdump          <- function(widget, ...) tcl(widget, "dump", ...)
+tkentrycget     <- function(widget, ...) tcl(widget, "entrycget", ...)
 tkentryconfigure <- function(widget, ...) tcl(widget, "entryconfigure", ...)
-tkentrycget     <- function(widget, ...) tcl(widget, "entrycget", ...)
 tkfind          <- function(widget, ...) tcl(widget, "find", ...)
 tkflash         <- function(widget, ...) tcl(widget, "flash", ...)
 tkfraction      <- function(widget, ...) tcl(widget, "fraction", ...)
@@ -535,11 +534,11 @@
 tkmark.unset    <- function(widget, ...) tcl(widget, "mark", "unset", ...)
 tkmove          <- function(widget, ...) tcl(widget, "move", ...)
 tknearest       <- function(widget, ...) tcl(widget, "nearest", ...)
+tkpostcascade   <- function(widget, ...) tcl(widget, "postcascade", ...)
 tkpost          <- function(widget, ...) tcl(widget, "post", ...)
-tkpostcascade   <- function(widget, ...) tcl(widget, "postcascade", ...)
 tkpostscript    <- function(widget, ...) tcl(widget, "postscript", ...)
+tkscan.dragto   <- function(widget, ...) tcl(widget, "scan", "dragto", ...)
 tkscan.mark     <- function(widget, ...) tcl(widget, "scan", "mark", ...)
-tkscan.dragto   <- function(widget, ...) tcl(widget, "scan", "dragto", ...)
 tksearch        <- function(widget, ...) tcl(widget, "search", ...)
 tksee           <- function(widget, ...) tcl(widget, "see", ...)
 tkselect        <- function(widget, ...) tcl(widget, "select", ...)
@@ -563,7 +562,6 @@
     tcl(widget, "selection", "to", ...)
 tkset           <- function(widget, ...) tcl(widget, "set", ...)
 tksize          <- function(widget, ...) tcl(widget, "size", ...)
-tktoggle        <- function(widget, ...) tcl(widget, "toggle", ...)
 tktag.add       <- function(widget, ...) tcl(widget, "tag", "add", ...)
 tktag.bind      <- function(widget, ...) tcl(widget, "tag", "bind", ...)
 tktag.cget      <- function(widget, ...) tcl(widget, "tag", "cget", ...)
@@ -576,6 +574,7 @@
 tktag.raise     <- function(widget, ...) tcl(widget, "tag", "raise", ...)
 tktag.ranges    <- function(widget, ...) tcl(widget, "tag", "ranges", ...)
 tktag.remove    <- function(widget, ...) tcl(widget, "tag", "remove", ...)
+tktoggle        <- function(widget, ...) tcl(widget, "toggle", ...)
 tktype          <- function(widget, ...) tcl(widget, "type", ...)
 tkunpost        <- function(widget, ...) tcl(widget, "unpost", ...)
 tkwindow.cget   <- function(widget, ...) tcl(widget, "window", "cget", ...)


[Rd] [PATCH] remove a duplicate tk function definition (and alphabetize)
Scott Kostyshak