Download as
Browse Code »

Commit 2e47dd726e694f32bfe85d12e5f125f693d60e1f

Authored by perry.werneck@gmail.com
1 parent 12b54fad
Exists in master and in 5 other branches develop, edit-header-bar, keypads, script-support, v5.2

Incluindo tratamento da flag AS400

Showing 1 changed file with 13 additions and 2 deletions   Show diff stats
src/lib3270/kybd.c
  Diff comments   View file @2e47dd7
... ... @@ -563,10 +563,21 @@ LIB3270_FKEY_ACTION( pfkey )
563 563  
564 564 if (hSession->kybdlock & KL_OIA_MINUS)
565 565 return -1;
566   - else if (hSession->kybdlock)
567   - enq_key(hSession,pf_xlate[key-1]);
  566 +
  567 + if (hSession->kybdlock)
  568 + {
  569 + if(hSession->options & LIB3270_OPTION_AS400)
  570 + enq_key(hSession,pa_xlate[0]);
  571 +
  572 + enq_key(hSession,pf_xlate[key-1]);
  573 + }
568 574 else
  575 + {
  576 + if(hSession->options & LIB3270_OPTION_AS400)
  577 + key_AID(hSession,pa_xlate[0]);
  578 +
569 579 key_AID(hSession,pf_xlate[key-1]);
  580 + }
570 581  
571 582 return 0;
572 583 }
... ...