Method code for $has_text.ins_line()

[Turn on line numbering]

---

arg txt, @loc;
var t;

// inserts txt at loc (where loc is an integer)
if (!.is_writable_by(sender()) && sender() != this())
    throw(~perm, "Permission Denied.");
[(loc ?= 0)] = loc;
t = .get_raw_text();
if (!loc)
    t += [txt];
else
    t = (> t.insert(loc, txt) <);
.set_text(t);

// $#Edited: 23 May 97 07:47 $user_bruce
// $#Edited: 23 May 97 07:49 $user_bruce

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]