… | |
… | |
182 | sub debug { |
182 | sub debug { |
183 | $DEBUG_STATUS->set_text ($_[0]); |
183 | $DEBUG_STATUS->set_text ($_[0]); |
184 | } |
184 | } |
185 | |
185 | |
186 | sub message { |
186 | sub message { |
187 | my ($para) = @_; |
|
|
188 | $MESSAGE_WINDOW->message ($para); |
187 | $MESSAGE_WINDOW->message (@_); |
189 | } |
188 | } |
190 | |
189 | |
191 | ############################################################################# |
190 | ############################################################################# |
192 | #TODO: maybe move into own audio module... |
191 | #TODO: maybe move into own audio module... |
193 | |
192 | |