diff options
| author | Shawn O. Pearce <spearce@spearce.org> | 2008-02-11 05:53:52 (GMT) |
|---|---|---|
| committer | Shawn O. Pearce <spearce@spearce.org> | 2008-02-22 06:39:36 (GMT) |
| commit | 3baee1f3bf8e30f0fc67bbb1a49877bf0660fd29 (patch) | |
| tree | b5fa0f148d687f24dc7f87507081b688fd4b4d10 /lib | |
| parent | df4ec4cf6f68d92d2fbf20e808722d242ab2b894 (diff) | |
| download | git-3baee1f3bf8e30f0fc67bbb1a49877bf0660fd29.zip git-3baee1f3bf8e30f0fc67bbb1a49877bf0660fd29.tar.gz git-3baee1f3bf8e30f0fc67bbb1a49877bf0660fd29.tar.bz2 | |
git-gui: Focus insertion point at end of strings in repository chooser
When selecting a local working directory for a new repository or a
location to clone an existing repository into we now set the insert
point at the end of the selected path, allowing the user to type in
any additional parts of the path if they so desire.
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/choose_repository.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/choose_repository.tcl b/lib/choose_repository.tcl index 86faf24..0adcf9d 100644 --- a/lib/choose_repository.tcl +++ b/lib/choose_repository.tcl @@ -11,6 +11,7 @@ field w_quit ; # Quit button field o_cons ; # Console object (if active) field w_types ; # List of type buttons in clone field w_recentlist ; # Listbox containing recent repositories +field w_localpath ; # Entry widget bound to local_path field done 0 ; # Finished picking the repository? field local_path {} ; # Where this repository is locally @@ -385,6 +386,7 @@ method _do_new {} { button $w_body.where.b \ -text [mc "Browse"] \ -command [cb _new_local_path] + set w_localpath $w_body.where.t pack $w_body.where.b -side right pack $w_body.where.l -side left @@ -416,6 +418,7 @@ method _new_local_path {} { return } set local_path $p + $w_localpath icursor end } method _do_new2 {} { @@ -481,6 +484,7 @@ method _do_clone {} { -text [mc "Browse"] \ -command [cb _new_local_path] grid $args.where_l $args.where_t $args.where_b -sticky ew + set w_localpath $args.where_t label $args.type_l -text [mc "Clone Type:"] frame $args.type_f |