Bwidget Source Code
Check-in [8ca4af4990]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:theme related mod's done
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8ca4af499003f6b198f9d40d6f17bbb662fb444a
User & Date: oberdorfer 2009-09-06 21:49:58
Context
2009-09-07
20:11
minor theme related code change check-in: c66dab3edb user: oberdorfer tags: trunk
2009-09-06
21:49
theme related mod's done check-in: 8ca4af4990 user: oberdorfer tags: trunk
21:36
theme related mod's done check-in: b8bf09501c user: oberdorfer tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to wizard.tcl.

1
2
3

4
5
6
7
8
9
10
..
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
...
142
143
144
145
146
147
148
149

150
151
152
153
154
155
156
...
169
170
171
172
173
174
175



176

177
178
179
180
181
182
183
# ------------------------------------------------------------------------------
#  wizard.tcl
#

# ------------------------------------------------------------------------------
#  Index of commands:
#
#   Public commands
#     - Wizard::create
#     - Wizard::configure
#     - Wizard::cget
................................................................................

    Widget::declare Wizard {
   	{-type            Enum       "dialog" 1 {dialog frame} }
   	{-width           TkResource "450"    0 frame}
	{-height          TkResource "300"    0 frame}
	{-relief          TkResource "flat"   0 frame}
	{-borderwidth     TkResource "0"      0 frame}
	{-background      TkResource ""       0 frame}
	{-foreground      String     "black"  0      }
	{-title           String     "Wizard" 0      }

	{-autobuttons     Boolean    "1"      0      }
	{-helpbutton      Boolean    "0"      1      }
	{-finishbutton    Boolean    "0"      1      }
        {-resizable       String     "0 0"    0      }
................................................................................

    set frame $path

    set type [Widget::cget $path -type]

    if {[string equal $type "dialog"]} {
        set top $path
        eval [list toplevel $path] $maps(:cmd) -class Wizard

        wm withdraw   $path
        wm protocol   $path WM_DELETE_WINDOW [list $path cancel]
        if {[Widget::cget $path -transient]} {
	    wm transient  $path [Widget::cget $path -parent]
        }
        eval wm resizable $path [Widget::cget $path -resizable]

................................................................................

    widgets $path set steps -widget $path.steps

    if {[Widget::cget $path -separator]} {
        frame $path.separator
        pack $path.separator -fill x




        label $path.separator.l -text [Widget::cget $path -separatortext]

        pack  $path.separator.l -side left

        Separator $path.separator.s -orient horizontal
        pack $path.separator.s -side left -expand 1 -fill x -pady 2

	widgets $path set separator      -widget $path.separator.s
	widgets $path set separatortext  -widget $path.separator.l

|
>







 







|







 







|
>







 







>
>
>
|
>







1
2
3
4
5
6
7
8
9
10
11
..
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
...
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
...
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
# ------------------------------------------------------------------------------
#  wizard.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: wizard.tcl,v 1.11 2009/09/06 21:49:58 oberdorfer Exp $
# ------------------------------------------------------------------------------
#  Index of commands:
#
#   Public commands
#     - Wizard::create
#     - Wizard::configure
#     - Wizard::cget
................................................................................

    Widget::declare Wizard {
   	{-type            Enum       "dialog" 1 {dialog frame} }
   	{-width           TkResource "450"    0 frame}
	{-height          TkResource "300"    0 frame}
	{-relief          TkResource "flat"   0 frame}
	{-borderwidth     TkResource "0"      0 frame}
	{-background      Color      "SystemWindowFrame" 0}	
	{-foreground      String     "black"  0      }
	{-title           String     "Wizard" 0      }

	{-autobuttons     Boolean    "1"      0      }
	{-helpbutton      Boolean    "0"      1      }
	{-finishbutton    Boolean    "0"      1      }
        {-resizable       String     "0 0"    0      }
................................................................................

    set frame $path

    set type [Widget::cget $path -type]

    if {[string equal $type "dialog"]} {
        set top $path
        eval [list toplevel $path] $maps(:cmd) -class Wizard \
	        -background $::BWidget::colors(SystemWindowFrame)
        wm withdraw   $path
        wm protocol   $path WM_DELETE_WINDOW [list $path cancel]
        if {[Widget::cget $path -transient]} {
	    wm transient  $path [Widget::cget $path -parent]
        }
        eval wm resizable $path [Widget::cget $path -resizable]

................................................................................

    widgets $path set steps -widget $path.steps

    if {[Widget::cget $path -separator]} {
        frame $path.separator
        pack $path.separator -fill x

        if { [BWidget::using ttk] } {
              ttk::label $path.separator.l -text [Widget::cget $path -separatortext]
	} else {
              label $path.separator.l -text [Widget::cget $path -separatortext]
	}
        pack  $path.separator.l -side left

        Separator $path.separator.s -orient horizontal
        pack $path.separator.s -side left -expand 1 -fill x -pady 2

	widgets $path set separator      -widget $path.separator.s
	widgets $path set separatortext  -widget $path.separator.l