Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Red [
- Date: 2018-10-18
- On-request-of: "@GiuseppeChillemi"
- ]
- add-word: func [txt area][
- txt2: take/part at txt area1/selected/1
- area1/selected/2 - area1/selected/1 + 1
- if system/platform = 'Windows [
- parse txt [some [newline remove newline | skip]]
- parse txt2 [some [newline remove newline | skip]]
- ]
- area1/text: txt
- append append area/text txt2 newline
- ]
- tx: "Sed^/ut^/perspiciatis^/unde^/omnis^/iste^/natus^/error^/sit"
- view [
- below
- button "Highlight" 70 [area1/selected: sz/data set-focus area1]
- sz: field 70 "1x10"
- button "Restore" 70 [
- area1/text: copy tx
- area2/text: copy "" area3/text: copy ""
- ]
- return
- area1: area 300x200 focus wrap tx on-select [
- sz/text: form face/selected
- ]
- panel [
- origin 0x0 below
- r2: radio "area2" data true on-change [b2/data: pick reduce [area2 area3] face/data]
- area2: area 145x100 "" wrap
- return
- r3: radio "area3"
- area3: area 145x100 "" wrap
- ]
- return
- b2: button "Cut" 70 data area2 [
- if area1/selected [
- nls1: nls2: 0
- if system/platform = 'Windows [
- parse txt: copy area1/text [some [newline c: (c: insert c newline) :c | skip]]
- ]
- add-word txt face/data
- area1/selected: none
- ]
- set-focus area1
- ]
- field 70 hint "Find" [
- found: find area1/text face/text
- if found [
- idx: index? found
- if system/platform = 'Windows [
- parse copy/part area1/text idx [some [newline (idx: idx + 1) | skip]]
- ]
- area1/selected: as-pair idx idx + (length? face/text) - 1
- sz/text: form area1/selected
- set-focus area1
- ]
- ]
- ]
Add Comment
Please, Sign In to add comment