Class: ArcadiaSh
- Inherits:
-
TkToplevel
- Object
- TkToplevel
- ArcadiaSh
- Defined in:
- lib/a-core.rb
Instance Attribute Summary collapse
-
#result ⇒ Object
readonly
Returns the value of attribute result.
-
#wait ⇒ Object
readonly
Returns the value of attribute wait.
Instance Method Summary collapse
- #exec(_cmd) ⇒ Object
- #exec_buffer ⇒ Object
- #exec_prompt(_cmd) ⇒ Object
-
#initialize ⇒ ArcadiaSh
constructor
A new instance of ArcadiaSh.
- #input(_char) ⇒ Object
- #out(_str, *tags) ⇒ Object
- #prepare_exec(_cmd) ⇒ Object
- #prompt ⇒ Object
Constructor Details
#initialize ⇒ ArcadiaSh
Returns a new instance of ArcadiaSh.
1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 |
# File 'lib/a-core.rb', line 1287 def initialize super title 'ArcadiaSh' geometry = '800x200+10+10' geometry(geometry) @text = TkScrollText.new(self, Arcadia.style('text')){ wrap 'none' undo true insertofftime 200 insertontime 200 highlightthickness 0 insertbackground #000000 insertwidth 6 } @text.set_focus @text.tag_configure('error', 'foreground' => '#d93421') @text.tag_configure('response', 'foreground' => '#2c51d9') @text.show @text.show_v_scroll @text.show_h_scroll #@input_buffer = '' @wait = true @result = false prompt @text.bind_append("KeyPress"){|e| input(e.keysym)} end |
Instance Attribute Details
#result ⇒ Object (readonly)
Returns the value of attribute result.
1286 1287 1288 |
# File 'lib/a-core.rb', line 1286 def result @result end |
#wait ⇒ Object (readonly)
Returns the value of attribute wait.
1286 1287 1288 |
# File 'lib/a-core.rb', line 1286 def wait @wait end |
Instance Method Details
#exec(_cmd) ⇒ Object
1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 |
# File 'lib/a-core.rb', line 1365 def exec(_cmd) return if _cmd.nil? || _cmd.length ==0 @b_exec.destroy if defined?(@b_exec) out("submitted...\n") case _cmd when 'clear' @text.delete('0.0','end') else begin if RUBY_PLATFORM =~ /mingw|mswin/ p = IO::popen("#{_cmd} 2>&1") out(p.read, 'response') @result = true else require "open3" Open3.popen3("#{_cmd}"){|stdin, stdout, stderr| stdout.each do |line| out(line,'response') @result = true end stderr.each do |line| out(line,'error') @result = false end } end rescue Exception => e out("#{e.}\n",'error') @result = false end end @b_exit.destroy if defined?(@b_exit) prompt @text.see('end') end |
#exec_buffer ⇒ Object
1314 1315 1316 1317 1318 1319 |
# File 'lib/a-core.rb', line 1314 def exec_buffer @text.set_insert("end") input_buffer = @text.get(@index_cmd_begin,"insert") out("\n") exec(input_buffer) end |
#exec_prompt(_cmd) ⇒ Object
1355 1356 1357 1358 |
# File 'lib/a-core.rb', line 1355 def exec_prompt(_cmd) out("#{_cmd}\n") exec(_cmd) end |
#input(_char) ⇒ Object
1321 1322 1323 1324 1325 1326 1327 |
# File 'lib/a-core.rb', line 1321 def input(_char) case _char when 'Return' Thread.new{exec_buffer} Tk.callback_break end end |
#out(_str, *tags) ⇒ Object
1402 1403 1404 |
# File 'lib/a-core.rb', line 1402 def out(_str,*) @text.insert('end',_str,*) end |
#prepare_exec(_cmd) ⇒ Object
1360 1361 1362 1363 |
# File 'lib/a-core.rb', line 1360 def prepare_exec(_cmd) #@input_buffer=_cmd out("#{_cmd}") end |
#prompt ⇒ Object
1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 |
# File 'lib/a-core.rb', line 1329 def prompt @b_exit = TkButton.new(@text, 'command'=>proc{@wait=false}, 'text'=>'Exit', 'padx'=>0, 'pady'=>0, 'width'=>5, 'foreground' => 'white', 'background' => '#d92328', 'relief'=>'flat') TkTextWindow.new(@text, "end", 'window'=> @b_exit) @b_exec = TkButton.new(@text, 'command'=>proc{Thread.new{exec_buffer}}, 'text'=>'Exec', 'padx'=>0, 'pady'=>0, 'width'=>5, 'foreground' => 'white', 'background' => '#1ba626', 'relief'=>'flat') TkTextWindow.new(@text, "end", 'window'=> @b_exec) out("\n") out(">>> ") @index_cmd_begin = @text.index('insert') end |