sub OK_clicked_cb {

	##Testing stuff
	my @entry_widgets =0;	
	my @object_names = ("ip-value","ssid-value","psk-value","device-value");

	$entry_widgets[0] = $builder->get_object( $object_names[0])->get_text();
	$entry_widgets[1] = $builder->get_object( $object_names[1])->get_text();
	$entry_widgets[2] = $builder->get_object( $object_names[2])->get_text();
	$entry_widgets[3] = $builder->get_object( $object_names[3])->get_text();

	print $entry_widgets[0]."\n";
	print $entry_widgets[1]."\n";
	print $entry_widgets[2]."\n";
	print $entry_widgets[3]."\n";
        
}