setup form !!testform textpane .tx1 'text for label' width 10 hei 5 path down button .create 'create label' callback '!this.create()' exit define method .testform() endmethod define method .create() VIEW HANDLE ANY !!Alert.Message('Goto VIEW level first') RETURN ENDHANDLE !viewName = !!Ce.Name LAYE 1 !getLaye = !!CE.Name !textArray = !this.tx1.Val if (!textArray.Size() EQ 0) then !!Alert.Message('No text input') RETURN endif !newBtext = !textArray[1] do !x from 2 to !textArray.Size() !newBtext = !newBtext + '#/' + !textArray[!x] enddo $!getLaye NEW GLAB DDname $!viewName Btext |$!newBtext| endmethod
Thanks for your code.
