1941-docker-image-to-testdevel
| Line | |
|---|
| 1 | package require Tk |
|---|
| 2 | package require BWidget |
|---|
| 3 | package require msgcat |
|---|
| 4 | package require snit |
|---|
| 5 | |
|---|
| 6 | Bitmap::use |
|---|
| 7 | |
|---|
| 8 | set byswidget_path [file join [file dir [info script]] ..] |
|---|
| 9 | |
|---|
| 10 | set dir_imgs [file normalize [file join $byswidget_path images]] |
|---|
| 11 | if {[lsearch -exact $Bitmap::path $dir_imgs] == -1} { |
|---|
| 12 | lappend ::Bitmap::path $dir_imgs |
|---|
| 13 | #Text manager: |
|---|
| 14 | catch {[namespace import msgcat::*]} |
|---|
| 15 | #::msgcat::mclocale es |
|---|
| 16 | ::msgcat::mcload [file join $byswidget_path msgs] |
|---|
| 17 | } |
|---|
| 18 | |
|---|
| 19 | |
|---|
| 20 | |
|---|
| 21 | |
|---|
| 22 | package provide byscommon 1.0 |
|---|
Note: See
TracBrowser
for help on using the repository browser.
