$OpenBSD: patch-TclTutor_tcl,v 1.3 2009/01/25 20:47:48 steven Exp $
--- TclTutor.tcl.orig	Sat Aug  2 05:04:40 2008
+++ TclTutor.tcl	Sun Jan 25 21:42:14 2009
@@ -1,8 +1,8 @@
-package provide app-tcltutor 1.0
 #!/bin/sh 
 # \
 exec wish "$0" "$@"
 
+package provide app-tcltutor 1.0
 package require Tk
 
 ;# NAME:   TclTutor.tcl
@@ -139,8 +139,8 @@ proc parseArgs {stateVar {throwError 1}} {
 
     switch $tcl_platform(platform) {
       "unix"	{
-            set Tutor(sourceHome) [file dirname $argv0]
-            set Tutor(lessonHome) [file dirname $argv0]/lesson
+            set Tutor(sourceHome) ${TT_LIB_DIR}
+            set Tutor(lessonHome) ${TT_LSN_DIR}
 	    set Tutor(rcHome) $env(HOME)
             set Tutor(rcfile) [file join $Tutor(rcHome) .tcltutorrc]
             set Tutor(logFileName) [file join $Tutor(rcHome) .tcltutoract]
@@ -174,7 +174,7 @@ proc parseArgs {stateVar {throwError 1}} {
       }
    }
 
-set Tutor(noSaves) {sourceHome lessonHome}
+set Tutor(noSaves) {sourceHome lessonHome logUsage mailUsage}
 
 #
 #   check if a Scripted Document 
@@ -654,7 +654,6 @@ proc createDisplay {} {
     foreach l {lesson code output} {
       set t [labelframe .$l -text [string totitle $l] -height [expr $h/4]]
       .pn add $t
-      puts [.pn paneconfigure $t ]
       set w [text $t.txt -yscrollcommand "$t.ysb set" ]
       scrollbar $t.ysb -command "$w yview"
       grid rowconfigure $t 0 -weight 1
@@ -694,7 +693,7 @@ proc createDisplay {} {
         $mbf.file add command -label $l -command $l2
     }
     
-    if {[string match $tcl_platform(platform) "unix"]} {
+    if {0 && [string match $tcl_platform(platform) "unix"]} {
         if {$Tutor(logUsage)} {
            $mbf.file add command -label "Disable activity log" -command {set Tutor(logUsage) 0}
          } else {
@@ -1134,6 +1133,7 @@ proc SetFontSize {} {
 proc logUsage {str} {
     global Tutor
     
+    return
     if {$Tutor(logUsage) == 0} {return}
 
     if {[string match $Tutor(logFile) ""]} {
@@ -1160,6 +1160,7 @@ proc logUsage {str} {
 # 
 proc mailLog {} {
   global Tutor tcl_platform
+  return
   catch {close $Tutor(logFile)}
   
     switch $tcl_platform(platform) {
