32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
# objects).
#
proc handleClickEvent { sender e } {
set title "About Garuda Example #%i%"
if {[tcl ready]} then {
msgBox [appendArgs "Tcl version is: " \
[tcl eval [tcl master] info patchlevel] \n \
"Eagle version is: " [info engine patchlevel]] $title
} else {
msgBox "Tcl is not ready." $title
}
}
object load -import System.Windows.Forms
|
|
|
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
# objects).
#
proc handleClickEvent { sender e } {
set title "About Garuda Example #%i%"
if {[tcl ready]} then {
msgBox [appendArgs "Tcl version is: " \
[tcl eval [tcl primary] info patchlevel] \n \
"Eagle version is: " [info engine patchlevel]] $title
} else {
msgBox "Tcl is not ready." $title
}
}
object load -import System.Windows.Forms
|
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
$button Left [expr {([$form ClientSize.Width] - [$button Width]) / 2}]
$button Top [expr {([$form ClientSize.Height] - [$button Height]) / 2}]
$button Text "Click Here"
$button add_Click handleClickEvent
object invoke $form.Controls Add $button
}]
set button [button $toplevel.run -text "Click Here" \
-command [list eagle $script]]
pack $button -padx 20 -pady 20 -ipadx 10 -ipady 10
|
|
|
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
$button Left [expr {([$form ClientSize.Width] - [$button Width]) / 2}]
$button Top [expr {([$form ClientSize.Height] - [$button Height]) / 2}]
$button Text "Click Here"
$button add_Click handleClickEvent
$form Controls.Add $button
}]
set button [button $toplevel.run -text "Click Here" \
-command [list eagle $script]]
pack $button -padx 20 -pady 20 -ipadx 10 -ipady 10
|