]>
Commit | Line | Data |
---|---|---|
f522c9b5 SP |
1 | # git-gui console support |
2 | # Copyright (C) 2006, 2007 Shawn Pearce | |
3 | ||
c74b6c66 SP |
4 | class console { |
5 | ||
6 | field t_short | |
7 | field t_long | |
8 | field w | |
fbc8a93c | 9 | field w_t |
c74b6c66 | 10 | field console_cr |
ba1964be | 11 | field is_toplevel 1; # are we our own window? |
c74b6c66 SP |
12 | |
13 | constructor new {short_title long_title} { | |
14 | set t_short $short_title | |
15 | set t_long $long_title | |
16 | _init $this | |
17 | return $this | |
f522c9b5 SP |
18 | } |
19 | ||
ba1964be SP |
20 | constructor embed {path title} { |
21 | set t_short {} | |
22 | set t_long $title | |
23 | set w $path | |
24 | set is_toplevel 0 | |
25 | _init $this | |
26 | return $this | |
27 | } | |
28 | ||
c74b6c66 | 29 | method _init {} { |
c80d7be5 | 30 | global M1B use_ttk NS |
ba1964be SP |
31 | |
32 | if {$is_toplevel} { | |
c80d7be5 | 33 | make_dialog top w -autodelete 0 |
ba1964be SP |
34 | wm title $top "[appname] ([reponame]): $t_short" |
35 | } else { | |
c80d7be5 | 36 | ${NS}::frame $w |
ba1964be SP |
37 | } |
38 | ||
c74b6c66 | 39 | set console_cr 1.0 |
fbc8a93c | 40 | set w_t $w.m.t |
f522c9b5 | 41 | |
c80d7be5 PT |
42 | ${NS}::frame $w.m |
43 | ${NS}::label $w.m.l1 \ | |
c74b6c66 | 44 | -textvariable @t_long \ |
f522c9b5 SP |
45 | -anchor w \ |
46 | -justify left \ | |
47 | -font font_uibold | |
fbc8a93c | 48 | text $w_t \ |
c382fdd7 PH |
49 | -background white \ |
50 | -foreground black \ | |
51 | -borderwidth 1 \ | |
f522c9b5 SP |
52 | -relief sunken \ |
53 | -width 80 -height 10 \ | |
e87fb0f1 | 54 | -wrap none \ |
f522c9b5 SP |
55 | -font font_diff \ |
56 | -state disabled \ | |
fbc8a93c SP |
57 | -xscrollcommand [cb _sb_set $w.m.sbx h] \ |
58 | -yscrollcommand [cb _sb_set $w.m.sby v] | |
1ac17950 | 59 | label $w.m.s -text [mc "Working... please wait..."] \ |
f522c9b5 SP |
60 | -anchor w \ |
61 | -justify left \ | |
62 | -font font_uibold | |
f522c9b5 SP |
63 | pack $w.m.l1 -side top -fill x |
64 | pack $w.m.s -side bottom -fill x | |
fbc8a93c | 65 | pack $w_t -side left -fill both -expand 1 |
f522c9b5 SP |
66 | pack $w.m -side top -fill both -expand 1 -padx 5 -pady 10 |
67 | ||
68 | menu $w.ctxm -tearoff 0 | |
1ac17950 | 69 | $w.ctxm add command -label [mc "Copy"] \ |
fbc8a93c | 70 | -command "tk_textCopy $w_t" |
1ac17950 | 71 | $w.ctxm add command -label [mc "Select All"] \ |
fbc8a93c | 72 | -command "focus $w_t;$w_t tag add sel 0.0 end" |
1ac17950 | 73 | $w.ctxm add command -label [mc "Copy All"] \ |
f522c9b5 | 74 | -command " |
fbc8a93c SP |
75 | $w_t tag add sel 0.0 end |
76 | tk_textCopy $w_t | |
77 | $w_t tag remove sel 0.0 end | |
f522c9b5 SP |
78 | " |
79 | ||
ba1964be | 80 | if {$is_toplevel} { |
c80d7be5 | 81 | ${NS}::button $w.ok -text [mc "Close"] \ |
ba1964be SP |
82 | -state disabled \ |
83 | -command [list destroy $w] | |
84 | pack $w.ok -side bottom -anchor e -pady 10 -padx 10 | |
85 | bind $w <Visibility> [list focus $w] | |
86 | } | |
f522c9b5 | 87 | |
fbc8a93c SP |
88 | bind_button3 $w_t "tk_popup $w.ctxm %X %Y" |
89 | bind $w_t <$M1B-Key-a> "$w_t tag add sel 0.0 end;break" | |
90 | bind $w_t <$M1B-Key-A> "$w_t tag add sel 0.0 end;break" | |
f522c9b5 SP |
91 | } |
92 | ||
c74b6c66 | 93 | method exec {cmd {after {}}} { |
74c4763c SP |
94 | if {[lindex $cmd 0] eq {git}} { |
95 | set fd_f [eval git_read --stderr [lrange $cmd 1 end]] | |
96 | } else { | |
97 | lappend cmd 2>@1 | |
98 | set fd_f [_open_stdout_stderr $cmd] | |
f522c9b5 | 99 | } |
f522c9b5 | 100 | fconfigure $fd_f -blocking 0 -translation binary |
c74b6c66 | 101 | fileevent $fd_f readable [cb _read $fd_f $after] |
f522c9b5 SP |
102 | } |
103 | ||
c74b6c66 | 104 | method _read {fd after} { |
f522c9b5 SP |
105 | set buf [read $fd] |
106 | if {$buf ne {}} { | |
fbc8a93c SP |
107 | if {![winfo exists $w_t]} {_init $this} |
108 | $w_t conf -state normal | |
f522c9b5 SP |
109 | set c 0 |
110 | set n [string length $buf] | |
111 | while {$c < $n} { | |
112 | set cr [string first "\r" $buf $c] | |
113 | set lf [string first "\n" $buf $c] | |
114 | if {$cr < 0} {set cr [expr {$n + 1}]} | |
115 | if {$lf < 0} {set lf [expr {$n + 1}]} | |
116 | ||
117 | if {$lf < $cr} { | |
fbc8a93c SP |
118 | $w_t insert end [string range $buf $c $lf] |
119 | set console_cr [$w_t index {end -1c}] | |
f522c9b5 SP |
120 | set c $lf |
121 | incr c | |
122 | } else { | |
fbc8a93c SP |
123 | $w_t delete $console_cr end |
124 | $w_t insert end "\n" | |
c9dcc7f8 | 125 | $w_t insert end [string range $buf $c [expr {$cr - 1}]] |
f522c9b5 SP |
126 | set c $cr |
127 | incr c | |
128 | } | |
129 | } | |
fbc8a93c SP |
130 | $w_t conf -state disabled |
131 | $w_t see end | |
f522c9b5 SP |
132 | } |
133 | ||
134 | fconfigure $fd -blocking 1 | |
135 | if {[eof $fd]} { | |
136 | if {[catch {close $fd}]} { | |
137 | set ok 0 | |
138 | } else { | |
139 | set ok 1 | |
140 | } | |
a35d65d9 | 141 | if {$after ne {}} { |
c74b6c66 | 142 | uplevel #0 $after $ok |
a35d65d9 | 143 | } else { |
c74b6c66 | 144 | done $this $ok |
a35d65d9 | 145 | } |
f522c9b5 SP |
146 | return |
147 | } | |
148 | fconfigure $fd -blocking 0 | |
149 | } | |
150 | ||
c74b6c66 | 151 | method chain {cmdlist {ok 1}} { |
f522c9b5 SP |
152 | if {$ok} { |
153 | if {[llength $cmdlist] == 0} { | |
c74b6c66 | 154 | done $this $ok |
f522c9b5 SP |
155 | return |
156 | } | |
157 | ||
158 | set cmd [lindex $cmdlist 0] | |
159 | set cmdlist [lrange $cmdlist 1 end] | |
160 | ||
a35d65d9 | 161 | if {[lindex $cmd 0] eq {exec}} { |
c74b6c66 SP |
162 | exec $this \ |
163 | [lrange $cmd 1 end] \ | |
164 | [cb chain $cmdlist] | |
f522c9b5 | 165 | } else { |
c74b6c66 | 166 | uplevel #0 $cmd [cb chain $cmdlist] |
f522c9b5 SP |
167 | } |
168 | } else { | |
c74b6c66 | 169 | done $this $ok |
f522c9b5 SP |
170 | } |
171 | } | |
172 | ||
d41b43eb | 173 | method insert {txt} { |
fbc8a93c SP |
174 | if {![winfo exists $w_t]} {_init $this} |
175 | $w_t conf -state normal | |
176 | $w_t insert end "$txt\n" | |
177 | set console_cr [$w_t index {end -1c}] | |
178 | $w_t conf -state disabled | |
d41b43eb SP |
179 | } |
180 | ||
c74b6c66 | 181 | method done {ok} { |
f522c9b5 | 182 | if {$ok} { |
c74b6c66 | 183 | if {[winfo exists $w.m.s]} { |
6f2d73ec | 184 | bind $w.m.s <Destroy> [list delete_this $this] |
c382fdd7 PH |
185 | $w.m.s conf -background green -foreground black \ |
186 | -text [mc "Success"] | |
ba1964be SP |
187 | if {$is_toplevel} { |
188 | $w.ok conf -state normal | |
189 | focus $w.ok | |
190 | } | |
6f2d73ec SP |
191 | } else { |
192 | delete_this | |
f522c9b5 SP |
193 | } |
194 | } else { | |
c74b6c66 SP |
195 | if {![winfo exists $w.m.s]} { |
196 | _init $this | |
f522c9b5 | 197 | } |
6f2d73ec | 198 | bind $w.m.s <Destroy> [list delete_this $this] |
c382fdd7 PH |
199 | $w.m.s conf -background red -foreground black \ |
200 | -text [mc "Error: Command Failed"] | |
ba1964be SP |
201 | if {$is_toplevel} { |
202 | $w.ok conf -state normal | |
203 | focus $w.ok | |
204 | } | |
f522c9b5 | 205 | } |
f522c9b5 | 206 | } |
a35d65d9 | 207 | |
fbc8a93c | 208 | method _sb_set {sb orient first last} { |
c80d7be5 | 209 | global NS |
fbc8a93c | 210 | if {![winfo exists $sb]} { |
59213f60 | 211 | if {$first == $last || ($first == 0 && $last == 1)} return |
fbc8a93c | 212 | if {$orient eq {h}} { |
c80d7be5 | 213 | ${NS}::scrollbar $sb -orient h -command [list $w_t xview] |
fbc8a93c SP |
214 | pack $sb -fill x -side bottom -before $w_t |
215 | } else { | |
c80d7be5 | 216 | ${NS}::scrollbar $sb -orient v -command [list $w_t yview] |
fbc8a93c SP |
217 | pack $sb -fill y -side right -before $w_t |
218 | } | |
219 | } | |
59213f60 | 220 | $sb set $first $last |
fbc8a93c SP |
221 | } |
222 | ||
a35d65d9 | 223 | } |