changed buttons to AUTO SEARCH/REFINE/PAUSE-RUN
[dyninst.git] / paradyn / tcl / initSHG.tcl
1 #initSHG.tcl
2 # all tk setup for search history graph display, including initializing 
3 # some default styles for dag nodes and edges
4
5 # $Log: initSHG.tcl,v $
6 # Revision 1.2  1994/05/06 06:41:04  karavan
7 # changed buttons to AUTO SEARCH/REFINE/PAUSE-RUN
8 #
9 # Revision 1.1  1994/05/03  06:36:00  karavan
10 # Initial version.
11 #
12
13 proc SHGpause {butt} {
14 global PCsearchState
15 if {$PCsearchState == 1} {
16  set PCsearchState 0
17  $butt configure -text "RESUME"
18  paradyn search pause
19 } else {
20  set PCsearchState 1
21  $butt configure -text "PAUSE"
22  paradyn search true -1
23 }
24 }
25
26 proc shgShortExplain {num} {
27         puts $num
28 }
29
30 proc shgFullName {whoCan} {
31         set nodeID [lindex [$whoCan gettags current] 0]
32         if [string match n* $nodeID] {
33                 shgShortExplain [string range $nodeID 1 end]
34         }
35 }
36
37 proc initSHG {} {
38
39 global SHGname PCsearchState
40
41 set PCsearchState 1
42 set clrSHGQUITBUTTbg "#fb63e620d36b"
43 set clrSHGSTEPBUTTbg "#fb63e620d36b"
44 set clrSHGAUTOBUTTbg "#fb63e620d36b"
45 set clrSHGPAUSEBUTTbg "#fb63e620d36b"
46 toplevel $SHGname
47  
48 wm minsize $SHGname 200 200
49 dag $SHGname.d01 
50 frame $SHGname.buttons -bg  "#fb63e620d36b"
51 button $SHGname.buttons.b1 -text "QUIT PC" -bg $clrSHGQUITBUTTbg \
52         -command {destroy $SHGname}
53 button $SHGname.buttons.b2 -text "REFINE" -bg $clrSHGSTEPBUTTbg \
54         -command {paradyn search true 1}
55 button $SHGname.buttons.b3 -text "AUTO SEARCH" -bg $clrSHGAUTOBUTTbg \
56         -command {paradyn search true -1}
57 button $SHGname.buttons.b4 -text "PAUSE" -bg $clrSHGPAUSEBUTTbg \
58         -command {SHGpause $SHGname.buttons.b4}   
59 label $SHGname.title -text "Paradyn Search History" -fg black \
60         -font "-Adobe-times-medium-r-normal--*-120*" \
61         -bg "#fb63e620d36b" -relief raised
62  
63 pack $SHGname.title -side top -fill both
64 pack $SHGname.d01 -side top -expand 1 -fill both
65 pack $SHGname.buttons -side bottom -expand 0 -fill x
66 pack $SHGname.buttons.b2 $SHGname.buttons.b3 $SHGname.buttons.b4 \
67         $SHGname.buttons.b1 -side left -expand yes -fill x
68
69 wm title $SHGname "Performance Consultant"
70 #$SHGname.d01 bind all <2> {shgFullName $SHGname.d01._c_}
71
72 # style 1: not tested 
73 $SHGname.d01 addNstyle 1 -bg DarkSalmon \
74                 -font "-Adobe-times-medium-r-normal--*-120*" \
75                 -text "SlateGrey" -outline  "DarkSlateGrey" \
76                 -stipple "" -width 1
77
78 # style 2: not active
79 $SHGname.d01 addNstyle 2 -bg #a41bab855fe1 \
80          -font "-Adobe-times-medium-r-normal--*-120*" \
81         -text black -outline DarkSlateGrey -stipple "" -width 1
82
83 #style 3: active and true
84 $SHGname.d01 addNstyle 3 -bg  #4cc6c43dc7ef \
85         -font "-Adobe-times-medium-r-normal--*-120*" \
86         -text black  -outline "SlateGrey" -stipple "" -width 1
87
88 #style 4: active and false
89 $SHGname.d01 addNstyle 4 -bg #8ba59f3b91f3 \
90          -font "-Adobe-times-medium-r-normal--*-120*" \
91         -text white -outline DarkSlateGrey -stipple "" -width 1
92
93 $SHGname.d01 addEstyle 1 -arrow none -fill #f91612aedde6 -width 2
94 $SHGname.d01 addEstyle 2 -arrow none -fill #ffff8ada2b02 -width 2
95 $SHGname.d01 addEstyle 3 -arrow none -fill black -width 2
96
97 }
98