Die Sequenz SimpleButton->new und dann $simplebutton->add_Butt gefällt mir nicht. Wie sind die Namingkonventionen bei SDL? Eine Mischung aus Javastyle (gemischte Klein/Großschreibung) und Perlstyle (mit Unterstrichen) erscheint mir nicht richtig. Ich würde es auch lieber so machen: bereits in new() alle Konfigurationsparameter setzen und statt add_Butt() gleich draw() aufrufen lassen. Vielleicht auf $id als Argument verzichten und stattdessen einen Callback definieren (wie -command bei Perl/Tk?)?

Cooler wäre es noch (aber dann nicht mehr "Simple"), wenn du noch ein Objekt hättest, dass als Container für alle Widget-Objekte fungiert. SimpleButton wäre dann nur eins dieser Widget-Objekte, und du könntest auch noch Radiobuttons, Checkbuttons etc. implementieren. Der Vorteil wäre dann, dass man die checkloop als Benutzer des Moduls nicht selbst implementieren muss, sondern der Container diese Aufgabe übernehmen könnte.