equal
deleted
inserted
replaced
127 inc(k, 1); |
127 inc(k, 1); |
128 end; |
128 end; |
129 end; |
129 end; |
130 {$ENDIF} |
130 {$ENDIF} |
131 |
131 |
132 // ctrl/cmd + w/q to close engine and/or frontend |
132 // ctrl/cmd + q to close engine and frontend |
133 {$IFDEF DARWIN} |
133 {$IFDEF DARWIN} |
134 if ((tkbdn[KeyNameToCode('left_meta')] = 1) or (tkbdn[KeyNameToCode('right_meta')] = 1)) then |
134 if ((tkbdn[KeyNameToCode('left_meta')] = 1) or (tkbdn[KeyNameToCode('right_meta')] = 1)) then |
135 {$ELSE} |
135 {$ELSE} |
136 if ((tkbdn[KeyNameToCode('left_ctrl')] = 1) or (tkbdn[KeyNameToCode('right_ctrl')] = 1)) then |
136 if ((tkbdn[KeyNameToCode('left_ctrl')] = 1) or (tkbdn[KeyNameToCode('right_ctrl')] = 1)) then |
137 {$ENDIF} |
137 {$ENDIF} |
138 begin |
138 begin |
139 if tkbdn[KeyNameToCode('q')] = 1 then ParseCommand ('halt', true) |
139 if tkbdn[KeyNameToCode('q')] = 1 then ParseCommand ('halt', true) |
140 else if tkbdn[KeyNameToCode('w')] = 1 then ParseCommand ('forcequit', true); |
|
141 end; |
140 end; |
142 |
141 |
143 // now process strokes |
142 // now process strokes |
144 for i:= 0 to cKeyMaxIndex do |
143 for i:= 0 to cKeyMaxIndex do |
145 if CurrentBinds[i][0] <> #0 then |
144 if CurrentBinds[i][0] <> #0 then |