Revision: 42349
          http://brlcad.svn.sourceforge.net/brlcad/?rev=42349&view=rev
Author:   starseeker
Date:     2011-01-16 23:38:30 +0000 (Sun, 16 Jan 2011)

Log Message:
-----------
Put itcl/itk logic back, pull in trunk's LoadArcherLibs.tcl.

Modified Paths:
--------------
    brlcad/branches/cmake/configure.ac
    brlcad/branches/cmake/misc/win32-msvc8/tclsh/library/installTree.tcl
    brlcad/branches/cmake/src/libtclcad/tclcadAutoPath.c
    brlcad/branches/cmake/src/other/Makefile.am
    brlcad/branches/cmake/src/other/incrTcl/Makefile.am
    brlcad/branches/cmake/src/tclscripts/archer/LoadArcherLibs.tcl

Modified: brlcad/branches/cmake/configure.ac
===================================================================
--- brlcad/branches/cmake/configure.ac  2011-01-16 23:36:28 UTC (rev 42348)
+++ brlcad/branches/cmake/configure.ac  2011-01-16 23:38:30 UTC (rev 42349)
@@ -4346,11 +4346,11 @@
        src/other/incrTcl/itk/library/Makefile
        src/other/incrTcl/itk/pkgIndex.tcl
        src/other/incrTcl/tools/Makefile
-       src/other/incrTcl/iwidgets/Makefile
-       src/other/incrTcl/iwidgets/doc/Makefile
-       src/other/incrTcl/iwidgets/generic/Makefile
-       src/other/incrTcl/iwidgets/iwidgets.tcl
-       src/other/incrTcl/iwidgets/pkgIndex.tcl
+       src/other/iwidgets/Makefile
+       src/other/iwidgets/doc/Makefile
+       src/other/iwidgets/generic/Makefile
+       src/other/iwidgets/iwidgets.tcl
+       src/other/iwidgets/pkgIndex.tcl
        src/other/jove/Makefile
        src/other/jove/teach-jove
        src/other/libregex/Makefile

Modified: brlcad/branches/cmake/misc/win32-msvc8/tclsh/library/installTree.tcl
===================================================================
--- brlcad/branches/cmake/misc/win32-msvc8/tclsh/library/installTree.tcl        
2011-01-16 23:36:28 UTC (rev 42348)
+++ brlcad/branches/cmake/misc/win32-msvc8/tclsh/library/installTree.tcl        
2011-01-16 23:38:30 UTC (rev 42349)
@@ -49,14 +49,14 @@
 
 # Look for required source files
 set missingFile 0
-if {![file exists [file join $rootDir src other incrTcl iwidgets 
iwidgets.tcl.in]]} {
-  puts "ERROR: Missing [file join $rootDir src other incrTcl iwidgets 
iwidgets.tcl.in]"
+if {![file exists [file join $rootDir src other iwidgets iwidgets.tcl.in]]} {
+  puts "ERROR: Missing [file join $rootDir src other iwidgets iwidgets.tcl.in]"
   set missingFile 1
 }
 
 
-if {![file exists [file join $rootDir src other incrTcl iwidgets 
pkgIndex.tcl.in]]} {
-  puts "ERROR: Missing [file join $rootDir src other incrTcl iwidgets 
pkgIndex.tcl.in]"
+if {![file exists [file join $rootDir src other iwidgets pkgIndex.tcl.in]]} {
+  puts "ERROR: Missing [file join $rootDir src other iwidgets pkgIndex.tcl.in]"
   set missingFile 1
 }
 
@@ -205,7 +205,7 @@
 catch {
   copy_stuff [file join $rootDir src other incrTcl itcl library] [file join 
$installDir lib itcl$itclVersion]
   copy_stuff [file join $rootDir src other incrTcl itk library] [file join 
$installDir lib itk$itclVersion]
-  copy_stuff [file join $rootDir src other incrTcl iwidgets generic] [file 
join $installDir lib iwidgets$iwidgetsVersion scripts]
+  copy_stuff [file join $rootDir src other iwidgets generic] [file join 
$installDir lib iwidgets$iwidgetsVersion scripts]
   copy_stuff [file join $rootDir src other tcl library] [file join $installDir 
lib tcl$tclVersion]
   copy_stuff [file join $rootDir src other tk library] [file join $installDir 
lib tk$tclVersion]
 }
@@ -249,7 +249,7 @@
 
 puts "\[08 of 15] CREATING iwidgets.tcl"
 catch {
-  set fd1 [open [file join $rootDir src other incrTcl iwidgets 
iwidgets.tcl.in] r]
+  set fd1 [open [file join $rootDir src other iwidgets iwidgets.tcl.in] r]
   set lines [read $fd1]
   close $fd1
   if {$verbose} { puts "Creating [file join $installDir lib 
iwidgets$iwidgetsVersion iwidgets.tcl]" }
@@ -263,7 +263,7 @@
 
 puts "\[09 of 15] CREATING pkgIndex.tcl FOR iwidgets"
 catch {
-  set fd1 [open [file join $rootDir src other incrTcl iwidgets 
pkgIndex.tcl.in] r]
+  set fd1 [open [file join $rootDir src other iwidgets pkgIndex.tcl.in] r]
   set lines [read $fd1]
   close $fd1
   if {$verbose} { puts "Creating [file join $installDir lib 
iwidgets$iwidgetsVersion pkgIndex.tcl]" }

Modified: brlcad/branches/cmake/src/libtclcad/tclcadAutoPath.c
===================================================================
--- brlcad/branches/cmake/src/libtclcad/tclcadAutoPath.c        2011-01-16 
23:36:28 UTC (rev 42348)
+++ brlcad/branches/cmake/src/libtclcad/tclcadAutoPath.c        2011-01-16 
23:38:30 UTC (rev 42349)
@@ -175,7 +175,7 @@
  * src/other/tk/library/tk.tcl
  * src/other/incrTcl/itcl/library/itcl.tcl
  * src/other/incrTcl/itk/library/itk.tcl
- * src/other/incrTcl/iwidgets/library/iwidgets.tcl
+ * src/other/iwidgets/library/iwidgets.tcl
  * src/tclscripts/pkgIndex.tcl and subdirs
  *
  * if TCLCAD_LIBRARY_PATH is set
@@ -295,8 +295,8 @@
                      BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR, 
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
        bu_vls_printf(&auto_path, "%c%s%csrc%cother%cincrTcl%citk%clibrary",
                      BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR, 
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
-       bu_vls_printf(&auto_path, "%c%s%csrc%cother%cincrTcl%ciwidgets",
-                     BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR, 
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
+       bu_vls_printf(&auto_path, "%c%s%csrc%cother%ciwidgets",
+                     BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR, 
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
        bu_vls_printf(&auto_path, "%c%s%csrc%ctclscripts",
                      BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR, 
BU_DIR_SEPARATOR);
        bu_vls_printf(&auto_path, "%c%s%csrc%ctclscripts%clib",
@@ -332,8 +332,8 @@
                          BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR, 
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, 
BU_DIR_SEPARATOR);
            bu_vls_printf(&auto_path, 
"%c%s%c..%csrc%cother%cincrTcl%citk%clibrary",
                          BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR, 
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, 
BU_DIR_SEPARATOR);
-           bu_vls_printf(&auto_path, "%c%s%c..%csrc%cother%cincrTcl%ciwidgets",
-                         BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR, 
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
+           bu_vls_printf(&auto_path, "%c%s%c..%csrc%cother%ciwidgets",
+                         BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR, 
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
            bu_vls_printf(&auto_path, "%c%s%c..%csrc%ctclscripts",
                          BU_PATH_SEPARATOR, srcpath, BU_DIR_SEPARATOR, 
BU_DIR_SEPARATOR, BU_DIR_SEPARATOR);
            bu_vls_printf(&auto_path, "%c%s%c..%csrc%ctclscripts%clib",

Modified: brlcad/branches/cmake/src/other/Makefile.am
===================================================================
--- brlcad/branches/cmake/src/other/Makefile.am 2011-01-16 23:36:28 UTC (rev 
42348)
+++ brlcad/branches/cmake/src/other/Makefile.am 2011-01-16 23:38:30 UTC (rev 
42349)
@@ -43,6 +43,18 @@
 TKDIR=
 endif
 
+if BUILD_ITCL
+ITCLDIR=incrTcl
+else !BUILD_ITCL
+ITCLDIR=
+endif
+
+if BUILD_IWIDGETS
+IWIDGETSDIR=iwidgets
+else !BUILD_IWIDGETS
+IWIDGETSDIR=
+endif
+
 if BUILD_TERMLIB
 TERMLIBDIR=libtermlib
 else !BUILD_TERMLIB
@@ -142,7 +154,7 @@
        $(URTDIR) \
        ${TCLDIR} \
        ${TKDIR} \
-       incrTcl \
+       ${ITCLDIR} \
        ${IWIDGETSDIR} \
        ${TERMLIBDIR} \
        ${JOVEDIR} \
@@ -167,6 +179,7 @@
 DIST_SUBDIRS = \
        URToolkit \
        incrTcl \
+       iwidgets \
        jove \
        libpng \
        libregex \

Modified: brlcad/branches/cmake/src/other/incrTcl/Makefile.am
===================================================================
--- brlcad/branches/cmake/src/other/incrTcl/Makefile.am 2011-01-16 23:36:28 UTC 
(rev 42348)
+++ brlcad/branches/cmake/src/other/incrTcl/Makefile.am 2011-01-16 23:38:30 UTC 
(rev 42349)
@@ -3,12 +3,6 @@
        libitcl.la \
        libitcl@[email protected]
 
-if BUILD_ITCL
-ITCLDIR= itcl
-else !BUILD_ITCL
-ITCLDIR=
-endif
-
 if BUILD_ITK
 ITKDIR = itk
 ITKLIB = \
@@ -19,25 +13,17 @@
 ITKLIB =
 endif
 
-if BUILD_IWIDGETS
-IWIDGETSDIR=iwidgets
-else !BUILD_IWIDGETS
-IWIDGETSDIR=
-endif
-
 SUBDIRS = \
        doc \
-       $(ITCLDIR) \
+       itcl \
        $(ITKDIR) \
-       tools \
-       $(IWIDGETSDIR)
+       tools
 
 DIST_SUBDIRS = \
        doc \
        itcl \
        itk \
-       tools \
-       iwidgets
+       tools
 
 EXTRA_DIST = \
        CHANGES \

Modified: brlcad/branches/cmake/src/tclscripts/archer/LoadArcherLibs.tcl
===================================================================
--- brlcad/branches/cmake/src/tclscripts/archer/LoadArcherLibs.tcl      
2011-01-16 23:36:28 UTC (rev 42348)
+++ brlcad/branches/cmake/src/tclscripts/archer/LoadArcherLibs.tcl      
2011-01-16 23:38:30 UTC (rev 42349)
@@ -29,6 +29,15 @@
 proc LoadArcherCoreLibs {} {
     global tcl_platform
 
+    # load tkpng
+    if { [catch {package require tkpng} _initialized] } {
+       puts "$_initialized"
+       puts ""
+       puts "ERROR: Unable to load tkpng"
+       exit 1
+    }
+
+
     if { [catch {package require Swidgets} _initialized] } {
        puts "$_initialized"
        puts ""
@@ -36,9 +45,6 @@
        exit 1
     }
 
-    # load tkpng
-    catch {package require tkpng} tkpng
-
     # load Tkhtml
     catch {package require hv3 0.1} hv3
 }


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

Reply via email to