| 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 |