OBEL: Find/Replace SubString in String

'  ---   '
method Trigger onmsg: msg
begin

  | path1 path2 path3 rtuPath strPath |

    path1 = self getText;
    path2 = self getText;
    path3 = self getText;

   (path3 isSubStr: ".curval")
    ifTrue: [
              path3 replaceSubString: ".curval" with: " .c";
              self setText: path3;
            ];

   (path3 isSubStr: "analog.")
    ifTrue: [
              path3 replaceSubString: "analog." with: "a. ";
              self setText: path3;
            ];

   (path3 isSubStr: "flow_total.")
    ifTrue: [
              path3 replaceSubString: "flow_total." with: "ft. ";
              self setText: path3;
            ];

 ~v_rt_text/dataSrc1.curval setPoint: path1;
 ~v_rt_text/dataSrc1.curval setPoint: path2;

 strPath = path1;
 strPath replaceSubString: ".curval" with: ".rtu";
 ~v_rt_text/dataSrc1.rtu setPoint: strPath;

 strPath = path2;
 strPath replaceSubString: ".curval" with: ".description";
 ~v_rt_text/dataSrc1.desc setPoint: strPath;

  (path1 == "")
  ifTrue: [
     ~v_rt_text/dataSrc1.curval setPoint: "";
     ~v_rt_text/dataSrc1.curval setText: "";
     ~v_rt_text/dataSrc1.rtu    setPoint: "";
     ~v_rt_text/dataSrc1.rtu    setText: "";
     ~v_rt_text/dataSrc1.date   setPoint: "";
     ~v_rt_text/dataSrc1.date   setText: "";
     ~v_rt_text/dataSrc1.desc   setPoint: "";
     ~v_rt_text/dataSrc1.desc   setText: "";
     self setText: "";
  ];

  (path2 == "")
  ifTrue: [
     ~v_rt_text/dataSrc1.curval setPoint: "";
     ~v_rt_text/dataSrc1.curval setText: "";
     ~v_rt_text/dataSrc1.rtu    setPoint: "";
     ~v_rt_text/dataSrc1.rtu    setText: "";
     ~v_rt_text/dataSrc1.date   setPoint: "";
     ~v_rt_text/dataSrc1.date   setText: "";
     ~v_rt_text/dataSrc1.desc   setPoint: "";
     ~v_rt_text/dataSrc1.desc   setText: "";
     self setText: "";
  ];

  ^true
end