1
2
3
4
5
6
7
8
9
10
11
|
#----------------------------------------------------------------------
# Eskil, Help functions
#
# Copyright (c) 1998-2005, Peter Spjuth (peter.spjuth@space.se)
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
|
|
|
1
2
3
4
5
6
7
8
9
10
11
|
#----------------------------------------------------------------------
# Eskil, Help functions
#
# Copyright (c) 1998-2005, Peter Spjuth (peter.spjuth@gmail.com)
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
|
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
text $w.t -width 45 -height 11 -wrap none -relief flat \
-bg $bg
pack $w.t -side top -expand y -fill both
$w.t insert end "A graphical frontend to diff\n\n"
$w.t insert end "$diffver\n\n"
$w.t insert end "Made by Peter Spjuth\n"
$w.t insert end "E-Mail: peter.spjuth@space.se\n"
$w.t insert end "\nURL: http://eskil.berlios.de\n"
$w.t insert end "\nTcl version: [info patchlevel]\n"
set du [package provide DiffUtil]
if {[info procs DiffUtil::LocateDiffExe] ne ""} {
append du " (tcl)"
} else {
|
|
|
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
text $w.t -width 45 -height 11 -wrap none -relief flat \
-bg $bg
pack $w.t -side top -expand y -fill both
$w.t insert end "A graphical frontend to diff\n\n"
$w.t insert end "$diffver\n\n"
$w.t insert end "Made by Peter Spjuth\n"
$w.t insert end "E-Mail: peter.spjuth@gmail.com\n"
$w.t insert end "\nURL: http://eskil.berlios.de\n"
$w.t insert end "\nTcl version: [info patchlevel]\n"
set du [package provide DiffUtil]
if {[info procs DiffUtil::LocateDiffExe] ne ""} {
append du " (tcl)"
} else {
|