Skip to content

Commit

Permalink
git-gui: Focus insertion point at end of strings in repository chooser
Browse files Browse the repository at this point in the history
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>
  • Loading branch information
Shawn O. Pearce committed Feb 22, 2008
1 parent df4ec4c commit 3baee1f
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions lib/choose_repository.tcl
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -416,6 +418,7 @@ method _new_local_path {} {
return
}
set local_path $p
$w_localpath icursor end
}

method _do_new2 {} {
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit 3baee1f

Please sign in to comment.