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,11 +44,13 @@
44 44
45 /*--[ Implement ]------------------------------------------------------------------------------------*/ 45 /*--[ Implement ]------------------------------------------------------------------------------------*/
46 46
47 -RexxMethod1(int, rx3270_method_init, CSTRING, type) 47 +RexxMethod1(int, rx3270_method_init, OPTIONAL_CSTRING, type)
48 { 48 {
49 // Set session class in rexx object 49 // Set session class in rexx object
50 try 50 try
51 { 51 {
  52 + if(!(type && *type))
  53 + type = "";
52 RexxPointerObject sessionPtr = context->NewPointer(session::create(type)); 54 RexxPointerObject sessionPtr = context->NewPointer(session::create(type));
53 context->SetObjectVariable("CSELF", sessionPtr); 55 context->SetObjectVariable("CSELF", sessionPtr);
54 } 56 }