home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / comanche / startComanche.tcl < prev   
Text File  |  2000-11-02  |  4KB  |  124 lines
  1.  
  2. proc debug {args} {
  3.     puts $args
  4. }
  5. source comanche.tcl
  6. wm title . "Comanche $::comanche::version"
  7. package require Itcl
  8. catch "namespace import itcl::*"
  9. lappend auto_path .
  10. lappend auto_path ..
  11. lappend auto_path ../xuibuilder
  12. package require BWidget
  13. package require xml
  14. package require dom
  15. source ../help/apacheDocGui.tcl
  16. source ../libplugin/libgui.tcl
  17. source ../extra/tkgetdir.tcl
  18. source ../extra/center.tcl
  19. source ../htmlib/html_library.tcl
  20. source ../xuibuilder/ddom.tcl
  21. source ../xuibuilder/unique.tcl
  22. source ../xuibuilder/xuiBuilder.tcl
  23. source ../xuibuilder/xuiChoiceCreator.tcl
  24. source ../xuibuilder/xuiStringCreator.tcl
  25. source ../xuibuilder/xuiBooleanCreator.tcl
  26. source ../xuibuilder/xuiListCreator.tcl
  27. source ../xuibuilder/xuiStructureCreator.tcl
  28. source ../xuibuilder/xuiAlternateCreator.tcl
  29. source ../xuibuilder/xuiGroupCreator.tcl
  30. source ../xuibuilder/xuiPropertyPageCreator.tcl
  31. source ../xuibuilder/xuiPropertyPagesCreator.tcl
  32. source ../xuibuilder/xuiDirDefinitionCreator.tcl
  33. source ../xuibuilder/xuiLabelCreator.tcl
  34. source ../xuibuilder/xuiNumberCreator.tcl
  35. source ../xuibuilder/xuiIncludeCreator.tcl
  36. source ../gui/guiObject.tcl
  37. source ../gui/guiMultipleChoice.tcl
  38. source ../gui/guiLabeled.tcl
  39. source ../gui/guiChoice.tcl
  40. source ../gui/guiBoolean.tcl
  41. source ../gui/guiBooleanRadioButton.tcl
  42. source ../gui/guiStructure.tcl
  43. source ../gui/guiBuilder.tcl
  44. source ../gui/guiString.tcl
  45. source ../gui/guiStringDirectory.tcl
  46. source ../gui/guiStringFile.tcl
  47. source ../gui/guiAlternate.tcl
  48. source ../gui/guiList.tcl
  49. source ../gui/guiLabel.tcl
  50. source ../gui/guiPropertyPages.tcl
  51. source ../gui/guiPropertyPagesNotebook.tcl
  52. source ../gui/guiImage.tcl
  53. source ../xul/xuiObject.tcl
  54. source ../xul/xuiImage.tcl
  55. source ../xul/xuiString.tcl
  56. source ../xul/xuiChoice.tcl
  57. source ../xul/xuiBoolean.tcl
  58. source ../xul/xuiStructure.tcl
  59. source ../xul/xuiPropertyPage.tcl
  60. source ../xul/xuiAlternate.tcl
  61. source ../xul/xuiList.tcl
  62. source ../xul/xuiLabel.tcl
  63. source ../xul/xuiNumber.tcl
  64. source ../xul/xuiNode.tcl
  65. source ../namespace/namespace.tcl
  66. source ../namespace/plugInDatabase.tcl
  67. source ../view/images.tcl
  68. source ../view/tree.tcl
  69. source ../view/console.tcl
  70. source ../view/rightPane.tcl
  71. source ../view/view.tcl
  72. source ../view/propertyPagesDialog.tcl
  73. source ../view/wizardDialog.tcl
  74. source ../view/commandResult.tcl
  75. source ../libplugin/stack.tcl
  76. source ../libplugin/plugIn.tcl
  77. source ../libplugin/configuration.tcl
  78. source ../libplugin/parser.tcl
  79. source ../libplugin/ppManager.tcl            
  80. source ../libplugin/lremove.tcl
  81. source ../libplugin/splash.tcl
  82. source ../libplugin/mesg.tcl
  83. source ../conf/comanche.conf
  84.  
  85.  
  86.  
  87. xuiBuilder ::globalXuiBuilder [list \
  88.     boolean [booleanCreator ::#auto] \
  89.     string [stringCreator ::#auto] \
  90.     structure [structureCreator ::#auto] \
  91.     alternate [alternateCreator ::#auto] \
  92.     choice [choiceCreator ::#auto] \
  93.     list [listCreator ::#auto] \
  94.     group [groupCreator ::#auto] \
  95.     propertyPage [propertyPageCreator ::#auto] \
  96.     propertyPages [propertyPagesCreator ::#auto] \
  97.     dirDefinition [dirDefinitionCreator ::#auto] \
  98.     label [labelCreator ::#auto] \
  99.     number [numberCreator ::#auto] \
  100.     ]
  101.  
  102.  
  103. splash::init
  104.  
  105. splash::add "Initializing Comanche"
  106. # Null object used for example when querying but do not want to get informed
  107. # of updates. This is a hack, change
  108.  
  109. proc null {args} {} 
  110. ::mesg::processMesgCatalogDir ../messages
  111.  
  112. namespaceServer ::ns
  113.  
  114. source ../plugins/manager/init.tcl
  115. manager_init -namespace ::ns -moduledirectory ../plugins/manager
  116.  
  117. comancheConsole dani
  118. ns registerView dum ::dani
  119. dani newNamespace ::ns
  120.  
  121. splash::end
  122.  
  123. centerScreen .
  124.