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,8 +40,15 @@ | ||
40 | 40 | ||
41 | s = strip(left(text,field_len)) | 41 | s = strip(left(text,field_len)) |
42 | p = lastpos(" ",s) | 42 | p = lastpos(" ",s) |
43 | + n = pos(d2c(10),s) | ||
43 | 44 | ||
44 | select | 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 | when length(text) < field_len then | 52 | when length(text) < field_len then |
46 | do | 53 | do |
47 | s = strip(text) | 54 | s = strip(text) |
@@ -65,6 +72,7 @@ | @@ -65,6 +72,7 @@ | ||
65 | if next <= cursor then | 72 | if next <= cursor then |
66 | do | 73 | do |
67 | /* Next field is before the original position */ | 74 | /* Next field is before the original position */ |
75 | + host~SetClipboard(text) | ||
68 | return 0 | 76 | return 0 |
69 | end | 77 | end |
70 | 78 |