Lines Matching +defs:BWidget +defs:focus
3 # This file is part of Unifix BWidget Toolkit
10 # - BWidget::assert
11 # - BWidget::clonename
12 # - BWidget::get3dcolor
13 # - BWidget::XLFDfont
14 # - BWidget::place
15 # - BWidget::grab
16 # - BWidget::focus
17 # - BWidget::bindMiddleMouseMovement
18 # - BWidget::getSystemFontProperties
19 # - BWidget::createSystemFonts
27 namespace eval BWidget {
69 # Command BWidget::lreorder
71 proc BWidget::lreorder { list neworder } {
99 # Command BWidget::assert
101 proc BWidget::assert { exp {msg ""}} {
114 # Command BWidget::clonename
116 proc BWidget::clonename { menu } {
135 # Command BWidget::getname
137 proc BWidget::getname { name } {
149 # Command BWidget::parsetext
151 proc BWidget::parsetext { text } {
179 # Command BWidget::get3dcolor
181 proc BWidget::get3dcolor { path bgcolor } {
198 # Command BWidget::XLFDfont
200 proc BWidget::XLFDfont { cmd args } {
234 # Command BWidget::place
249 proc BWidget::place { path w h args } {
280 return -code error "BWidget::place: bad number of argument"
288 return -code error [BWidget::badOptionString position $where $list]
297 return -code error "BWidget::place: incorrect position"
319 return -code error "BWidget::place: \"$widget\" does not exist"
416 # Command BWidget::grab
418 proc BWidget::grab { option path } {
452 # Command BWidget::focus
454 proc BWidget::focus { option path {refocus 1} } {
462 if {$refocus} {catch {::focus -force $oldf}}
467 lappend _fstack [::focus]
468 ::focus -force $path
472 # BWidget::refocus --
474 # Helper function used to redirect focus from a container frame in
475 # a megawidget to a component widget. Only redirects focus if
476 # focus is already on the container.
485 proc BWidget::refocus {container component} {
486 if { [string equal $container [::focus]] } {
487 ::focus $component
494 # BWidget::SetFocusGrab --
495 # swap out current focus and grab temporarily (for dialogs)
498 # focus window to give focus to
502 proc BWidget::SetFocusGrab {grab {focus {}}} {
504 set index "$grab,$focus"
506 lappend _focusGrab($index) [::focus]
515 if {[winfo exists $focus]} {
516 ::focus $focus
520 # BWidget::RestoreFocusGrab --
521 # restore old focus and grab (for dialogs)
524 # focus window that had taken focus
529 proc BWidget::RestoreFocusGrab {grab focus {destroy destroy}} {
531 set index "$grab,$focus"
539 catch {::focus $oldFocus}
555 # BWidget::badOptionString --
567 proc BWidget::badOptionString {type value list} {
574 proc BWidget::wrongNumArgsString { string } {
579 proc BWidget::read_file { file } {
587 proc BWidget::classes { class } {
602 proc BWidget::library { args } {
628 proc BWidget::inuse { class } {
636 proc BWidget::write { filename {mode w} } {
655 # BWidget::bindMouseWheel --
664 proc BWidget::bindMouseWheel { widget } {
689 proc BWidget::bindMiddleMouseMovement { widget } {
693 set BWidget::__private(x) %x
694 set BWidget::__private(y) %y
705 if { %x > $BWidget::__private(x) } {set xdir -1}
706 if { %y > $BWidget::__private(y) } {set ydir -1}
717 proc ::BWidget::getSystemFontProperties {} {
777 proc ::BWidget::createSystemFonts {} {