OBEL: Ping & TraceRoute routines

~v_button/IPbutton colorReleasedFace: 254 topBevel: 7  bottomBevel: 8;
  ~v_button/IPbutton setLabelColor: 255;
  ~v_button/IPbutton setLabel: \"Ping\";

  ~v_button/IPtrace colorReleasedFace: 254 topBevel: 7  bottomBevel: 8;
  ~v_button/IPtrace setLabelColor: 255;
  ~v_button/IPtrace setLabel: \"Trace\";

method Trigger onmsg: msg
begin
| IPget mongo |
  IPget = self getText;
  mongo = \"CMD /C  ping -a -n 6 \" << IPget;
  System spawn: mongo;
 ^true
end

    IconToolTipText = "Ping-a-doodle" ;
      ActionList = (
         Action = (
            Trigger = (
               TriggerName = "LeftMouseButtonRelease" ;
               ObelCode = "' SCCSid is \"@(#)Button.obel    6.1 3/1/96\" '

method Trigger onmsg: msg
begin

| IPget mongo  rtuB  descB |
  IPget = ~v_rt_text/IPbox getText;

  (IPget == \"localhost\")                          'e.g., Sta145'
     ifTrue:
       [ IPget = ~v_rt_text/RTUbox getText;
         ~v_rt_text/IPbox  setFGColor: 128;
       ];

  (IPget == \"pccrealtime\")                            'e.g., Sta85'
     ifTrue:
       [ IPget = ~v_rt_text/RTUbox getText;
         ~v_rt_text/IPbox  setFGColor: 128;
       ];

  mongo = \"CMD /C  tracert \" << IPget;
  System spawn: mongo;

 ^true
end