diff -ur ../scidcvs.git/tcl/tools/pinfo.tcl ./tcl/tools/pinfo.tcl
--- ../scidcvs.git/tcl/tools/pinfo.tcl	2009-02-20 18:06:43.000000000 -0600
+++ ./tcl/tools/pinfo.tcl	2009-03-20 22:16:20.000000000 -0500
@@ -19,15 +19,15 @@
     wm minsize $w 40 5
     pack [frame $w.b2] -side bottom -fill x
     pack [frame $w.b] -side bottom -fill x
-    button $w.b.graph -text [tr ToolsRating] \
+    ttk::button $w.b.graph -text [tr ToolsRating] \
       -command {::tools::graphs::rating::Refresh player $playerInfoName}
-    button $w.b.edit -text $::tr(PInfoEditRatings) -command {
+    ttk::button $w.b.edit -text $::tr(PInfoEditRatings) -command {
       makeNameEditor
       setNameEditorType rating
       set editName $playerInfoName
       set editNameSelect crosstable
     }
-    button $w.b2.report -text [tr ToolsPlayerReport] \
+    ttk::button $w.b2.report -text [tr ToolsPlayerReport] \
       -command {::preport::preportDlg $playerInfoName}
     dialogbutton $w.b2.help -textvar ::tr(Help) -command {helpWindow PInfo}
     dialogbutton $w.b2.update -textvar ::tr(Update) -command {playerInfo $playerInfoName}
@@ -69,5 +69,13 @@
   ::windows::gamelist::Refresh
   ::maint::Refresh
   #raiseWin $w
+  if { $::macOS } {
+    $w.text configure -takefocus 1
+    bind $w.text <ButtonPress-1> {focus %W}
+    bind $w <Command-c> {
+      clipboard clear
+      clipboard append [ selection get -displayof .playerInfoWin.text ]
+    }
+  }
 }