67 lines
2.1 KiB
Plaintext
67 lines
2.1 KiB
Plaintext
$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) {
|