1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#
# Copyright (c) Medical Research Council, Laboratory of Molecular Biology,
# 1995. All rights reserved.
#
# This file is part of the Staden Package. See the Staden Package copyright
# notice for information on the restrictions for usage and distribution, and
# for a disclaimer of all warranties.
#
##############################################################################
#put the current directory path in the Selection entry
proc ClearSel { path } {
entrybox_delete $path 0 end
entrybox_focus $path
}
#end ClearSel
|
