New Rich Rext Format
guest213-Aug-2007/16:15:13+2:00
Wahoooo, vous avez vu ça les gars:
REBOL [Title: "Drop File Test"]

win: make gob! [text: "Test Window" offset: 100x100 size: 600x200]
append win gt: make gob! [
    size: win/size
    text: [bold "Drop a file on me, s'il vous plaît."]
]

system/view/event-port: ep: open [scheme: 'event]

ep/awake: func [event] [
    print ["EVENT:" event/type event/offset]
    switch event/type [
        close [quit]
        drop-file [
            repend gt/text ['newline form event/data]
            show gt
        ]
    ]
    tail? system/view/screen-gob
]

view win


C'est pour présenter la gestion du drag'n drop dans R3.
Mais je suis bien plus impressioné par le fait qu'ils ont enfin intégré un rich text format.
LA bonne nouvelle c'est qu'il semble qu'on ait plus besoin de gérer des objets para font ou edge, tout étant intégré dans le block 'text.

Je suis curieux de savoir si la gestion du caret fonctionne (pour la saisie) et aussi si on peut gérer des blocs de texte imbriqués avec héritage des propriétés de style.

Je suis impatient de tester tout ça, ça m'a l'air bien puissant....

Je retire donc ce que j'ai dit précédemment, R3 s'annonce plein de promesses réalisées.
GreG13-Aug-2007/20:43:53+2:00
Enfin du drag&drop! Oui ce sera cool!
guest213-Aug-2007/23:40:30+2:00
Hum, je me suis peut-être enflammé, rien ne dit qu'on pourra gérer plusieurs styles au sein d'un même texte.
La saisie RTF n'est sans doute pas pour demain
DideC21-Aug-2007/21:54:51+2:00
Si si, on peut !
Un autre teasert

; Juste un petit bout de dialect RichText
;;; TEXT
normal-font: make system/standard/font []
normal-para: make system/standard/para []

big-font: make system/standard/font [
	size: 16
	color: 139.69.19
	name: "Tahoma"
;	shadow: 2x2
]

raster-font: make system/standard/font [
	name: "Fixedsys"
	size: 9
]

my-para: make system/standard/para [
	wrap?: false
]

gobt: make gob! [offset: 0x0]
gobt/size: gobc/size
 
gobt/text: [
	para my-para
	scroll scr
	font big-font
	underline
	"Underline text example^/font size 15^/no wrap"
	newline
	para normal-para
	font normal-font
	underline off
	255.0.0
	"Hello World.^/This is normal red text."
	newline
	0.200.0
	bold
	"This is green bold text. It should wrap correctly.^/"
	bold off italic 0.0.255 "This is blue italic text." newline
	drop 3
	"Dropped 3 last attributes."
	newline
	font raster-font
	0.0.0
	bold off
	"Fixed font test"
	italic on
	"Fixed font italic test"
	newline
	drop
	"End of test."
	newline
]

; Avec un petit peu de code en plus, ça s'affiche.

Login required to Post.


Powered by RebelBB and REBOL 2.7.8.4.2