[Sciviews-commits] r536 - pkg/tcltk2/man

[noreply at r-forge.r-project.org]

Author: phgrosjean
Date: 2013-11-30 07:40:25 +0100 (Sat, 30 Nov 2013)
New Revision: 536

Modified:
   pkg/tcltk2/man/tk2commands.Rd
Log:
Correction in tk2commands example (missing \ before %)

Modified: pkg/tcltk2/man/tk2commands.Rd
===================================================================
--- pkg/tcltk2/man/tk2commands.Rd	2013-11-29 20:44:59 UTC (rev 535)
+++ pkg/tcltk2/man/tk2commands.Rd	2013-11-30 06:40:25 UTC (rev 536)
@@ -158,17 +158,17 @@
 tkconfigure(tt, menu = topMenu) # Add it to the 'tt' window
 themes <- tk2theme.list()
 themeMenu <- tkmenu(topMenu, tearoff = FALSE)
-if ("alt" %in% themes) tkadd(themeMenu, "command", label = "alt",
+if ("alt" \%in\% themes) tkadd(themeMenu, "command", label = "alt",
     command = function() tk2theme("alt"))
-if ("aqua" %in% themes) tkadd(themeMenu, "command", label = "aqua",
+if ("aqua" \%in\% themes) tkadd(themeMenu, "command", label = "aqua",
     command = function() tk2theme("aqua"))
-if ("clam" %in% themes) tkadd(themeMenu, "command", label = "clam",
+if ("clam" \%in\% themes) tkadd(themeMenu, "command", label = "clam",
     command = function() tk2theme("clam"))
 tkadd(themeMenu, "command", label = "clearlooks",
     command = function() tk2theme("clearlooks"))
-if ("classic" %in% themes) tkadd(themeMenu, "command", label = "classic",
+if ("classic" \%in\% themes) tkadd(themeMenu, "command", label = "classic",
     command = function() tk2theme("classic"))
-if ("default" %in% themes) tkadd(themeMenu, "command", label = "default",
+if ("default" \%in\% themes) tkadd(themeMenu, "command", label = "default",
     command = function() tk2theme("default"))
 tkadd(themeMenu, "command", label = "keramik",
     command = function() tk2theme("keramik"))
@@ -176,11 +176,11 @@
     command = function() tk2theme("plastik"))
 tkadd(themeMenu, "command", label = "radiance (fonts change too)!",
     command = function() tk2theme("radiance"))
-if ("vista" %in% themes) tkadd(themeMenu, "command", label = "vista",
+if ("vista" \%in\% themes) tkadd(themeMenu, "command", label = "vista",
     command = function() tk2theme("vista"))
-if ("winnative" %in% themes) tkadd(themeMenu, "command", label = "winnative",
+if ("winnative" \%in\% themes) tkadd(themeMenu, "command", label = "winnative",
     command = function() tk2theme("winnative"))
-if ("xpnative" %in% themes) tkadd(themeMenu, "command", label = "xpnative",
+if ("xpnative" \%in\% themes) tkadd(themeMenu, "command", label = "xpnative",
     command = function() tk2theme("xpnative"))
 tkadd(themeMenu, "separator")
 tkadd(themeMenu, "command", label = "Quit", command = function() tkdestroy(tt))