Bwidget Source Code
Check-in [cf016564f0]
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:cvs id added, commented code as reminder added
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: cf016564f0de30c4d7fd1fa26b2d276cdcfd27ce
User & Date: oberdorfer 2009-09-08 20:59:15
Context
2009-09-08
21:19
what has changed for now... check-in: db58d054eb user: oberdorfer tags: trunk
20:59
Creating branch MAIN Leaf check-in: 9e53639e48 user: cvs tags: MAIN
20:59
cvs id added, commented code as reminder added check-in: cf016564f0 user: oberdorfer tags: trunk
20:50
ttk style related mod's done check-in: 1d04512fc7 user: oberdorfer tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to progressdlg.tcl.

1
2
3

4
5
6
7
8
9
10









11
12
13
14
15
16
17
# ----------------------------------------------------------------------------
#  progressdlg.tcl
#  This file is part of Unifix BWidget Toolkit

# ----------------------------------------------------------------------------
#  Index of commands:
#     - ProgressDlg::create
# ----------------------------------------------------------------------------

namespace eval ProgressDlg {
    Widget::define ProgressDlg progressdlg Dialog ProgressBar










    Widget::bwinclude ProgressDlg Dialog :cmd \
        remove {
            -modal -image -bitmap -side -anchor -cancel -default
            -homogeneous -padx -pady -spacing
        }



>







>
>
>
>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
# ----------------------------------------------------------------------------
#  progressdlg.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: progressdlg.tcl,v 1.9 2009/09/08 20:59:15 oberdorfer Exp $
# ----------------------------------------------------------------------------
#  Index of commands:
#     - ProgressDlg::create
# ----------------------------------------------------------------------------

namespace eval ProgressDlg {
    Widget::define ProgressDlg progressdlg Dialog ProgressBar

    # to do:
    # if {$::tcl_version >= 8.5} {
    #     set fontdefault TkTextFont
    # } elseif {$Widget::_aqua} {
    #     set fontdefault {helvetica 10}
    # } else {
    #     set fontdefault {helvetica 8}
    # }

    Widget::bwinclude ProgressDlg Dialog :cmd \
        remove {
            -modal -image -bitmap -side -anchor -cancel -default
            -homogeneous -padx -pady -spacing
        }