head	1.9;
access;
symbols
	RELENG_8_4:1.9.0.2
	RELENG_9_1_0_RELEASE:1.8.2.1.4.2
	RELENG_9_1:1.8.2.1.0.4
	RELENG_9_1_BP:1.8.2.1
	RELENG_8_3_0_RELEASE:1.7.56.1.8.1
	RELENG_8_3:1.7.56.1.0.8
	RELENG_8_3_BP:1.7.56.1
	RELENG_9_0_0_RELEASE:1.8.2.1.2.1
	RELENG_9_0:1.8.2.1.0.2
	RELENG_9_0_BP:1.8.2.1
	RELENG_9:1.8.0.2
	RELENG_9_BP:1.8
	RELENG_7_4_0_RELEASE:1.7.60.1
	RELENG_8_2_0_RELEASE:1.7.56.1.6.1
	RELENG_7_4:1.7.0.60
	RELENG_7_4_BP:1.7
	RELENG_8_2:1.7.56.1.0.6
	RELENG_8_2_BP:1.7.56.1
	RELENG_8_1_0_RELEASE:1.7.56.1.4.1
	RELENG_8_1:1.7.56.1.0.4
	RELENG_8_1_BP:1.7.56.1
	RELENG_7_3_0_RELEASE:1.7.58.1
	RELENG_7_3:1.7.0.58
	RELENG_7_3_BP:1.7
	RELENG_8_0_0_RELEASE:1.7.56.1.2.1
	RELENG_8_0:1.7.56.1.0.2
	RELENG_8_0_BP:1.7.56.1
	RELENG_8:1.7.0.56
	RELENG_8_BP:1.7
	RELENG_7_2_0_RELEASE:1.7.54.1
	RELENG_7_2:1.7.0.54
	RELENG_7_2_BP:1.7
	RELENG_7_1_0_RELEASE:1.7.52.1
	RELENG_6_4_0_RELEASE:1.7.50.1
	RELENG_7_1:1.7.0.52
	RELENG_7_1_BP:1.7
	RELENG_6_4:1.7.0.50
	RELENG_6_4_BP:1.7
	RELENG_7_0_0_RELEASE:1.7
	RELENG_6_3_0_RELEASE:1.7
	RELENG_7_0:1.7.0.48
	RELENG_7_0_BP:1.7
	RELENG_6_3:1.7.0.46
	RELENG_6_3_BP:1.7
	RELENG_7:1.7.0.44
	RELENG_7_BP:1.7
	RELENG_6_2_0_RELEASE:1.7
	RELENG_6_2:1.7.0.42
	RELENG_6_2_BP:1.7
	RELENG_5_5_0_RELEASE:1.7
	RELENG_5_5:1.7.0.40
	RELENG_5_5_BP:1.7
	RELENG_6_1_0_RELEASE:1.7
	RELENG_6_1:1.7.0.38
	RELENG_6_1_BP:1.7
	RELENG_6_0_0_RELEASE:1.7
	RELENG_6_0:1.7.0.36
	RELENG_6_0_BP:1.7
	RELENG_6:1.7.0.34
	RELENG_6_BP:1.7
	RELENG_5_4_0_RELEASE:1.7
	RELENG_5_4:1.7.0.32
	RELENG_5_4_BP:1.7
	RELENG_4_11_0_RELEASE:1.7
	RELENG_4_11:1.7.0.30
	RELENG_4_11_BP:1.7
	RELENG_5_3_0_RELEASE:1.7
	RELENG_5_3:1.7.0.28
	RELENG_5_3_BP:1.7
	RELENG_5:1.7.0.26
	RELENG_5_BP:1.7
	RELENG_4_10_0_RELEASE:1.7
	RELENG_4_10:1.7.0.24
	RELENG_4_10_BP:1.7
	RELENG_5_2_1_RELEASE:1.7
	RELENG_5_2_0_RELEASE:1.7
	RELENG_5_2:1.7.0.22
	RELENG_5_2_BP:1.7
	RELENG_4_9_0_RELEASE:1.7
	RELENG_4_9:1.7.0.20
	RELENG_4_9_BP:1.7
	RELENG_5_1_0_RELEASE:1.7
	RELENG_5_1:1.7.0.18
	RELENG_5_1_BP:1.7
	RELENG_4_8_0_RELEASE:1.7
	RELENG_4_8:1.7.0.16
	RELENG_4_8_BP:1.7
	RELENG_5_0_0_RELEASE:1.7
	RELENG_5_0:1.7.0.14
	RELENG_5_0_BP:1.7
	RELENG_4_7_0_RELEASE:1.7
	RELENG_4_7:1.7.0.12
	RELENG_4_7_BP:1.7
	RELENG_4_6_2_RELEASE:1.7
	RELENG_4_6_1_RELEASE:1.7
	RELENG_4_6_0_RELEASE:1.7
	RELENG_4_6:1.7.0.10
	RELENG_4_6_BP:1.7
	RELENG_4_5_0_RELEASE:1.7
	RELENG_4_5:1.7.0.8
	RELENG_4_5_BP:1.7
	RELENG_4_4_0_RELEASE:1.7
	RELENG_4_4:1.7.0.6
	RELENG_4_4_BP:1.7
	RELENG_4_3_0_RELEASE:1.7
	RELENG_4_3:1.7.0.4
	RELENG_4_3_BP:1.7
	RELENG_4_2_0_RELEASE:1.7
	RELENG_4_1_1_RELEASE:1.7
	PRE_SMPNG:1.7
	RELENG_4_1_0_RELEASE:1.7
	RELENG_3_5_0_RELEASE:1.4.2.1
	RELENG_4_0_0_RELEASE:1.7
	RELENG_4:1.7.0.2
	RELENG_4_BP:1.7
	RELENG_3_4_0_RELEASE:1.4.2.1
	RELENG_3_3_0_RELEASE:1.4.2.1
	RELENG_3_2_PAO:1.4.0.4
	RELENG_3_2_PAO_BP:1.4
	RELENG_3_2_0_RELEASE:1.4
	RELENG_3_1_0_RELEASE:1.4
	RELENG_3:1.4.0.2
	RELENG_3_BP:1.4
	RELENG_2_2_8_RELEASE:1.2.6.1
	RELENG_3_0_0_RELEASE:1.4
	RELENG_2_2_7_RELEASE:1.2.6.1
	RELENG_2_2_6_RELEASE:1.2.6.1
	RELENG_2_2_5_RELEASE:1.2.6.1
	RELENG_2_2_2_RELEASE:1.2.6.1
	RELENG_2_2_1_RELEASE:1.2.6.1
	RELENG_2_2_0_RELEASE:1.2.6.1
	RELENG_2_1_7_RELEASE:1.2
	RELENG_2_1_6_1_RELEASE:1.2
	RELENG_2_1_6_RELEASE:1.2
	RELENG_2_2:1.2.0.6
	RELENG_2_2_BP:1.2
	RELENG_2_1_5_RELEASE:1.2
	RELENG_2_1_0_RELEASE:1.2
	RELENG_2_1_0:1.2.0.4
	RELENG_2_1_0_BP:1.2
	RELENG_2_0_5_RELEASE:1.2
	RELENG_2_0_5:1.2.0.2
	RELENG_2_0_5_BP:1.2
	RELENG_2_0_5_ALPHA:1.2
	RELEASE_2_0:1.1
	BETA_2_0:1.1
	ALPHA_2_0:1.1.0.2
	MOVED_NEWCVS:1.1
	BP_BETA_1_1:1.1;
locks; strict;
comment	@# @;


1.9
date	2012.11.17.01.54.53;	author svnexp;	state Exp;
branches
	1.9.2.1;
next	1.8;

1.8
date	2011.03.31.14.33.27;	author emaste;	state Exp;
branches
	1.8.2.1;
next	1.7;

1.7
date	99.08.29.15.54.49;	author peter;	state Exp;
branches
	1.7.2.1
	1.7.34.1
	1.7.44.1
	1.7.50.1
	1.7.52.1
	1.7.54.1
	1.7.56.1
	1.7.58.1
	1.7.60.1;
next	1.6;

1.6
date	99.08.28.05.11.31;	author peter;	state Exp;
branches;
next	1.5;

1.5
date	99.08.28.01.17.54;	author peter;	state Exp;
branches;
next	1.4;

1.4
date	97.02.22.16.09.13;	author peter;	state Exp;
branches
	1.4.2.1;
next	1.3;

1.3
date	97.01.14.07.14.23;	author jkh;	state Exp;
branches;
next	1.2;

1.2
date	94.12.06.00.51.21;	author jkh;	state Exp;
branches
	1.2.4.1
	1.2.6.1;
next	1.1;

1.1
date	94.01.06.08.16.20;	author jkh;	state Exp;
branches;
next	;

1.9.2.1
date	2012.11.17.01.54.53;	author svnexp;	state dead;
branches;
next	1.9.2.2;

1.9.2.2
date	2013.03.28.13.06.21;	author svnexp;	state Exp;
branches;
next	;

1.8.2.1
date	2011.09.23.00.51.37;	author kensmith;	state Exp;
branches
	1.8.2.1.2.1
	1.8.2.1.4.1;
next	1.8.2.2;

1.8.2.2
date	2012.11.17.11.37.46;	author svnexp;	state Exp;
branches;
next	;

1.8.2.1.2.1
date	2011.11.11.04.20.22;	author kensmith;	state Exp;
branches;
next	1.8.2.1.2.2;

1.8.2.1.2.2
date	2012.11.17.08.37.42;	author svnexp;	state Exp;
branches;
next	;

1.8.2.1.4.1
date	2012.08.05.23.54.33;	author kensmith;	state Exp;
branches;
next	1.8.2.1.4.2;

1.8.2.1.4.2
date	2012.11.17.08.48.34;	author svnexp;	state Exp;
branches;
next	;

1.7.2.1
date	2012.11.17.07.28.29;	author svnexp;	state Exp;
branches;
next	;

1.7.34.1
date	2012.11.17.07.46.31;	author svnexp;	state Exp;
branches;
next	;

1.7.44.1
date	2012.11.17.08.09.04;	author svnexp;	state Exp;
branches;
next	;

1.7.50.1
date	2008.10.02.02.57.24;	author kensmith;	state Exp;
branches;
next	;

1.7.52.1
date	2008.11.25.02.59.29;	author kensmith;	state Exp;
branches;
next	;

1.7.54.1
date	2009.04.15.03.14.26;	author kensmith;	state Exp;
branches;
next	;

1.7.56.1
date	2009.08.03.08.13.06;	author kensmith;	state Exp;
branches
	1.7.56.1.2.1
	1.7.56.1.4.1
	1.7.56.1.6.1
	1.7.56.1.8.1;
next	1.7.56.2;

1.7.56.2
date	2012.11.17.10.37.24;	author svnexp;	state Exp;
branches;
next	;

1.7.56.1.2.1
date	2009.10.25.01.10.29;	author kensmith;	state Exp;
branches;
next	;

1.7.56.1.4.1
date	2010.06.14.02.09.06;	author kensmith;	state Exp;
branches;
next	;

1.7.56.1.6.1
date	2010.12.21.17.09.25;	author kensmith;	state Exp;
branches;
next	;

1.7.56.1.8.1
date	2012.03.03.06.15.13;	author kensmith;	state Exp;
branches;
next	1.7.56.1.8.2;

1.7.56.1.8.2
date	2012.11.17.08.25.56;	author svnexp;	state Exp;
branches;
next	;

1.7.58.1
date	2010.02.10.00.26.20;	author kensmith;	state Exp;
branches;
next	;

1.7.60.1
date	2010.12.21.17.10.29;	author kensmith;	state Exp;
branches;
next	1.7.60.2;

1.7.60.2
date	2012.11.17.08.17.49;	author svnexp;	state Exp;
branches;
next	;

1.4.2.1
date	99.08.29.15.45.07;	author peter;	state Exp;
branches;
next	;

1.2.4.1
date	99.09.05.11.44.29;	author peter;	state Exp;
branches;
next	;

1.2.6.1
date	96.11.28.08.27.59;	author phk;	state Exp;
branches;
next	1.2.6.2;

1.2.6.2
date	99.09.05.11.40.42;	author peter;	state Exp;
branches;
next	;


desc
@@


1.9
log
@Switching exporter and resync
@
text
@#!/usr/local/bin/wish -f
#$FreeBSD: head/usr.sbin/pkg_install/tkpkg 220200 2011-03-31 14:33:27Z emaste $
#
set pkgname ""
wm title . "Package Installation"
#--------------------------------------------------------------
# The top level main window, consisting of a bar of buttons and a list
# of packages and a description of the current package.
#--------------------------------------------------------------
frame .menu -relief raised -borderwidth 1
frame .frame -borderwidth 4

scrollbar .frame.scroll -relief sunken -command ".frame.list yview"
listbox .frame.list -yscroll ".frame.scroll set" -relief sunken -setgrid 1
pack append .frame .frame.scroll {right filly} \
        .frame.list {left expand fill}

# build the lower window shoing the complete description of a pacage
frame .f -borderwidth 4
text .f.t -width 80 -height 20 -yscrollcommand ".f.s set" -relief sunken

# Initially display instructions in this window.  Erase the
# instructions and show the package description when the user clicks
# on a package.
# 
.f.t insert end "Double click on a package above to see its
complete description here."
scrollbar .f.s -relief sunken -command ".f.t yview"
pack append .f .f.s {right filly} .f.t {left expand fill}

bind .frame.list <Double-Button-1> \
    {foreach i [selection get] {do_description $i}}
pack append .  .menu {top fill} \
   .f {bottom expand fill} \
   .frame {bottom expand fill}

#----------------------------------------------------------------
# Make menu bar:
#----------------------------------------------------------------
button .menu.inst -text "Install" \
   -command "apply_to_pkg \"pkg_add -v\""
button .menu.dein -text "Deinstall" \
   -command "apply_to_pkg \"pkg_delete -v\""
button .menu.installed -text "What is Installed?" \
   -command "list_pkgs \"pkg_info -I -a |tr '	' ' '\""
button .menu.available -text "What can I install?" \
   -command "list_pkgs \"pkg_info -I -c [glob -nocomplain *.{tgz,tar.z,tar.gz,tar.Z}] |tr '	' ' '\""
button .menu.cont -text "Contents?" \
   -command "apply_to_pkg \"pkg_info -d -v\""
button .menu.quit -text "Quit" -command "destroy ."
button .menu.help -text "Help" -command "do_help"

pack append .menu \
  .menu.inst left \
  .menu.dein left \
  .menu.installed left \
  .menu.available left \
  .menu.cont left \
  .menu.quit left \
  .menu.help right
#-------------------------------------------------------
# Display the package description.
#-------------------------------------------------------
proc list_pkgs {s} {
  set line ""
  set f [eval "open {| sh -c \"$s\" } r"]
  .frame.list delete 0 end
  while {[gets $f line] > 0} {
    .frame.list insert end $line
  }
  close $f
}

# display the list of available packages
set archives [glob -nocomplain *.{tgz,tar.z,tar.gz,tar.Z}]
if {$archives == ""} {
  .frame.list delete 0 end
 .frame.list insert end "Warning: no compressed tar archives files found."
} else {
  list_pkgs "pkg_info -I -c $archives |tr '	' ' '"
}

#-------------------------------------------------------
# Display the package description.
#-------------------------------------------------------
proc do_description {s} {
  global pkgname
  regexp {[^ 	]*} $s filename
  set pkgname $filename
  .f.t delete 0.0 end
  set cmd "pkg_info -d $filename |tr -d ''"
  set f [eval "open {| csh -c \"$cmd\" } r"]
  while {![eof $f]} {
    .f.t insert end [read $f]
  }
}
#-------------------------------------------------------
# package install window.
#-------------------------------------------------------
proc do_help {{w .help}} {
  catch {destroy $w}
  toplevel $w
  wm title $w "Help"
  wm iconname $w "Help"
  button $w.ok -text OK -command "destroy $w"
  message $w.t -relief raised -bd 2 \
    -text "You can install, deinstall and list info on the available packages.  To select a package and see its complete description, press mouse button 1 over the package name.  To install a selected package, press the Install button.  To exit, press the \"Quit\" button."
  pack append $w $w.ok {bottom fillx} $w.t {expand fill}
}
#-------------------------------------------------------
# Apply a command to a package.
#-------------------------------------------------------
proc apply_to_pkg {s} {
    apply_to_pkg_err $s ""
}
#-------------------------------------------------------
# Apply a command to a package, with error stream redirection instructions.
#-------------------------------------------------------
proc apply_to_pkg_err {s errredir} {
  global pkgname
  .f.t delete 0.0 end
  if {$pkgname == ""} {
    .f.t insert end "You must double click on a package name first!"
  } else {
    apply_to_pkg_int "$s $pkgname" "2>&1"
  }
}
proc apply_to_pkg_int {s errredir} {
    .f.t delete 0.0 end
    .f.t insert end "Running: $s\n"
    set f [eval "open {| sh -c \"$s $errredir\" } r"]
    while {![eof $f]} {
      .f.t insert end [read $f 64]
    }
}
#-------------------------------------------------------
# Invoke an arbitrary command.
#-------------------------------------------------------
proc do_command {s} {
  .f.t delete 0.0 end
  .f.t insert end "Running: $s\n"
  set f [eval "open {| $s} r"]
  while {![eof $f]} {
    .f.t insert end [read $f 64]
  }
}
# local variables:
# mode: csh
# compile-command: ""
# comment-start: "# "
# comment-start-skip: "# "
# end:
@


1.9.2.1
log
@file tkpkg was added on branch RELENG_8_4 on 2013-03-28 13:06:21 +0000
@
text
@d1 152
@


1.9.2.2
log
@## SVN ## Exported commit - http://svnweb.freebsd.org/changeset/base/248810
## SVN ## CVS IS DEPRECATED: http://wiki.freebsd.org/CvsIsDeprecated
@
text
@a0 177
#!/usr/local/bin/wish -f
#$FreeBSD: releng/8.4/usr.sbin/pkg_install/tkpkg 50580 1999-08-29 15:54:49Z peter $
#
#$Log: tkpkg,v $
#Revision 1.2  1994/12/06 00:51:21  jkh
#Many of John T. Kohl's patches from NetBSD.  Thanks, John!
#Submitted by:	jkohl
#
# Revision 1.1  1994/01/06  08:16:20  jkh
# Cleaning house.
#
# Revision 1.1  1993/09/04  17:06:09  jkh
# Added Rich's wish front-end.
#
# Revision 1.6  1993/09/03  23:37:22  rich
# warn user if no tar archives are found in the current directory.
# removed the revision string from the lower text frame.
#
# Revision 1.5  1993/09/03  15:48:04  rich
# glob for .tar.gz, .tar.z and .tar.Z looking for archives
#
# Revision 1.4  1993/08/28  15:53:59  rich
# added version and date info to lower text window.
#
# Revision 1.3  1993/08/28  15:47:12  rich
# filtered out ^Ls in pkg_* output.
#
#
set pkgname ""
wm title . "Package Installation"
#--------------------------------------------------------------
# The top level main window, consisting of a bar of buttons and a list
# of packages and a description of the current package.
#--------------------------------------------------------------
frame .menu -relief raised -borderwidth 1
frame .frame -borderwidth 4

scrollbar .frame.scroll -relief sunken -command ".frame.list yview"
listbox .frame.list -yscroll ".frame.scroll set" -relief sunken -setgrid 1
pack append .frame .frame.scroll {right filly} \
        .frame.list {left expand fill}

# build the lower window shoing the complete description of a pacage
frame .f -borderwidth 4
text .f.t -width 80 -height 20 -yscrollcommand ".f.s set" -relief sunken

# Initially display instructions in this window.  Erase the
# instructions and show the package description when the user clicks
# on a package.
# 
.f.t insert end "Double click on a package above to see its
complete description here."
scrollbar .f.s -relief sunken -command ".f.t yview"
pack append .f .f.s {right filly} .f.t {left expand fill}

bind .frame.list <Double-Button-1> \
    {foreach i [selection get] {do_description $i}}
pack append .  .menu {top fill} \
   .f {bottom expand fill} \
   .frame {bottom expand fill}

#----------------------------------------------------------------
# Make menu bar:
#----------------------------------------------------------------
button .menu.inst -text "Install" \
   -command "apply_to_pkg \"pkg_add -v\""
button .menu.dein -text "Deinstall" \
   -command "apply_to_pkg \"pkg_delete -v\""
button .menu.installed -text "What is Installed?" \
   -command "list_pkgs \"pkg_info -I -a |tr '	' ' '\""
button .menu.available -text "What can I install?" \
   -command "list_pkgs \"pkg_info -I -c [glob -nocomplain *.{tgz,tar.z,tar.gz,tar.Z}] |tr '	' ' '\""
button .menu.cont -text "Contents?" \
   -command "apply_to_pkg \"pkg_info -d -v\""
button .menu.quit -text "Quit" -command "destroy ."
button .menu.help -text "Help" -command "do_help"

pack append .menu \
  .menu.inst left \
  .menu.dein left \
  .menu.installed left \
  .menu.available left \
  .menu.cont left \
  .menu.quit left \
  .menu.help right
#-------------------------------------------------------
# Display the package description.
#-------------------------------------------------------
proc list_pkgs {s} {
  set line ""
  set f [eval "open {| sh -c \"$s\" } r"]
  .frame.list delete 0 end
  while {[gets $f line] > 0} {
    .frame.list insert end $line
  }
  close $f
}

# display the list of available packages
set archives [glob -nocomplain *.{tgz,tar.z,tar.gz,tar.Z}]
if {$archives == ""} {
  .frame.list delete 0 end
 .frame.list insert end "Warning: no compressed tar archives files found."
} else {
  list_pkgs "pkg_info -I -c $archives |tr '	' ' '"
}

#-------------------------------------------------------
# Display the package description.
#-------------------------------------------------------
proc do_description {s} {
  global pkgname
  regexp {[^ 	]*} $s filename
  set pkgname $filename
  .f.t delete 0.0 end
  set cmd "pkg_info -d $filename |tr -d ''"
  set f [eval "open {| csh -c \"$cmd\" } r"]
  while {![eof $f]} {
    .f.t insert end [read $f]
  }
}
#-------------------------------------------------------
# package install window.
#-------------------------------------------------------
proc do_help {{w .help}} {
  catch {destroy $w}
  toplevel $w
  wm title $w "Help"
  wm iconname $w "Help"
  button $w.ok -text OK -command "destroy $w"
  message $w.t -relief raised -bd 2 \
    -text "You can install, deinstall and list info on the available packages.  To select a package and see its complete description, press mouse button 1 over the package name.  To install a selected package, press the Install button.  To exit, press the \"Quit\" button."
  pack append $w $w.ok {bottom fillx} $w.t {expand fill}
}
#-------------------------------------------------------
# Apply a command to a package.
#-------------------------------------------------------
proc apply_to_pkg {s} {
    apply_to_pkg_err $s ""
}
#-------------------------------------------------------
# Apply a command to a package, with error stream redirection instructions.
#-------------------------------------------------------
proc apply_to_pkg_err {s errredir} {
  global pkgname
  .f.t delete 0.0 end
  if {$pkgname == ""} {
    .f.t insert end "You must double click on a package name first!"
  } else {
    apply_to_pkg_int "$s $pkgname" "2>&1"
  }
}
proc apply_to_pkg_int {s errredir} {
    .f.t delete 0.0 end
    .f.t insert end "Running: $s\n"
    set f [eval "open {| sh -c \"$s $errredir\" } r"]
    while {![eof $f]} {
      .f.t insert end [read $f 64]
    }
}
#-------------------------------------------------------
# Invoke an arbitrary command.
#-------------------------------------------------------
proc do_command {s} {
  .f.t delete 0.0 end
  .f.t insert end "Running: $s\n"
  set f [eval "open {| $s} r"]
  while {![eof $f]} {
    .f.t insert end [read $f 64]
  }
}
# local variables:
# mode: csh
# compile-command: ""
# comment-start: "# "
# comment-start-skip: "# "
# end:
@


1.8
log
@SVN rev 220200 on 2011-03-31 14:33:27Z by emaste

Remove $Log$ keyword and associated history, which can cause annoyance in
diffs in some cases.  Revision control tools have a history command to
obtain this information.
@
text
@d2 1
a2 1
#$FreeBSD$
@


1.8.2.1
log
@SVN rev 225736 on 2011-09-23 00:51:37Z by kensmith

Copy head to stable/9 as part of 9.0-RELEASE release cycle.

Approved by:	re (implicit)
@
text
@@


1.8.2.2
log
@## SVN ##
## SVN ## Exported commit - http://svnweb.freebsd.org/changeset/base/ 242902
## SVN ## CVS IS DEPRECATED: http://wiki.freebsd.org/CvsIsDeprecated
## SVN ##
## SVN ## ------------------------------------------------------------------------
## SVN ## r242902 | dteske | 2012-11-11 23:29:45 +0000 (Sun, 11 Nov 2012) | 10 lines
## SVN ##
## SVN ## Fix a regression introduced by SVN r211417 that saw the breakage of a feature
## SVN ## documented in usr.sbin/sysinstall/help/shortcuts.hlp (reproduced below):
## SVN ##
## SVN ## If /usr/sbin/sysinstall is linked to another filename, say
## SVN ## `/usr/local/bin/configPackages', then the basename will be used
## SVN ## as an implicit command name.
## SVN ##
## SVN ## Reviewed by:	adrian (co-mentor)
## SVN ## Approved by:	adrian (co-mentor)
## SVN ##
## SVN ## ------------------------------------------------------------------------
## SVN ##
@
text
@d2 1
a2 1
#$FreeBSD: stable/9/usr.sbin/pkg_install/tkpkg 220200 2011-03-31 14:33:27Z emaste $
@


1.8.2.1.4.1
log
@SVN rev 239080 on 2012-08-05 23:54:33Z by kensmith

Copy stable/9 to releng/9.1 as part of the 9.1-RELEASE release process.

Approved by:	re (implicit)
@
text
@@


1.8.2.1.4.2
log
@Switch importer
@
text
@d2 1
a2 1
#$FreeBSD: releng/9.1/usr.sbin/pkg_install/tkpkg 220200 2011-03-31 14:33:27Z emaste $
@


1.8.2.1.2.1
log
@SVN rev 227445 on 2011-11-11 04:20:22Z by kensmith

Copy stable/9 to releng/9.0 as part of the FreeBSD 9.0-RELEASE release
cycle.

Approved by:	re (implicit)
@
text
@@


1.8.2.1.2.2
log
@Switch importer
@
text
@d2 1
a2 1
#$FreeBSD: releng/9.0/usr.sbin/pkg_install/tkpkg 220200 2011-03-31 14:33:27Z emaste $
@


1.7
log
@Remove some $Log$ debris
@
text
@d2 1
a2 26
#$FreeBSD: src/usr.sbin/pkg_install/tkpkg,v 1.6 1999/08/28 05:11:31 peter Exp $
#
#$Log: tkpkg,v $
#Revision 1.2  1994/12/06 00:51:21  jkh
#Many of John T. Kohl's patches from NetBSD.  Thanks, John!
#Submitted by:	jkohl
#
# Revision 1.1  1994/01/06  08:16:20  jkh
# Cleaning house.
#
# Revision 1.1  1993/09/04  17:06:09  jkh
# Added Rich's wish front-end.
#
# Revision 1.6  1993/09/03  23:37:22  rich
# warn user if no tar archives are found in the current directory.
# removed the revision string from the lower text frame.
#
# Revision 1.5  1993/09/03  15:48:04  rich
# glob for .tar.gz, .tar.z and .tar.Z looking for archives
#
# Revision 1.4  1993/08/28  15:53:59  rich
# added version and date info to lower text window.
#
# Revision 1.3  1993/08/28  15:47:12  rich
# filtered out ^Ls in pkg_* output.
#
@


1.7.44.1
log
@Switch importer
@
text
@d2 1
a2 1
#$FreeBSD: stable/7/usr.sbin/pkg_install/tkpkg 50580 1999-08-29 15:54:49Z peter $
@


1.7.34.1
log
@Switch importer
@
text
@d2 1
a2 1
#$FreeBSD: stable/6/usr.sbin/pkg_install/tkpkg 50580 1999-08-29 15:54:49Z peter $
@


1.7.2.1
log
@Switch importer
@
text
@d2 1
a2 1
#$FreeBSD: stable/4/usr.sbin/pkg_install/tkpkg 50580 1999-08-29 15:54:49Z peter $
@


1.7.60.1
log
@SVN rev 216618 on 2010-12-21 17:10:29Z by kensmith

Copy stable/7 to releng/7.4 in preparation for FreeBSD-7.4 release.

Approved by:	re (implicit)
@
text
@d2 1
a2 1
#$FreeBSD$
@


1.7.60.2
log
@Switch importer
@
text
@d2 1
a2 1
#$FreeBSD: releng/7.4/usr.sbin/pkg_install/tkpkg 50580 1999-08-29 15:54:49Z peter $
@


1.7.58.1
log
@SVN rev 203736 on 2010-02-10 00:26:20Z by kensmith

Copy stable/7 to releng/7.3 as part of the 7.3-RELEASE process.

Approved by:	re (implicit)
@
text
@d2 1
a2 1
#$FreeBSD$
@


1.7.56.1
log
@SVN rev 196045 on 2009-08-03 08:13:06Z by kensmith

Copy head to stable/8 as part of 8.0 Release cycle.

Approved by:	re (Implicit)
@
text
@d2 1
a2 1
#$FreeBSD$
@


1.7.56.2
log
@## SVN ##
## SVN ## Exported commit - http://svnweb.freebsd.org/changeset/base/ 242909
## SVN ## CVS IS DEPRECATED: http://wiki.freebsd.org/CvsIsDeprecated
## SVN ##
## SVN ## ------------------------------------------------------------------------
## SVN ## r242909 | dim | 2012-11-12 07:47:19 +0000 (Mon, 12 Nov 2012) | 20 lines
## SVN ##
## SVN ## MFC r242625:
## SVN ##
## SVN ## Remove duplicate const specifiers in many drivers (I hope I got all of
## SVN ## them, please let me know if not).  Most of these are of the form:
## SVN ##
## SVN ## static const struct bzzt_type {
## SVN ##       [...list of members...]
## SVN ## } const bzzt_devs[] = {
## SVN ##       [...list of initializers...]
## SVN ## };
## SVN ##
## SVN ## The second const is unnecessary, as arrays cannot be modified anyway,
## SVN ## and if the elements are const, the whole thing is const automatically
## SVN ## (e.g. it is placed in .rodata).
## SVN ##
## SVN ## I have verified this does not change the binary output of a full kernel
## SVN ## build (except for build timestamps embedded in the object files).
## SVN ##
## SVN ## Reviewed by:	yongari, marius
## SVN ##
## SVN ## ------------------------------------------------------------------------
## SVN ##
@
text
@d2 1
a2 1
#$FreeBSD: stable/8/usr.sbin/pkg_install/tkpkg 50580 1999-08-29 15:54:49Z peter $
@


1.7.56.1.8.1
log
@SVN rev 232438 on 2012-03-03 06:15:13Z by kensmith

Copy stable/8 to releng/8.3 as part of 8.3-RELEASE release cycle.

Approved by:	re (implicit)
@
text
@@


1.7.56.1.8.2
log
@Switch importer
@
text
@d2 1
a2 1
#$FreeBSD: releng/8.3/usr.sbin/pkg_install/tkpkg 50580 1999-08-29 15:54:49Z peter $
@


1.7.56.1.6.1
log
@SVN rev 216617 on 2010-12-21 17:09:25Z by kensmith

Copy stable/8 to releng/8.2 in preparation for FreeBSD-8.2 release.

Approved by:	re (implicit)
@
text
@@


1.7.56.1.4.1
log
@SVN rev 209145 on 2010-06-14 02:09:06Z by kensmith

Copy stable/8 to releng/8.1 in preparation for 8.1-RC1.

Approved by:	re (implicit)
@
text
@@


1.7.56.1.2.1
log
@SVN rev 198460 on 2009-10-25 01:10:29Z by kensmith

Copy stable/8 to releng/8.0 as part of 8.0-RELEASE release procedure.

Approved by:	re (implicit)
@
text
@@


1.7.54.1
log
@SVN rev 191087 on 2009-04-15 03:14:26Z by kensmith

Create releng/7.2 from stable/7 in preparation for 7.2-RELEASE.

Approved by:	re (implicit)
@
text
@d2 1
a2 1
#$FreeBSD$
@


1.7.52.1
log
@SVN rev 185281 on 2008-11-25 02:59:29Z by kensmith

Create releng/7.1 in preparation for moving into RC phase of 7.1 release
cycle.

Approved by:	re (implicit)
@
text
@d2 1
a2 1
#$FreeBSD$
@


1.7.50.1
log
@SVN rev 183531 on 2008-10-02 02:57:24Z by kensmith

Create releng/6.4 from stable/6 in preparation for 6.4-RC1.

Approved by:	re (implicit)
@
text
@d2 1
a2 1
#$FreeBSD$
@


1.6
log
@$Header$ -> $FreeBSD$
@
text
@d2 1
a2 1
#$FreeBSD: src/usr.sbin/pkg_install/tkpkg,v 1.5 1999/08/28 01:17:54 peter Exp $
a4 15
#Revision 1.5  1999/08/28 01:17:54  peter
#$Id$ -> $FreeBSD$
#
#Revision 1.4  1997/02/22 16:09:13  peter
#Revert $FreeBSD: src/usr.sbin/pkg_install/tkpkg,v 1.5 1999/08/28 01:17:54 peter Exp $ to $FreeBSD$
#
#Revision 1.3  1997/01/14 07:14:23  jkh
#Make the long-awaited change from $FreeBSD: src/usr.sbin/pkg_install/tkpkg,v 1.5 1999/08/28 01:17:54 peter Exp $
#
#This will make a number of things easier in the future, as well as (finally!)
#avoiding the Id-smashing problem which has plagued developers for so long.
#
#Boy, I'm glad we're not using sup anymore.  This update would have been
#insane otherwise.
#
@


1.5
log
@$Id$ -> $FreeBSD$
@
text
@d2 1
a2 1
#$FreeBSD$
d5 3
d9 1
a9 1
#Revert $FreeBSD$ to $Id$
d12 1
a12 1
#Make the long-awaited change from $FreeBSD$
@


1.4
log
@Revert $FreeBSD$ to $Id$
@
text
@d2 1
a2 1
#$Id$
d5 3
d9 1
a9 1
#Make the long-awaited change from $Id$ to $Id$
@


1.4.2.1
log
@$Id$ -> $FreeBSD$
@
text
@d2 1
a2 1
#$FreeBSD$
a4 3
#Revision 1.4  1997/02/22 16:09:13  peter
#Revert $FreeBSD$ to $Id$
#
d6 1
a6 1
#Make the long-awaited change from $FreeBSD$
@


1.3
log
@Make the long-awaited change from $Id$ to $FreeBSD$

This will make a number of things easier in the future, as well as (finally!)
avoiding the Id-smashing problem which has plagued developers for so long.

Boy, I'm glad we're not using sup anymore.  This update would have been
insane otherwise.
@
text
@d2 1
a2 1
#$FreeBSD$
d5 9
@


1.2
log
@Many of John T. Kohl's patches from NetBSD.  Thanks, John!
Submitted by:	jkohl
@
text
@d2 1
a2 1
#$Id: tkpkg,v 1.1 1994/01/06 08:16:20 jkh Exp $
d5 4
@


1.2.4.1
log
@$Id$ -> $FreeBSD$
@
text
@d2 1
a2 1
#$FreeBSD$
@


1.2.6.1
log
@YAMFC
@
text
@d2 1
a2 1
#$Id: tkpkg,v 1.2 1994/12/06 00:51:21 jkh Exp $
a4 4
# Revision 1.2  1994/12/06  00:51:21  jkh
# Many of John T. Kohl's patches from NetBSD.  Thanks, John!
# Submitted by:	jkohl
#
@


1.2.6.2
log
@$Id$ -> $FreeBSD$
@
text
@d2 1
a2 1
#$FreeBSD$
a4 3
#Revision 1.2.6.1  1996/11/28 08:27:59  phk
#YAMFC
#
@


1.1
log
@Cleaning house.
@
text
@d2 5
a6 1
#$Id: pkg,v 1.1 1993/09/04 17:06:09 jkh Exp $
a7 1
#$Log: pkg,v $
d47 1
a47 1
.f.t insert end "Double click on a package above to see it's
d70 1
a70 1
   -command "global pkgname; apply_to_pkg \"pkg_info -d -v |tr -d ''\""
d87 1
a87 1
  set f [eval "open {| csh -c \"$s\" } r"]
d97 1
a97 1
if {$pkgname == ""} {
d128 1
a128 1
    -text "You can install, deinstall and list info on the available packages.  To select a package and see it's complete description, press mouse button 1 over the package name.  To install a selected package, press the Install button.  To exit, press the \"Quit\" button."
d135 6
d146 4
d151 2
a152 2
    .f.t insert end "Running: $s $pkgname\n"
    set f [eval "open {| $s $pkgname} r"]
a155 1
  }
@
