Method code for $string.left()

[Turn off line numbering]

---

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

---

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