equal
deleted
inserted
replaced
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 ('shutdown', true) |
139 if tkbdn[KeyNameToCode('q')] = 1 then ParseCommand ('halt', true) |
140 else if tkbdn[KeyNameToCode('w')] = 1 then ParseCommand ('forcequit', true); |
140 else if tkbdn[KeyNameToCode('w')] = 1 then ParseCommand ('forcequit', true); |
141 end; |
141 end; |
142 |
142 |
143 // now process strokes |
143 // now process strokes |
144 for i:= 0 to cKeyMaxIndex do |
144 for i:= 0 to cKeyMaxIndex do |