Bwidget Source Code
Check-in [84fcfc5033]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Make loadable in save interpreter [Bug-4365a23bd3]
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA1: 84fcfc5033425e0be5307b1313f0dafdd28f4477
User & Date: oehhar 2013-06-21 17:35:01
Context
2013-06-21
17:52
Add combobox method getentry to get path of entry component [Patch-2340355] check-in: 38c05dab1f user: oehhar tags: bwidget
17:35
Make loadable in save interpreter [Bug-4365a23bd3] check-in: 84fcfc5033 user: oehhar tags: bwidget
17:21
Bug fixed changing Aqua menu color when changing window background [bug-a81b7afc1e] check-in: 18fa361145 user: oehhar tags: bwidget
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.

6
7
8
9
10
11
12



13
14
15
16
17
18
19
	* mainframe.tcl: Allow case sensitive accelerators
	by new option -casesensitive.
	Patch by cmard [Patch 1977644]
	
	* mainframe.tcl: When changing MainFrame -background, do
	not change menu colors on Aqua.
	Fix by K.J.Nash [Bug-a81b7afc1e]



	
2013-01-09 Harald Oehlmann <[email protected]>

	* widget.tcl: Bug fixed:
	Error 'invalid command name ".#BWidget.#ttk::entry"'
	arises in themed mode when an Entry widget should get
	focus by the tab key.






>
>
>







6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
	* mainframe.tcl: Allow case sensitive accelerators
	by new option -casesensitive.
	Patch by cmard [Patch 1977644]
	
	* mainframe.tcl: When changing MainFrame -background, do
	not change menu colors on Aqua.
	Fix by K.J.Nash [Bug-a81b7afc1e]
	
	* init.tcl: Make loadable in save interpreter.
	Fix by K.J.Nash [Bug-4365a23bd3]
	
2013-01-09 Harald Oehlmann <[email protected]>

	* widget.tcl: Bug fixed:
	Error 'invalid command name ".#BWidget.#ttk::entry"'
	arises in themed mode when an Entry widget should get
	focus by the tab key.

Changes to init.tcl.

27
28
29
30
31
32
33
34
35
36




37
38
39


40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
	}
    }
}
Widget::_opt_defaults

# Try to load lang file corresponding to current msgcat locale
proc Widget::_opt_lang {} {
    set langfile [file join $::BWIDGET::LIBRARY "lang" "en.rc"]
    if {0 != [llength [info commands ::msgcat::mcpreferences]]} {
        foreach lang [::msgcat::mcpreferences] {




            set l [file join $::BWIDGET::LIBRARY "lang" "$lang.rc"]
            if {[file readable $l]} {
                set langfile $l


                break
            }
        }
    }
    option read $langfile
}
Widget::_opt_lang

## Add a TraverseIn binding to standard Tk widgets to handle some of
## the BWidget-specific things we do.
bind Entry   <<TraverseIn>> { %W selection range 0 end; %W icursor end }
bind Spinbox <<TraverseIn>> { %W selection range 0 end; %W icursor end }

bind all <Key-Tab>       { Widget::traverseTo [Widget::focusNext %W] }
bind all <<PrevWindow>>  { Widget::traverseTo [Widget::focusPrev %W] }






<

|
>
>
>
>
|
<
<
>
>
|
|
|
<
<










27
28
29
30
31
32
33

34
35
36
37
38
39
40


41
42
43
44
45


46
47
48
49
50
51
52
53
54
55
	}
    }
}
Widget::_opt_defaults

# Try to load lang file corresponding to current msgcat locale
proc Widget::_opt_lang {} {

    if {0 != [llength [info commands ::msgcat::mcpreferences]]} {
        set langs [::msgcat::mcpreferences]
    }
    lappend langs en

    foreach lang $langs {
        set l [file join $::BWIDGET::LIBRARY "lang" "$lang.rc"]


        if {(![catch {file readable $l} result]) && ($result)} {
            option read $l
            break
        }
    }


}
Widget::_opt_lang

## Add a TraverseIn binding to standard Tk widgets to handle some of
## the BWidget-specific things we do.
bind Entry   <<TraverseIn>> { %W selection range 0 end; %W icursor end }
bind Spinbox <<TraverseIn>> { %W selection range 0 end; %W icursor end }

bind all <Key-Tab>       { Widget::traverseTo [Widget::focusNext %W] }
bind all <<PrevWindow>>  { Widget::traverseTo [Widget::focusPrev %W] }