Help for this page

Select Code to Download


  1. or download this
        use Tk::NoteBook;
    $notebook = $frmNotebook->NoteBook()->pack();
...
    &customersAccounting_ui($acctTab);
    &customersNotes_ui($notesTab);
    &customersInvoice_ui($invoiceTab);
  2. or download this
        my $mnuTerms = $root->BrowseEntry (
        -textvariable => \$cust->{'terms'},
        -state => 'readonly',
        -choices => \@items,
    );