Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
ecpcitest
vtk-m
Commits
b0b0dea4
Commit
b0b0dea4
authored
Jan 02, 2004
by
Sebastien Barre
Browse files
vtk tcl/tk packages 4.3 to 4.4 (should be configured, doh)
parent
c8eabcfe
Changes
14
Hide whitespace changes
Inline
Side-by-side
Wrapping/Tcl/vtk/vtk.tcl
View file @
b0b0dea4
foreach kit $
{
vtk::init::kits
}
{
package require -exact vtk$
{
kit
}
4.
3
package require -exact vtk$
{
kit
}
4.
4
}
package provide vtk 4.
3
package provide vtk 4.
4
Wrapping/Tcl/vtkbase/vtkbase.tcl
View file @
b0b0dea4
package provide vtkbase 4.
3
package provide vtkbase 4.
4
namespace eval ::vtk
{
...
...
Wrapping/Tcl/vtkcommon/vtkcommon.tcl
View file @
b0b0dea4
package require -exact vtkbase 4.
3
package require -exact vtkbase 4.
4
if
{[
info commands ::vtk::init::require_package
]
!=
""
}
{
if
{[
::vtk::init::require_package vtkCommonTCL 4.
3
]}
{
package provide vtkcommon 4.
3
if
{[
::vtk::init::require_package vtkCommonTCL 4.
4
]}
{
package provide vtkcommon 4.
4
}
}
else
{
puts stderr
"Warning: Your TCLLIBPATH points to the VTK source tree.
\
...
...
@@ -15,6 +15,6 @@ if {[info commands ::vtk::init::require_package] != ""} {
to point to the VTK build tree."
if
{[
info commands vtkObject
]
!=
""
||
[
::vtk::load_component vtkCommonTCL
]
==
""
}
{
package provide vtkcommon 4.
3
package provide vtkcommon 4.
4
}
}
Wrapping/Tcl/vtkfiltering/vtkfiltering.tcl
View file @
b0b0dea4
package require -exact vtkcommon 4.
3
package require -exact vtkcommon 4.
4
if
{[
info commands ::vtk::init::require_package
]
!=
""
}
{
if
{[
::vtk::init::require_package vtkFilteringTCL 4.
3
]}
{
package provide vtkfiltering 4.
3
if
{[
::vtk::init::require_package vtkFilteringTCL 4.
4
]}
{
package provide vtkfiltering 4.
4
}
}
else
{
if
{[
info commands vtkCardinalSpline
]
!=
""
||
[
::vtk::load_component vtkFilteringTCL
]
==
""
}
{
package provide vtkfiltering 4.
3
package provide vtkfiltering 4.
4
}
}
Wrapping/Tcl/vtkgraphics/vtkgraphics.tcl
View file @
b0b0dea4
package require -exact vtkfiltering 4.
3
package require -exact vtkfiltering 4.
4
if
{[
info commands ::vtk::init::require_package
]
!=
""
}
{
if
{[
::vtk::init::require_package vtkGraphicsTCL 4.
3
]}
{
package provide vtkgraphics 4.
3
if
{[
::vtk::init::require_package vtkGraphicsTCL 4.
4
]}
{
package provide vtkgraphics 4.
4
}
}
else
{
if
{[
info commands vtkAxes
]
!=
""
||
[
::vtk::load_component vtkGraphicsTCL
]
==
""
}
{
package provide vtkgraphics 4.
3
package provide vtkgraphics 4.
4
}
}
Wrapping/Tcl/vtkhybrid/vtkhybrid.tcl
View file @
b0b0dea4
package require -exact vtkio 4.
3
package require -exact vtkrendering 4.
3
package require -exact vtkio 4.
4
package require -exact vtkrendering 4.
4
if
{[
info commands ::vtk::init::require_package
]
!=
""
}
{
if
{[
::vtk::init::require_package vtkHybridTCL 4.
3
]}
{
package provide vtkhybrid 4.
3
if
{[
::vtk::init::require_package vtkHybridTCL 4.
4
]}
{
package provide vtkhybrid 4.
4
}
}
else
{
if
{[
info commands vtkEarthSource
]
!=
""
||
[
::vtk::load_component vtkHybridTCL
]
==
""
}
{
package provide vtkhybrid 4.
3
package provide vtkhybrid 4.
4
}
}
Wrapping/Tcl/vtkimaging/vtkimaging.tcl
View file @
b0b0dea4
package require -exact vtkfiltering 4.
3
package require -exact vtkfiltering 4.
4
if
{[
info commands ::vtk::init::require_package
]
!=
""
}
{
if
{[
::vtk::init::require_package vtkImagingTCL 4.
3
]}
{
package provide vtkimaging 4.
3
if
{[
::vtk::init::require_package vtkImagingTCL 4.
4
]}
{
package provide vtkimaging 4.
4
}
}
else
{
if
{[
info commands vtkImageFFT
]
!=
""
||
[
::vtk::load_component vtkImagingTCL
]
==
""
}
{
package provide vtkimaging 4.
3
package provide vtkimaging 4.
4
}
}
Wrapping/Tcl/vtkinteraction/vtkinteraction.tcl
View file @
b0b0dea4
package require -exact vtkrendering 4.
3
package require -exact vtkrendering 4.
4
foreach s
{
Interactor bindings-rw bindings-iw bindings setget
}
{
source
[
file join
[
file dirname
[
info script
]]
"
${s}
.tcl"
]
}
package provide vtkinteraction 4.
3
package provide vtkinteraction 4.
4
Wrapping/Tcl/vtkio/vtkio.tcl
View file @
b0b0dea4
package require -exact vtkfiltering 4.
3
package require -exact vtkfiltering 4.
4
if
{[
info commands ::vtk::init::require_package
]
!=
""
}
{
if
{[
::vtk::init::require_package vtkIOTCL 4.
3
]}
{
package provide vtkio 4.
3
if
{[
::vtk::init::require_package vtkIOTCL 4.
4
]}
{
package provide vtkio 4.
4
}
}
else
{
if
{[
info commands vtkBMPReader
]
!=
""
||
[
::vtk::load_component vtkIOTCL
]
==
""
}
{
package provide vtkio 4.
3
package provide vtkio 4.
4
}
}
Wrapping/Tcl/vtkparallel/vtkparallel.tcl
View file @
b0b0dea4
package require -exact vtkio 4.
3
package require -exact vtkrendering 4.
3
package require -exact vtkio 4.
4
package require -exact vtkrendering 4.
4
if
{[
info commands ::vtk::init::require_package
]
!=
""
}
{
if
{[
::vtk::init::require_package vtkParallelTCL 4.
3
]}
{
package provide vtkparallel 4.
3
if
{[
::vtk::init::require_package vtkParallelTCL 4.
4
]}
{
package provide vtkparallel 4.
4
}
}
else
{
if
{[
info commands vtkParallelFactory
]
!=
""
||
[
::vtk::load_component vtkParallelTCL
]
==
""
}
{
package provide vtkparallel 4.
3
package provide vtkparallel 4.
4
}
}
Wrapping/Tcl/vtkpatented/vtkpatented.tcl
View file @
b0b0dea4
package require -exact vtkio 4.
3
package require -exact vtkrendering 4.
3
package require -exact vtkio 4.
4
package require -exact vtkrendering 4.
4
if
{[
info commands ::vtk::init::require_package
]
!=
""
}
{
if
{[
::vtk::init::require_package vtkPatentedTCL 4.
3
]}
{
package provide vtkpatented 4.
3
if
{[
::vtk::init::require_package vtkPatentedTCL 4.
4
]}
{
package provide vtkpatented 4.
4
}
}
else
{
if
{[
info commands vtkKitwareContourFilter
]
!=
""
||
[
::vtk::load_component vtkPatentedTCL
]
==
""
}
{
package provide vtkpatented 4.
3
package provide vtkpatented 4.
4
}
}
Wrapping/Tcl/vtkrendering/vtkrendering.tcl
View file @
b0b0dea4
package require -exact vtkgraphics 4.
3
package require -exact vtkimaging 4.
3
package require -exact vtkgraphics 4.
4
package require -exact vtkimaging 4.
4
catch
{
unset __tk_error
...
...
@@ -33,15 +33,15 @@ namespace eval ::vtk::rendering {
if
{[
info commands ::vtk::init::require_package
]
!=
""
}
{
if
{
!
[
info exists __tk_error
]
&&
\
[
::vtk::init::require_package vtkRenderingTCL 4.
3
]}
{
[
::vtk::init::require_package vtkRenderingTCL 4.
4
]}
{
::vtk::rendering::SetWin32ExitCallback
package provide vtkrendering 4.
3
package provide vtkrendering 4.
4
}
}
else
{
if
{
!
[
info exists __tk_error
]
&&
\
([
info commands vtkAxisActor2D
]
!=
""
||
\
[
::vtk::load_component vtkRenderingTCL
]
==
""
)}
{
::vtk::rendering::SetWin32ExitCallback
package provide vtkrendering 4.
3
package provide vtkrendering 4.
4
}
}
Wrapping/Tcl/vtktesting/grab.tcl
View file @
b0b0dea4
package require -exact vtkrendering 4.
3
package require -exact vtkrendering 4.
4
namespace eval ::vtk
{
...
...
Wrapping/Tcl/vtktesting/vtktesting.tcl
View file @
b0b0dea4
package require -exact vtkcommon 4.
3
package require -exact vtkcommon 4.
4
foreach s
{
colors mccases backdrop grab
}
{
source
[
file join
[
file dirname
[
info script
]]
"
${s}
.tcl"
]
...
...
@@ -12,4 +12,4 @@ proc ::exit {{returnCode 0}} {
return
[
::vtk::exit $returnCode
]
}
package provide vtktesting 4.
3
package provide vtktesting 4.
4
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment