Re: BWidget NoteBook: Retrieve current page?

Hi,

You could add a proc like this to your application:

NoteBook::use

proc NoteBook::selected_page { path } {
    variable $path
    upvar 0 $path data
    return $data(select)
}

Example:

set nb [NoteBook .nb]
pack .nb -fill both -expand true

$nb insert end tab_one -text one
$nb insert end tab_two -text two
$nb insert end tab_three -text three
$nb insert end tab_four -text four

# Later on in your application, query selected a page

set pg [$nb selected_page]

Kind regards,

Jos.
Received on Thu Sep 29 14:18:41 2005