Method code for $string.right()

[Turn off line numbering]

---

  1: arg str, width, @fchar;
  2: 
  3: // will not chop off 'str' if it is longer than width (unlike pad())
  4: [(fchar ?= " ")] = fchar;
  5: if (strlen(str) < width)
  6:     return pad(str, -width, fchar);
  7: return str;

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit