Corretta set_prompt e TReal_field::set_field_data
git-svn-id: svn://10.65.10.50/trunk@2484 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
39a6c40587
commit
761dfe7f02
@ -554,12 +554,12 @@ void TMask_field::reset()
|
|||||||
|
|
||||||
// Certified 00%
|
// Certified 00%
|
||||||
void TMask_field::set_prompt(const char* p)
|
void TMask_field::set_prompt(const char* p)
|
||||||
{
|
{
|
||||||
if (_promptwin != NULL_WIN)
|
WINDOW w = _promptwin != NULL_WIN ? _promptwin : _win;
|
||||||
{
|
|
||||||
word style = 0;
|
word style = 0;
|
||||||
for (const char* s = p; *s == '@'; s++)
|
for (const char* s = p; *s == '@'; s++)
|
||||||
{
|
{
|
||||||
s++;
|
s++;
|
||||||
switch(toupper(*s))
|
switch(toupper(*s))
|
||||||
{
|
{
|
||||||
@ -567,11 +567,10 @@ void TMask_field::set_prompt(const char* p)
|
|||||||
case 'U': style |= XVT_FS_UNDERLINE; break;
|
case 'U': style |= XVT_FS_UNDERLINE; break;
|
||||||
default : CHECKS(0, "Invalid prompt style ", s); break;
|
default : CHECKS(0, "Invalid prompt style ", s); break;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if (style)
|
if (style)
|
||||||
xvt_set_font(_win, "", style, CHARY-12);
|
xvt_set_font(w, "", style, CHARY-12);
|
||||||
xvt_vobj_set_title(_promptwin, (char*)p);
|
xvt_vobj_set_title(w, (char*)p);
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
@ -3015,7 +3014,7 @@ const char* TReal_field::get_window_data() const
|
|||||||
// Certified 100%
|
// Certified 100%
|
||||||
void TReal_field::set_field_data(const char* n)
|
void TReal_field::set_field_data(const char* n)
|
||||||
{
|
{
|
||||||
if (*n)
|
if (n && *n)
|
||||||
{
|
{
|
||||||
real num(n);
|
real num(n);
|
||||||
if (num.is_zero())
|
if (num.is_zero())
|
||||||
|
Loading…
x
Reference in New Issue
Block a user