RO-fan

Код: Выделить всё

##
# void $interface->iterate()
#
# Process messages in the user interface message queue.
# In other words: make sure the user interface updates itself
# (redraw controls when necessary, etc.).
sub iterate {
	# Do nothing; this is a dummy parent class
}

# void $interface->attention()
#
sub attention {
	# Do nothing; this is a dummy parent class
}



##
# String $interface->getInput(float timeout)
# timeout: Number of second to wait until keyboard data is available. 
#          Negative numbers will wait forever, 0 will not wait at all.
# Returns: The keyboard data (excluding newline), or undef if there's no
#          keyboard data available.
#
# Reads keyboard data.
sub getInput {
	# Do nothing; this is a dummy parent class
}

Код: Выделить всё

sub attention {

#### wxTopLevelWindow::RequestUserAttention

	my $self = shift;
	$self->{frame}->RequestUserAttention();
}

Код: Выделить всё

		Utils::Win32::playSound($config{"alertSound_".$i."_play"});
###добавляем
		$interface->attention;