Browse Source
* maint: Document ls-files --with-tree=<tree-ish> git-commit: partial commit of paths only removed from the index git-commit: Allow partial commit of file removal. send-email: make message-id generation a bit more robust git-gui: Disable native platform text selection in "lists" git-gui: Paper bag fix "Commit->Revert" format arguments git-gui: Provide 'uninstall' Makefile target to undo an installation git-gui: Font chooser to handle a large number of font families git-gui: Make backporting changes from i18n version easier git-gui: Don't delete send on Windows as it doesn't exist git-gui: Trim trailing slashes from untracked submodule names git-gui: Assume untracked directories are Git submodules git-gui: handle "deleted symlink" diff marker git-gui: show unstaged symlinks in diff viewer git-gui: Avoid use of libdir in Makefile git-gui: Disable Tk send in all git-gui sessions git-gui: lib/index.tcl: handle files with % in the filename properly git-gui: Properly set the state of "Stage/Unstage Hunk" action git-gui: Fix detaching current branch during checkout git-gui: Correct starting of git-remote to handle -w optionmaint
Junio C Hamano
18 years ago
9 changed files with 304 additions and 49 deletions
@ -0,0 +1,166 @@
@@ -0,0 +1,166 @@
|
||||
# git-gui font chooser |
||||
# Copyright (C) 2007 Shawn Pearce |
||||
|
||||
class choose_font { |
||||
|
||||
field w |
||||
field w_family ; # UI widget of all known family names |
||||
field w_example ; # Example to showcase the chosen font |
||||
|
||||
field f_family ; # Currently chosen family name |
||||
field f_size ; # Currently chosen point size |
||||
|
||||
field v_family ; # Name of global variable for family |
||||
field v_size ; # Name of global variable for size |
||||
|
||||
variable all_families [list] ; # All fonts known to Tk |
||||
|
||||
constructor pick {path title a_family a_size} { |
||||
variable all_families |
||||
|
||||
set v_family $a_family |
||||
set v_size $a_size |
||||
|
||||
upvar #0 $v_family pv_family |
||||
upvar #0 $v_size pv_size |
||||
|
||||
set f_family $pv_family |
||||
set f_size $pv_size |
||||
|
||||
make_toplevel top w |
||||
wm title $top "[appname] ([reponame]): $title" |
||||
wm geometry $top "+[winfo rootx $path]+[winfo rooty $path]" |
||||
|
||||
label $w.header -text $title -font font_uibold |
||||
pack $w.header -side top -fill x |
||||
|
||||
frame $w.buttons |
||||
button $w.buttons.select \ |
||||
-text [mc Select] \ |
||||
-default active \ |
||||
-command [cb _select] |
||||
button $w.buttons.cancel \ |
||||
-text [mc Cancel] \ |
||||
-command [list destroy $w] |
||||
pack $w.buttons.select -side right |
||||
pack $w.buttons.cancel -side right -padx 5 |
||||
pack $w.buttons -side bottom -fill x -pady 10 -padx 10 |
||||
|
||||
frame $w.inner |
||||
|
||||
frame $w.inner.family |
||||
label $w.inner.family.l \ |
||||
-text [mc "Font Family"] \ |
||||
-anchor w |
||||
set w_family $w.inner.family.v |
||||
text $w_family \ |
||||
-background white \ |
||||
-borderwidth 1 \ |
||||
-relief sunken \ |
||||
-cursor $::cursor_ptr \ |
||||
-wrap none \ |
||||
-width 30 \ |
||||
-height 10 \ |
||||
-yscrollcommand [list $w.inner.family.sby set] |
||||
rmsel_tag $w_family |
||||
scrollbar $w.inner.family.sby -command [list $w_family yview] |
||||
pack $w.inner.family.l -side top -fill x |
||||
pack $w.inner.family.sby -side right -fill y |
||||
pack $w_family -fill both -expand 1 |
||||
|
||||
frame $w.inner.size |
||||
label $w.inner.size.l \ |
||||
-text [mc "Font Size"] \ |
||||
-anchor w |
||||
spinbox $w.inner.size.v \ |
||||
-textvariable @f_size \ |
||||
-from 2 -to 80 -increment 1 \ |
||||
-width 3 |
||||
bind $w.inner.size.v <FocusIn> {%W selection range 0 end} |
||||
pack $w.inner.size.l -fill x -side top |
||||
pack $w.inner.size.v -fill x -padx 2 |
||||
|
||||
grid configure $w.inner.family $w.inner.size -sticky nsew |
||||
grid rowconfigure $w.inner 0 -weight 1 |
||||
grid columnconfigure $w.inner 0 -weight 1 |
||||
pack $w.inner -fill both -expand 1 -padx 5 -pady 5 |
||||
|
||||
frame $w.example |
||||
label $w.example.l \ |
||||
-text [mc "Font Example"] \ |
||||
-anchor w |
||||
set w_example $w.example.t |
||||
text $w_example \ |
||||
-background white \ |
||||
-borderwidth 1 \ |
||||
-relief sunken \ |
||||
-height 3 \ |
||||
-width 40 |
||||
rmsel_tag $w_example |
||||
$w_example tag conf example -justify center |
||||
$w_example insert end [mc "This is example text.\nIf you like this text, it can be your font."] example |
||||
$w_example conf -state disabled |
||||
pack $w.example.l -fill x |
||||
pack $w_example -fill x |
||||
pack $w.example -fill x -padx 5 |
||||
|
||||
if {$all_families eq {}} { |
||||
set all_families [lsort [font families]] |
||||
} |
||||
|
||||
$w_family tag conf pick |
||||
$w_family tag bind pick <Button-1> [cb _pick_family %x %y]\;break |
||||
foreach f $all_families { |
||||
set sel [list pick] |
||||
if {$f eq $f_family} { |
||||
lappend sel in_sel |
||||
} |
||||
$w_family insert end "$f\n" $sel |
||||
} |
||||
$w_family conf -state disabled |
||||
_update $this |
||||
|
||||
trace add variable @f_size write [cb _update] |
||||
bind $w <Key-Escape> [list destroy $w] |
||||
bind $w <Key-Return> [cb _select]\;break |
||||
bind $w <Visibility> " |
||||
grab $w |
||||
focus $w |
||||
" |
||||
tkwait window $w |
||||
} |
||||
|
||||
method _select {} { |
||||
upvar #0 $v_family pv_family |
||||
upvar #0 $v_size pv_size |
||||
|
||||
set pv_family $f_family |
||||
set pv_size $f_size |
||||
|
||||
destroy $w |
||||
} |
||||
|
||||
method _pick_family {x y} { |
||||
variable all_families |
||||
|
||||
set i [lindex [split [$w_family index @$x,$y] .] 0] |
||||
set n [lindex $all_families [expr {$i - 1}]] |
||||
if {$n ne {}} { |
||||
$w_family tag remove in_sel 0.0 end |
||||
$w_family tag add in_sel $i.0 [expr {$i + 1}].0 |
||||
set f_family $n |
||||
_update $this |
||||
} |
||||
} |
||||
|
||||
method _update {args} { |
||||
variable all_families |
||||
|
||||
set i [lsearch -exact $all_families $f_family] |
||||
if {$i < 0} return |
||||
|
||||
$w_example tag conf example -font [list $f_family $f_size] |
||||
$w_family see [expr {$i + 1}].0 |
||||
} |
||||
|
||||
} |
||||
Loading…
Reference in new issue