head	1.1;
access;
symbols
	pkgsrc-2026Q1:1.1.0.52
	pkgsrc-2026Q1-base:1.1
	pkgsrc-2025Q4:1.1.0.50
	pkgsrc-2025Q4-base:1.1
	pkgsrc-2025Q3:1.1.0.48
	pkgsrc-2025Q3-base:1.1
	pkgsrc-2025Q2:1.1.0.46
	pkgsrc-2025Q2-base:1.1
	pkgsrc-2025Q1:1.1.0.44
	pkgsrc-2025Q1-base:1.1
	pkgsrc-2024Q4:1.1.0.42
	pkgsrc-2024Q4-base:1.1
	pkgsrc-2024Q3:1.1.0.40
	pkgsrc-2024Q3-base:1.1
	pkgsrc-2024Q2:1.1.0.38
	pkgsrc-2024Q2-base:1.1
	pkgsrc-2024Q1:1.1.0.36
	pkgsrc-2024Q1-base:1.1
	pkgsrc-2023Q4:1.1.0.34
	pkgsrc-2023Q4-base:1.1
	pkgsrc-2023Q3:1.1.0.32
	pkgsrc-2023Q3-base:1.1
	pkgsrc-2023Q2:1.1.0.30
	pkgsrc-2023Q2-base:1.1
	pkgsrc-2023Q1:1.1.0.28
	pkgsrc-2023Q1-base:1.1
	pkgsrc-2022Q4:1.1.0.26
	pkgsrc-2022Q4-base:1.1
	pkgsrc-2022Q3:1.1.0.24
	pkgsrc-2022Q3-base:1.1
	pkgsrc-2022Q2:1.1.0.22
	pkgsrc-2022Q2-base:1.1
	pkgsrc-2022Q1:1.1.0.20
	pkgsrc-2022Q1-base:1.1
	pkgsrc-2021Q4:1.1.0.18
	pkgsrc-2021Q4-base:1.1
	pkgsrc-2021Q3:1.1.0.16
	pkgsrc-2021Q3-base:1.1
	pkgsrc-2021Q2:1.1.0.14
	pkgsrc-2021Q2-base:1.1
	pkgsrc-2021Q1:1.1.0.12
	pkgsrc-2021Q1-base:1.1
	pkgsrc-2020Q4:1.1.0.10
	pkgsrc-2020Q4-base:1.1
	pkgsrc-2020Q3:1.1.0.8
	pkgsrc-2020Q3-base:1.1
	pkgsrc-2020Q2:1.1.0.6
	pkgsrc-2020Q2-base:1.1
	pkgsrc-2020Q1:1.1.0.2
	pkgsrc-2020Q1-base:1.1
	pkgsrc-2019Q4:1.1.0.4
	pkgsrc-2019Q4-base:1.1;
locks; strict;
comment	@# @;


1.1
date	2019.10.07.14.37.34;	author kamil;	state Exp;
branches;
next	;
commitid	ROiwDTz68IY6CWFB;


desc
@@


1.1
log
@lang/tcltutor: import tcltutor-30b7

This is a package designed to teach the Tcl programming language in a
quick and easy manner.  The goal is to teach the minimal amount of Tcl
syntax, commands and options that are necessary to write useful
programs.

You are encouraged to use the man pages and books to augment this
tutorial.
@
text
@$NetBSD$

- fix shebang
- disable logUsage+mailLog
- overwrite data dir

--- TclTutor.tcl.orig	2014-03-20 14:27:20.000000000 +0000
+++ TclTutor.tcl
@@@@ -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) @@TCLTUTOR_LIBDATADIR@@
+            set Tutor(lessonHome) @@TCLTUTOR_LIBDATADIR@@/lesson
 	    set Tutor(rcHome) $env(HOME)
             set Tutor(rcfile) [file join $Tutor(rcHome) .tcltutorrc]
             set Tutor(logFileName) [file join $Tutor(rcHome) .tcltutoract]
@@@@ -160,8 +160,8 @@@@ proc parseArgs {stateVar {throwError 1}}
       }
       "macintosh" -
       "mac"	{
-            set Tutor(sourceHome) [file dirname $argv0]
-            set Tutor(lessonHome) [file dirname $argv0]/lesson
+            set Tutor(sourceHome) @@TCLTUTOR_LIBDATADIR@@
+            set Tutor(lessonHome) @@TCLTUTOR_LIBDATADIR@@/lesson
 	    set Tutor(rcHome) [file dirname $argv0]
             set Tutor(rcfile) [file join $Tutor(rcHome) tcltutor.rc]
             set Tutor(logFileName) [file join $Tutor(rcHome) tcltutor.act]
@@@@ -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 
@@@@ -694,7 +694,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 {
@@@@ -1153,6 +1153,8 @@@@ proc SetFontSize {} {
 # 
 proc logUsage {str} {
     global Tutor
+
+    return
     
     if {$Tutor(logUsage) == 0} {return}
 
@@@@ -1180,6 +1182,9 @@@@ proc logUsage {str} {
 # 
 proc mailLog {} {
   global Tutor tcl_platform
+
+  return
+
   catch {close $Tutor(logFile)}
   
     switch $tcl_platform(platform) {
@@@@ -1388,4 +1393,3 @@@@ selectCourse [file join \
     [format "%s.%s" $Tutor(courseName) cfg]]
 
 applyOptions
-
@