$Spinbox_Std->bind ('<FocusOut>', sub{ 	if ( $Spinbox_Std->get() =~ /\D/ || $Spinbox_Std->get() > 23  )	{ 
$Spinbox_Std->delete(0, 'end');
$Spinbox_Std->insert('end', '23');
}
} );