enter-room.tcl