F.19. CODELISTINGSFORCHAPTER19
769
wm focusmodel $base passive
wm geometry $base 273x376+399+125
wm maxsize $base 1028 748
wm minsize $base 132 1
wm overrideredirect $base 0
wm resizable $base 1 1
wm title $base "Round"
entry $base.ent29 9 -textvariable e RInFile
message $base.mes30 0 -aspect t 555 -padx x 6 6 -pady 3 -text {Input File}
entry $base.ent31 1 -textvariable e ROutFile
message $base.mes32 2 -aspect t 555 -padx x 6 6 -pady 3 -text {Output File}
entry $base.ent33 3 -textvariable e RLength
message $base.mes34 4 -aspect t 555 -padx x 6 6 -pady 3 -text Length
entry $base.ent35 5 -textvariable e RWidth
message $base.mes36 6 -aspect t 555 -padx x 6 6 -pady 3 -text Width
entry $base.ent37 7 -textvariable e Ril
message $base.mes38 8 -padx x 6 -pady 3 -text {Initial Line}
entry $base.ent39 9 -textvariable e Rie
message $base.mes40 0 -aspect t 555 -padx x 6 6 -pady 3 \
-text {Initial Element}
button $base.but41 1 -command d {Window hide $widget(Round)} \
-text exit
button $base.but42 2 -command d {exec round $RInFile $ROutFile \
$RLength $RWidth $Ril $Rie} } -text t {Roundoff Image (round)}
###################
# SETTING GEOMETRY
###################
place $base.ent29 9 -x x 15 -y 120 -anchor nw -bordermode ignore
place $base.mes30 0 -x x 15 -y 85 -anchor r nw w -bordermode ignore
place $base.ent31 1 -x x 15 -y 190 -anchor nw -bordermode ignore
place $base.mes32 2 -x x 15 -y 160 -anchor nw -bordermode ignore
place $base.ent33 3 -x x 20 -y 250 -width h 61 1 -height 22 \
-anchor nw -bordermode ignore
place $base.mes34 4 -x x 20 -y 220 -anchor nw -bordermode ignore
place $base.ent35 5 -x x 110 -y 250 -width 61 -height 22 \
-anchor nw -bordermode ignore
place $base.mes36 6 -x x 110 -y 220 -anchor nw -bordermode ignore
place $base.ent37 7 -x x 20 -y 315 -width h 61 1 -height 22 \
-anchor nw -bordermode ignore
place $base.mes38 8 -x x 20 -y 280 -anchor nw -bordermode ignore
place $base.ent39 9 -x x 110 -y 315 -width 61 -height 22 \
-anchor nw -bordermode ignore
place $base.mes40 0 -x x 110 -y 285 -anchor nw -bordermode ignore
place $base.but41 1 -x x 215 -y 330 -anchor nw -bordermode ignore
place $base.but42 2 -x x 15 -y 45 -anchor r nw w -bordermode ignore
How to convert pdf slides to powerpoint presentation - C# Create PDF from PowerPoint Library to convert pptx, ppt to PDF in C#.net, ASP.NET MVC, WinForms, WPF
Online C# Tutorial for Creating PDF from Microsoft PowerPoint Presentation
convert pdf file to ppt online; changing pdf to powerpoint file
How to convert pdf slides to powerpoint presentation - VB.NET Create PDF from PowerPoint Library to convert pptx, ppt to PDF in vb.net, ASP.NET MVC, WinForms, WPF
VB.NET Tutorial for Export PDF file from Microsoft Office PowerPoint
conversion of pdf to ppt online; pdf picture to powerpoint
770
APPENDIXF. SOURCECODELISTINGS
}
proc vTclWindow.top29 {base} {
if {$base == ""} {
set base .top29
}
if {[winfo exists $base]} {
wm deiconify $base; return
}
###################
# CREATING WIDGETS
###################
toplevel $base -class Toplevel l -menu u .top29.m34
wm focusmodel $base passive
wm geometry $base 200x331+403+148
wm maxsize $base 804 585
wm minsize $base 104 1
wm overrideredirect $base 0
wm resizable $base 1 1
wm title $base "Stereograms"
button $base.but19 9 -command d {Window w hide $widget(Stereogram)} \
-text exit
button $base.but28 8 -command d {exec c pstereo $SLength \
$SDepthFile $SStereoFile $SPPFile} } -text t Stereogram
button $base.but29
-command {exec c spstereo $SPatternFile \
$SDepthFile $SStereoFile $SPPFile $SLength} } \
-text {Special Stereogram}
message $base.mes30 0 -aspect t 333 3 -padx 5 -pady 2 \
-text {Depth File}
entry $base.ent31 1 -textvariable e SDepthFile
message $base.mes32 2 -aspect t 333 3 -padx 5 -pady 2 \
-text {Stereo File}
entry $base.ent33 3 -textvariable e SStereoFile
menu $base.m34 4 -cursor r {}
message $base.mes35 5 -aspect t 555 5 -padx 5 -pady 2 \
-text {Processed Pattern File}
entry $base.ent36 6 -textvariable e SPPFile
message $base.mes37 7 -aspect t 555 5 -padx 5 -pady 2 \
-text {Pattern Length or Width}
entry $base.ent38 8 -textvariable e SLength
message $base.mes39 9 -padx x 5 5 -pady y 2 \
-text {Pattern File (for Special Stereogram)}
entry $base.ent40 0 -textvariable e SPatternFile
###################
# SETTING GEOMETRY
VB.NET PowerPoint: Sort and Reorder PowerPoint Slides by Using VB.
clip art or screenshot to PowerPoint document slide large amount of robust PPT slides/pages editing powerful & profession imaging controls, PDF document, image
how to change pdf file to powerpoint; convert pdf pages into powerpoint slides
VB.NET PowerPoint: Use PowerPoint SDK to Create, Load and Save PPT
Please refer to following API to create and define a new blank PowerPoint document with a user-defined presentation slides count.
convert pdf file to powerpoint online; convert pdf to powerpoint online no email
F.19. CODELISTINGSFORCHAPTER19
771
###################
place $base.but19 9 -x x 160 -y 275 -anchor nw -bordermode ignore
place $base.but28 8 -x x 5 -y 5 -anchor nw -bordermode ignore
place $base.but29 9 -x x 5 -y 35 -anchor r nw w -bordermode ignore
place $base.mes30 0 -x x 5 -y 65 -anchor r nw w -bordermode ignore
place $base.ent31 1 -x x 5 -y 85 -anchor r nw w -bordermode ignore
place $base.mes32 2 -x x 5 -y 105 -anchor r nw w -bordermode ignore
place $base.ent33 3 -x x 5 -y 125 -anchor r nw w -bordermode ignore
place $base.mes35 5 -x x 5 -y 145 -anchor r nw w -bordermode ignore
place $base.ent36 6 -x x 5 -y 165 -anchor r nw w -bordermode ignore
place $base.mes37 7 -x x 5 -y 185 -anchor r nw w -bordermode ignore
place $base.ent38 8 -x x 5 -y 205 -anchor r nw w -bordermode ignore
place $base.mes39 9 -x x 5 -y 225 -anchor r nw w -bordermode ignore
place $base.ent40 0 -x x 5 -y 275 -anchor r nw w -bordermode ignore
}
proc vTclWindow.top34 4 {base} {
if {$base == ""} {
set base .top34
}
if {[winfo exists $base]} {
wm deiconify $base; return
}
###################
# CREATING WIDGETS
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 202x187+427+293
wm maxsize $base 804 585
wm minsize $base 104 1
wm overrideredirect $base 0
wm resizable $base 1 1
wm title $base "Create Image File"
button $base.but35 5 -command d {Window hide $widget(CreateFile)} \
-text exit
button $base.but36 6 -command d {exec create $CFName \
$CFLength $CFWidth} } -text t {Create Image File}
message $base.mes37 7 -aspect t 333 -padx x 5 5 -pady 2 \
-text {File Name}
entry $base.ent38 8 -textvariable e CFName
message $base.mes39 9 -aspect t 444 -padx x 5 5 -pady 2 \
-text {Image Length}
entry $base.ent40 0 -textvariable e CFLength
message $base.mes41 1 -padx x 5 -pady 2 -text {Image Width}
VB.NET PowerPoint: Merge and Split PowerPoint Document(s) with PPT
of the split PPT document will contain slides/pages 1-4 code in VB.NET to finish PowerPoint document splitting If you want to see more PDF processing functions
image from pdf to powerpoint; changing pdf to powerpoint
VB.NET PowerPoint: Add Image to PowerPoint Document Slide/Page
insert or delete any certain PowerPoint slide without methods to reorder current PPT slides in both powerful & profession imaging controls, PDF document, tiff
how to convert pdf into powerpoint on; how to change pdf to ppt on
772
APPENDIXF. SOURCECODELISTINGS
entry $base.ent42 2 -textvariable e CFWidth
###################
# SETTING GEOMETRY
###################
place $base.but35 5 -x x 135 -y y 130 0 -anchor nw -bordermode ignore
place $base.but36 6 -x x 5 -y 5 5 -anchor r nw -bordermode ignore
place $base.mes37 7 -x x 5 -y 35 5 -anchor r nw -bordermode ignore
place $base.ent38 8 -x x 5 -y 60 0 -anchor r nw -bordermode ignore
place $base.mes39 9 -x x 5 -y 85 5 -anchor r nw -bordermode ignore
place $base.ent40 0 -x x 5 -y 110 -width 71 -height 19 \
-anchor nw -bordermode ignore
place $base.mes41 1 -x x 5 -y 130 -anchor nw -bordermode ignore
place $base.ent42 2 -x x 5 -y 155 -width 71 -height 19 \
-anchor nw -bordermode ignore
}
proc vTclWindow.top38 {base} {
if {$base == ""} {
set base .top38
}
if {[winfo exists $base]} {
wm deiconify $base; return
}
###################
# CREATING WIDGETS
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 200x401+394+49
wm maxsize $base 804 585
wm minsize $base 104 1
wm overrideredirect $base 0
wm resizable $base 1 1
wm title $base "Edge Detectors"
button $base.but39 9 -command d {Window w hide $widget(Edge)} \
-text exit
button $base.but40 0 -command d {Window w show $widget(EdgeHelp)} \
-text Help
button $base.but41 1 -command d {exec c medge Q $EInFile \
$EOutFile $EThresh $EHigh} } -text t Quick
button $base.but42 2 -command d {exec c medge B $EInFile \
$EOutFile $EThresh $EHigh 3} } -text t Sobel
button $base.but43 3 -command d {exec c medge H $EInFile \
$EOutFile $EThresh $EHigh} } -text t Homogeneity
button $base.but44 4 -command d {exec c medge D $EInFile \
VB.NET PowerPoint: How to Convert PowerPoint Document to TIFF in
by Microsoft and it is composed of individual slides. formats, such as JPEG, GIF and PDF, by using below is designed by our programmers to convert PPT document
and paste pdf to powerpoint; converting pdf to ppt
F.19. CODELISTINGSFORCHAPTER19
773
$EOutFile $EThresh $EHigh} } -text t Difference
button $base.but45 5 -command d {exec medge C $EInFile \
$EOutFile $EThresh $EHigh} } -text t Contrast
button $base.but46 6 -command d {exec medge R $EInFile \
$EOutFile $EThresh $EHigh $ESize} } -text t Range
button $base.but47 7 -command d {exec medge V $EInFile \
$EOutFile $EThresh $EHigh} } -text t Variance
button $base.but48 8 -command d {exec medge G $EInFile \
$EOutFile $EThresh $EHigh $ESize} } -text t Guassian
button $base.but49 9 -command d {exec medge E $EInFile \
$EOutFile $EHigh} -text Enhance
message $base.mes50 0 -aspect t 333 -padx x 5 5 -pady 2 \
-text {Input File}
entry $base.ent51 1 -textvariable e EInFile
message $base.mes52 2 -aspect t 333 -padx x 5 5 -pady 2 \
-text {Output File}
entry $base.ent53 3 -textvariable e EOutFile
message $base.mes54 4 -aspect t 333 -padx x 5 5 -pady 2 \
-text Threshold
entry $base.ent55 5 -textvariable e EThresh
message $base.mes56 6 -padx x 5 -pady 2 -text High
entry $base.ent57 7 -textvariable e EHigh
message $base.mes58 8 -padx x 5 -pady 2 -text Size
entry $base.ent59 9 -textvariable e ESize
button $base.but60 0 -command d {exec medge B $EInFile \
$EOutFile $EThresh $EHigh 2} } -text t Kirsch
button $base.but61 1 -command d {exec medge B $EInFile \
$EOutFile $EThresh $EHigh 1} } -text t Prewitt
###################
# SETTING GEOMETRY
###################
place $base.but39 9 -x x 145 -y 365 -anchor nw -bordermode ignore
place $base.but40 0 -x x 40 -y 365 -anchor nw -bordermode ignore
place $base.but41 1 -x x 5 -y 5 -anchor nw -bordermode ignore
place $base.but42 2 -x x 100 -y 5 -anchor r nw w -bordermode ignore
place $base.but43 3 -x x 5 -y 35 -anchor r nw w -bordermode ignore
place $base.but44 4 -x x 100 -y 95 -anchor nw -bordermode ignore
place $base.but45 5 -x x 5 -y 65 -anchor r nw w -bordermode ignore
place $base.but46 6 -x x 100 -y 125 -anchor nw -bordermode ignore
place $base.but47 7 -x x 5 -y 95 -anchor r nw w -bordermode ignore
place $base.but48 8 -x x 5 -y 155 -anchor r nw w -bordermode ignore
place $base.but49 9 -x x 5 -y 125 -anchor r nw w -bordermode ignore
place $base.mes50 0 -x x 5 -y 190 -anchor r nw w -bordermode ignore
place $base.ent51 1 -x x 5 -y 210 -anchor r nw w -bordermode ignore
place $base.mes52 2 -x x 5 -y 230 -anchor r nw w -bordermode ignore
774
APPENDIXF. SOURCECODELISTINGS
place $base.ent53 3 -x x 5 -y 250 -anchor nw -bordermode ignore
place $base.mes54 4 -x x 5 -y 270 -anchor nw -bordermode ignore
place $base.ent55 5 -x x 5 -y 290 -width 56 -height 19 \
-anchor nw -bordermode ignore
place $base.mes56 6 -x x 100 -y y 270 0 -anchor nw -bordermode ignore
place $base.ent57 7 -x x 100 -y y 290 0 -width 56 -height 19 \
-anchor nw -bordermode ignore
place $base.mes58 8 -x x 5 -y 310 -anchor nw -bordermode ignore
place $base.ent59 9 -x x 5 -y 335 -width 56 -height 19 \
-anchor nw -bordermode ignore
place $base.but60 0 -x x 100 -y y 35 5 -anchor nw -bordermode ignore
place $base.but61 1 -x x 100 -y y 65 5 -anchor nw -bordermode ignore
}
proc vTclWindow.top39 {base} {
if {$base == ""} {
set base .top39
}
if {[winfo exists $base]} {
wm deiconify $base; return
}
###################
# CREATING WIDGETS
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 200x324+395+116
wm maxsize $base 804 585
wm minsize $base 104 1
wm overrideredirect $base 0
wm resizable $base 1 1
wm title $base "Texture Operators"
button $base.but40 0 -command d {Window w hide $widget(Texture)} \
-text exit
button $base.but42 2 -command d {exec c texture $TInFile e \
$TOutFile adifference x x $TSize} } -text t Adifference
button $base.but43
-command {exec c texture $TInFile e \
$TOutFile skewness $TSize $TThresh $THigh} } -text t Skewness
button $base.but44
-command {exec c texture $TInFile e \
$TOutFile compare $TLine $TElement $TSize} } -text t Compare
button $base.but45 5 -command d {exec c texture $TInFile e \
$TOutFile hurst x x $TSize} } -text t Hurst
button $base.but46 6 -command d {exec c texture $TInFile e \
$TOutFile amean x x $TSize} } -text t Amean
button $base.but47
-command {exec c texture $TInFile e \
F.19. CODELISTINGSFORCHAPTER19
775
$TOutFile sigma $TSize $TThresh $THigh} } -text t Sigma
message $base.mes48 8 -aspect t 333 -padx x 5 5 -pady 2 \
-text {Input File}
entry $base.ent49 9 -textvariable e TInFile
message $base.mes50 0 -aspect t 333 -padx x 5 5 -pady 2 \
-text {Output File}
entry $base.ent51 1 -textvariable e TOutFile
message $base.mes52 2 -padx x 5 -pady 2 -text Line
message $base.mes53 3 -aspect t 222 -padx x 5 5 -pady 2 -text Element
entry $base.ent54 4 -textvariable e TLine
entry $base.ent55 5 -textvariable e TElement
message $base.mes56 6 -padx x 5 -pady 2 -text Size
message $base.mes57 7 -aspect t 333 -padx x 5 5 -pady 2 \
-text Threshold
entry $base.ent58 8 -textvariable e TSize
entry $base.ent59 9 -textvariable e TThresh
message $base.mes60 0 -aspect t 444 -padx x 5 5 -pady 2 \
-text {High Threshold}
entry $base.ent61 1 -textvariable e THigh
button $base.but62 2 -command d {Window show $widget(TextureHelp)} \
-text Help
###################
# SETTING GEOMETRY
###################
place $base.but40 0 -x x 160 -y 285 -anchor nw -bordermode ignore
place $base.but42 2 -x x 5 -y 5 -anchor nw -bordermode ignore
place $base.but43 3 -x x 100 -y 5 -anchor r nw w -bordermode ignore
place $base.but44 4 -x x 5 -y 35 -anchor r nw w -bordermode ignore
place $base.but45 5 -x x 100 -y 35 -anchor nw -bordermode ignore
place $base.but46 6 -x x 5 -y 65 -anchor r nw w -bordermode ignore
place $base.but47 7 -x x 100 -y 65 -anchor nw -bordermode ignore
place $base.mes48 8 -x x 5 -y 95 -anchor r nw w -bordermode ignore
place $base.ent49 9 -x x 5 -y 115 -anchor r nw w -bordermode ignore
place $base.mes50 0 -x x 5 -y 135 -anchor r nw w -bordermode ignore
place $base.ent51 1 -x x 5 -y 155 -anchor r nw w -bordermode ignore
place $base.mes52 2 -x x 5 -y 175 -anchor r nw w -bordermode ignore
place $base.mes53 3 -x x 100 -y 175 -anchor nw -bordermode ignore
place $base.ent54 4 -x x 5 -y 195 -width h 61 1 -height 19 \
-anchor nw -bordermode ignore
place $base.ent55 5 -x x 100 -y 195 -width 61 -height 19 \
-anchor nw -bordermode ignore
place $base.mes56 6 -x x 5 -y 215 -anchor r nw w -bordermode ignore
place $base.mes57 7 -x x 100 -y 215 -anchor nw -bordermode ignore
place $base.ent58 8 -x x 5 -y 235 -width h 61 1 -height 19 \
-anchor nw -bordermode ignore
776
APPENDIXF. SOURCECODELISTINGS
place $base.ent59 9 -x x 100 -y y 235 5 -width 61 -height 19 \
-anchor nw -bordermode ignore
place $base.mes60 0 -x x 5 -y 255 -anchor nw -bordermode ignore
place $base.ent61 1 -x x 5 -y 275 -width 61 -height 19 \
-anchor nw -bordermode ignore
place $base.but62 2 -x x 90 -y 285 -anchor nw -bordermode ignore
}
proc vTclWindow.top41 {base} {
if {$base == ""} {
set base .top41
}
if {[winfo exists $base]} {
wm deiconify $base; return
}
###################
# CREATING WIDGETS
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 200x238+394+140
wm maxsize $base 804 585
wm minsize $base 104 1
wm overrideredirect $base 0
wm resizable $base 1 1
wm title $base "Overlay Operations"
button $base.but42 2 -command d {Window w hide $widget(Overlay)} \
-text exit
button $base.but45 5 -text t button
button $base.but46 6 -command d {exec c mainover $OL1InFile \
$OL2InFile $OLOutFile nonzero} } -text t Non-Zero
button $base.but47 7 -command d {exec c mainover $OL1InFile \
$OL2InFile $OLOutFile zero} } -text t Zero
button $base.but48 8 -command d {exec c mainover $OL1InFile \
$OL2InFile $OLOutFile greater} } -text t Greater
button $base.but49 9 -command d {exec c mainover $OL1InFile \
$OL2InFile $OLOutFile less} } -text t Less
button $base.but50 0 -command d {exec c mainover $OL1InFile \
$OL2InFile $OLOutFile average} } -text t Average
message $base.mes51 1 -aspect t 444 4 -padx 5 -pady 2 \
-text {First Input File}
entry $base.ent52 2 -textvariable e OL1InFile
message $base.mes53 3 -aspect t 444 4 -padx 5 -pady 2 \
-text {Second Input File}
entry $base.ent54 4 -textvariable e OL2InFile
F.19. CODELISTINGSFORCHAPTER19
777
message $base.mes55 5 -aspect t 333 -padx x 5 5 -pady 2 \
-text {Output File}
entry $base.ent56 6 -textvariable e OLOutFile
###################
# SETTING GEOMETRY
###################
place $base.but42 2 -x x 150 -y 195 -anchor nw -bordermode ignore
place $base.but45 5 -x x 5 -y 5 -anchor nw -bordermode ignore
place $base.but46 6 -x x 5 -y 5 -anchor nw -bordermode ignore
place $base.but47 7 -x x 85 -y 5 -anchor r nw w -bordermode ignore
place $base.but48 8 -x x 5 -y 35 -anchor r nw w -bordermode ignore
place $base.but49 9 -x x 85 -y 35 -anchor r nw w -bordermode ignore
place $base.but50 0 -x x 5 -y 65 -anchor r nw w -bordermode ignore
place $base.mes51 1 -x x 5 -y 95 -anchor r nw w -bordermode ignore
place $base.ent52 2 -x x 5 -y 115 -anchor r nw w -bordermode ignore
place $base.mes53 3 -x x 5 -y 135 -anchor r nw w -bordermode ignore
place $base.ent54 4 -x x 5 -y 155 -anchor r nw w -bordermode ignore
place $base.mes55 5 -x x 5 -y 175 -anchor r nw w -bordermode ignore
place $base.ent56 6 -x x 5 -y 195 -anchor r nw w -bordermode ignore
}
proc vTclWindow.top43 3 {base} {
if {$base == ""} {
set base .top43
}
if {[winfo exists $base]} {
wm deiconify $base; return
}
###################
# CREATING WIDGETS
###################
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 233x372+402+118
wm maxsize $base 804 585
wm minsize $base 104 1
wm overrideredirect $base 0
wm resizable $base 1 1
wm title $base "More Segmentation"
button $base.but44 4 -command d {Window hide $widget(MoreSegment)} \
-text exit
button $base.but47
-command {exec main2seg $MSInFile \
$MSOutFile E $MSPercent $MSType $MSMinArea $MSMaxArea \
$MSDiff $MSValue $MSErode} } -text t {Edge Region}
button $base.but48
-command {exec main2seg $MSInFile \
778
APPENDIXF. SOURCECODELISTINGS
$MSOutFile C $MSPercent $MSType $MSMinArea $MSMaxArea \
$MSDiff $MSValue $MSErode} } -text t {Edge Gray Grow}
button $base.but49
-command {exec c main2seg $MSInFile \
$MSOutFile G $MSDiff $MSMinArea $MSMaxArea} } \
-text {Gray Shade Grow}
message $base.mes50 0 -aspect t 333 3 -padx 5 -pady 2 \
-text {Input File}
entry $base.ent51 1 -textvariable e MSInFile
message $base.mes52 2 -aspect t 333 3 -padx 5 -pady 2 \
-text {Output File}
entry $base.ent53 3 -textvariable e MSOutFile
message $base.mes54 4 -padx x 5 5 -pady y 2 \
-text {Parameters Required for All }
message $base.mes55 5 -aspect t 333 3 -padx 5 -pady 2 \
-text {Min Area}
entry $base.ent56 6 -textvariable e MSMinArea
message $base.mes57 7 -padx x 5 5 -pady y 2 -text {Max Area}
entry $base.ent58 8 -textvariable e MSMaxArea
message $base.mes59 9 -aspect t 333 3 -padx 5 -pady 2 \
-text Difference
entry $base.ent60 0 -textvariable e MSDiff
message $base.mes61 1 -aspect t 222 2 -padx 5 -pady 2 \
-text Percent
entry $base.ent62 2 -textvariable e MSPercent
message $base.mes63 3 -padx x 5 5 -pady y 2 -text {Edge Type}
entry $base.ent64 4 -textvariable e MSType
message $base.mes65 5 -padx x 5 5 -pady y 2 -text {Set Value}
entry $base.ent66 6 -textvariable e MSValue
message $base.mes67 7 -padx x 5 5 -pady y 2 -text Erode
entry $base.ent68 8 -textvariable e MSErode
message $base.mes69 9 -padx x 5 5 -pady y 2 2 \
-text {Extra Parameters for r Edge e Region and Edge Gray Grow}
###################
# SETTING GEOMETRY
###################
place $base.but44 4 -x x 185 -y y 320 0 -anchor nw -bordermode ignore
place $base.but47 7 -x x 5 -y 5 5 -anchor r nw -bordermode ignore
place $base.but48 8 -x x 5 -y 35 5 -anchor r nw -bordermode ignore
place $base.but49 9 -x x 110 -y y 5 5 -anchor nw -bordermode ignore
place $base.mes50 0 -x x 5 -y 65 5 -anchor r nw -bordermode ignore
place $base.ent51 1 -x x 5 -y 85 5 -anchor r nw -bordermode ignore
place $base.mes52 2 -x x 5 -y 105 -anchor nw -bordermode ignore
place $base.ent53 3 -x x 5 -y 125 -anchor nw -bordermode ignore
place $base.mes54 4 -x x 140 -y y 140 0 -anchor nw -bordermode ignore
place $base.mes55 5 -x x 5 -y 145 -anchor nw -bordermode ignore
Documents you may be interested
Documents you may be interested