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