OLD | NEW |
1 # A Tk console widget for SQLite. Invoke sqlitecon::create with a window name, | 1 # A Tk console widget for SQLite. Invoke sqlitecon::create with a window name, |
2 # a prompt string, a title to set a new top-level window, and the SQLite | 2 # a prompt string, a title to set a new top-level window, and the SQLite |
3 # database handle. For example: | 3 # database handle. For example: |
4 # | 4 # |
5 # sqlitecon::create .sqlcon {sql:- } {SQL Console} db | 5 # sqlitecon::create .sqlcon {sql:- } {SQL Console} db |
6 # | 6 # |
7 # A toplevel window is created that allows you to type in SQL commands to | 7 # A toplevel window is created that allows you to type in SQL commands to |
8 # be processed on the spot. | 8 # be processed on the spot. |
9 # | 9 # |
10 # A limited set of dot-commands are supported: | 10 # A limited set of dot-commands are supported: |
(...skipping 659 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
670 vwait ::$w | 670 vwait ::$w |
671 | 671 |
672 if {[set ::$w]} { | 672 if {[set ::$w]} { |
673 set txt [string trimright [$w.t get 1.0 end]] | 673 set txt [string trimright [$w.t get 1.0 end]] |
674 } else { | 674 } else { |
675 set txt $origtxt | 675 set txt $origtxt |
676 } | 676 } |
677 destroy $w | 677 destroy $w |
678 return $txt | 678 return $txt |
679 } | 679 } |
OLD | NEW |