Commit 3a0ae668b412674f2fb70e02fbb73bfac2e722d6

Authored by perry.werneck@gmail.com
1 parent cab7a83b

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  
... ...