SecBSD's official ports repository

2023-08-16 22:26:55 +00:00 · 2023-08-16 22:26:55 +00:00 · 2c0afcbbf3
commit 2c0afcbbf3
64331 changed files with 5339189 additions and 0 deletions
--- a/lang/tcltutor/patches/patch-TclTutor_tcl
+++ b/lang/tcltutor/patches/patch-TclTutor_tcl
@ -0,0 +1,57 @@
+--- TclTutor.tcl.orig	Thu Mar 20 10:27:20 2014
+++ TclTutor.tcl	Sun Aug 31 11:15:44 2014
+@@ -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 
+@@ -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 {
+@@ -1154,6 +1154,7 @@ proc SetFontSize {} {
+ proc logUsage {str} {
+     global Tutor
+     
+    return
+     if {$Tutor(logUsage) == 0} {return}
+ 
+     if {[string match $Tutor(logFile) ""]} {
+@@ -1180,6 +1181,7 @@ proc logUsage {str} {
+ # 
+ proc mailLog {} {
+   global Tutor tcl_platform
+  return
+   catch {close $Tutor(logFile)}
+   
+     switch $tcl_platform(platform) {