Project

General

Profile

Statistics
| Branch: | Revision:

root / src / tkenv / tkenv.tcl @ 3e29b8a0

History | View | Annotate | Download (2.14 KB)

1 01873262 Georg Kunz
#=================================================================
2
#  TKENV.TCL - part of
3
#
4
#                     OMNeT++/OMNEST
5
#            Discrete System Simulation in C++
6
#
7
#=================================================================
8
9
#----------------------------------------------------------------#
10
#  Copyright (C) 1992-2008 Andras Varga
11
#
12
#  This file is distributed WITHOUT ANY WARRANTY. See the file
13
#  `license' for details on this and other legal matters.
14
#----------------------------------------------------------------#
15
16
#
17
# Load library files
18
#
19
if [info exist OMNETPP_TKENV_DIR] {
20
21
   set dir $OMNETPP_TKENV_DIR
22
23
   source [file join $dir combobox.tcl]
24
   source [file join $dir icons.tcl]
25
   source [file join $dir widgets.tcl]
26
   source [file join $dir balloon.tcl]
27
   source [file join $dir dialogs.tcl]
28
   source [file join $dir windows.tcl]
29
   source [file join $dir inspector.tcl]
30
   source [file join $dir fieldspage.tcl]
31
   source [file join $dir insplist.tcl]
32
   source [file join $dir objinsp.tcl]
33
   source [file join $dir modinsp1.tcl]
34
   source [file join $dir modinsp2.tcl]
35
   source [file join $dir animate.tcl]
36
   source [file join $dir animate2.tcl]
37
   source [file join $dir gateinsp.tcl]
38
   source [file join $dir statinsp.tcl]
39
   source [file join $dir menuproc.tcl]
40
   source [file join $dir main.tcl]
41
   source [file join $dir tree.tcl]
42
   source [file join $dir treemgr.tcl]
43
   source [file join $dir canvlbl.tcl]
44
   source [file join $dir timeline.tcl]
45
   source [file join $dir tkenvrc.tcl]
46
47
}
48
49
#
50
# Execute startup code
51
#
52
proc start_tkenv {} {
53
  global OMNETPP_IMAGE_PATH
54
  global OMNETPP_PLUGIN_PATH
55
  global HAVE_BLT
56
57
  wm withdraw .
58
  checkTclTkVersion
59
  setupTkOptions
60
  generic_bindings
61
  init_balloons
62
  create_omnetpp_window
63
  puts ""
64
  load_bitmaps $OMNETPP_IMAGE_PATH
65
  load_plugins $OMNETPP_PLUGIN_PATH
66
  load_tkenvrc "~/.tkenvrc"
67
  load_tkenvrc ".tkenvrc"
68
  determine_clocks_per_sec
69
70
  global tcl_platform
71
  if {$tcl_platform(platform) == "windows"} {
72
      # without "update", the main window comes up on top of all others, it also
73
      # obscures any dialog box (e.g. param prompt) that might appear at startup!
74
      update
75
  }
76
77
}