Download as
Browse Code »

Commit 57c4da78c1acfd622c760c5d44cdc9877bd4011f

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

Compatibilizando classe rexx com scripts antigos

Showing 1 changed file with 3 additions and 1 deletions   Show diff stats
src/plugins/rx3270/rexx_methods.cc
  Diff comments   View file @57c4da7
... ... @@ -44,11 +44,13 @@
44 44  
45 45 /*--[ Implement ]------------------------------------------------------------------------------------*/
46 46  
47   -RexxMethod1(int, rx3270_method_init, CSTRING, type)
  47 +RexxMethod1(int, rx3270_method_init, OPTIONAL_CSTRING, type)
48 48 {
49 49 // Set session class in rexx object
50 50 try
51 51 {
  52 + if(!(type && *type))
  53 + type = "";
52 54 RexxPointerObject sessionPtr = context->NewPointer(session::create(type));
53 55 context->SetObjectVariable("CSELF", sessionPtr);
54 56 }
... ...