Commit 3a0ae668b412674f2fb70e02fbb73bfac2e722d6
1 parent
cab7a83b
Exists in
master
and in
5 other branches
Incluindo tratamento para final de parágrafo
Showing
1 changed file
with
8 additions
and
0 deletions
Show diff stats
src/plugins/rx3270/sample/clipboard.rex
... | ... | @@ -40,8 +40,15 @@ |
40 | 40 | |
41 | 41 | s = strip(left(text,field_len)) |
42 | 42 | p = lastpos(" ",s) |
43 | + n = pos(d2c(10),s) | |
43 | 44 | |
44 | 45 | select |
46 | + when n <> 0 then | |
47 | + do | |
48 | + s = strip(left(text,n-1)) | |
49 | + text = strip(substr(text,n+1)) | |
50 | + end | |
51 | + | |
45 | 52 | when length(text) < field_len then |
46 | 53 | do |
47 | 54 | s = strip(text) |
... | ... | @@ -65,6 +72,7 @@ |
65 | 72 | if next <= cursor then |
66 | 73 | do |
67 | 74 | /* Next field is before the original position */ |
75 | + host~SetClipboard(text) | |
68 | 76 | return 0 |
69 | 77 | end |
70 | 78 | ... | ... |