Revision: 42393
http://brlcad.svn.sourceforge.net/brlcad/?rev=42393&view=rev
Author: starseeker
Date: 2011-01-17 14:35:27 +0000 (Mon, 17 Jan 2011)
Log Message:
-----------
Put itk_redefines.tcl with the other archer tcl scripts
Modified Paths:
--------------
brlcad/branches/cmake/src/archer/CMakeLists.txt
brlcad/branches/cmake/src/archer/archer
brlcad/branches/cmake/src/tclscripts/archer/CMakeLists.txt
Added Paths:
-----------
brlcad/branches/cmake/src/tclscripts/archer/itk_redefines.tcl
Removed Paths:
-------------
brlcad/branches/cmake/src/archer/itk_redefines.tcl
Modified: brlcad/branches/cmake/src/archer/CMakeLists.txt
===================================================================
--- brlcad/branches/cmake/src/archer/CMakeLists.txt 2011-01-17 14:30:16 UTC
(rev 42392)
+++ brlcad/branches/cmake/src/archer/CMakeLists.txt 2011-01-17 14:35:27 UTC
(rev 42393)
@@ -4,8 +4,6 @@
ENDIF(WIN32)
configure_file(archer ${CMAKE_BINARY_DIR}/bin/archer COPYONLY)
INSTALL(PROGRAMS archer DESTINATION bin)
-configure_file(itk_redefines.tcl
${CMAKE_BINARY_DIR}/${DATA_DIR}/tclscripts/itk_redefines.tcl COPYONLY)
-INSTALL(FILES itk_redefines.tcl DESTINATION
${${CMAKE_PROJECT_NAME}_INSTALL_DATA_DIR}/tclscripts)
set(archer_plugins
plugins/utility.tcl
Modified: brlcad/branches/cmake/src/archer/archer
===================================================================
--- brlcad/branches/cmake/src/archer/archer 2011-01-17 14:30:16 UTC (rev
42392)
+++ brlcad/branches/cmake/src/archer/archer 2011-01-17 14:35:27 UTC (rev
42393)
@@ -59,13 +59,13 @@
exec $WISH $0 $@
# Itk's default class doesn't keep the menu, but Archer needs it - redefine
itk:Toplevel
-set itk_file [file join [bu_brlcad_data "tclscripts"] itk_redefines.tcl]
+set itk_file [file join [bu_brlcad_data "tclscripts"] archer itk_redefines.tcl]
if { ![file exists $itk_file] } {
#try src tree
- set itk_file [file join [bu_brlcad_data "src"] archer itk_redefines.tcl]
+ set itk_file [file join [bu_brlcad_data "src"] tclscripts archer
itk_redefines.tcl]
if { ![file exists $itk_file] } {
#try local relative
- set itk_file [file join src archer itk_redefines.tcl]
+ set itk_file [file join src tclscripts archer itk_redefines.tcl]
}
}
source $itk_file
Deleted: brlcad/branches/cmake/src/archer/itk_redefines.tcl
===================================================================
--- brlcad/branches/cmake/src/archer/itk_redefines.tcl 2011-01-17 14:30:16 UTC
(rev 42392)
+++ brlcad/branches/cmake/src/archer/itk_redefines.tcl 2011-01-17 14:35:27 UTC
(rev 42393)
@@ -1,53 +0,0 @@
-itcl::delete class itk::Toplevel
-
-itcl::class itk::Toplevel {
- inherit itk::Archetype
-
- constructor {args} {
- #
- # Create a toplevel window with the same name as this object
- #
- set itk_hull [namespace tail $this]
- set itk_interior $itk_hull
-
- itk_component add hull {
- toplevel $itk_hull -class [namespace tail [info class]]
- } {
- keep -menu -background -cursor -takefocus
- }
- bind itk-delete-$itk_hull <Destroy> [list itcl::delete object $this]
-
- set tags [bindtags $itk_hull]
- bindtags $itk_hull [linsert $tags 0 itk-delete-$itk_hull]
-
- eval itk_initialize $args
- }
-
- destructor {
- if {[winfo exists $itk_hull]} {
- set tags [bindtags $itk_hull]
- set i [lsearch $tags itk-delete-$itk_hull]
- if {$i >= 0} {
- bindtags $itk_hull [lreplace $tags $i $i]
- }
- destroy $itk_hull
- }
- itk_component delete hull
-
- set components [component]
- foreach component $components {
- set path($component) [component $component]
- }
- foreach component $components {
- if {[winfo exists $path($component)]} {
- destroy $path($component)
- }
- }
- }
-
- itk_option define -title title Title "" {
- wm title $itk_hull $itk_option(-title)
- }
-
- private variable itk_hull ""
-}
Modified: brlcad/branches/cmake/src/tclscripts/archer/CMakeLists.txt
===================================================================
--- brlcad/branches/cmake/src/tclscripts/archer/CMakeLists.txt 2011-01-17
14:30:16 UTC (rev 42392)
+++ brlcad/branches/cmake/src/tclscripts/archer/CMakeLists.txt 2011-01-17
14:35:27 UTC (rev 42393)
@@ -22,6 +22,7 @@
GripEditFrame.tcl
HalfEditFrame.tcl
HypEditFrame.tcl
+ itk_redefines.tcl
LoadArcherLibs.tcl
PartEditFrame.tcl
Plugin.tcl
Copied: brlcad/branches/cmake/src/tclscripts/archer/itk_redefines.tcl (from rev
42381, brlcad/branches/cmake/src/archer/itk_redefines.tcl)
===================================================================
--- brlcad/branches/cmake/src/tclscripts/archer/itk_redefines.tcl
(rev 0)
+++ brlcad/branches/cmake/src/tclscripts/archer/itk_redefines.tcl
2011-01-17 14:35:27 UTC (rev 42393)
@@ -0,0 +1,53 @@
+itcl::delete class itk::Toplevel
+
+itcl::class itk::Toplevel {
+ inherit itk::Archetype
+
+ constructor {args} {
+ #
+ # Create a toplevel window with the same name as this object
+ #
+ set itk_hull [namespace tail $this]
+ set itk_interior $itk_hull
+
+ itk_component add hull {
+ toplevel $itk_hull -class [namespace tail [info class]]
+ } {
+ keep -menu -background -cursor -takefocus
+ }
+ bind itk-delete-$itk_hull <Destroy> [list itcl::delete object $this]
+
+ set tags [bindtags $itk_hull]
+ bindtags $itk_hull [linsert $tags 0 itk-delete-$itk_hull]
+
+ eval itk_initialize $args
+ }
+
+ destructor {
+ if {[winfo exists $itk_hull]} {
+ set tags [bindtags $itk_hull]
+ set i [lsearch $tags itk-delete-$itk_hull]
+ if {$i >= 0} {
+ bindtags $itk_hull [lreplace $tags $i $i]
+ }
+ destroy $itk_hull
+ }
+ itk_component delete hull
+
+ set components [component]
+ foreach component $components {
+ set path($component) [component $component]
+ }
+ foreach component $components {
+ if {[winfo exists $path($component)]} {
+ destroy $path($component)
+ }
+ }
+ }
+
+ itk_option define -title title Title "" {
+ wm title $itk_hull $itk_option(-title)
+ }
+
+ private variable itk_hull ""
+}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Protect Your Site and Customers from Malware Attacks
Learn about various malware tactics and how to avoid them. Understand
malware threats, the impact they can have on your business, and how you
can protect your company and customers by using code signing.
http://p.sf.net/sfu/oracle-sfdevnl
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
