REBOL [
AUTHORS: "Shadwolf (strike again)"
AppName: "RTE-line"
PURPOSE: {Après mûre réflection et comme R3 est toujours pas d'actualité j'ai décidé de travailler
de mon coté à la réalisation d'une Widget pour rebol/view VID2.0 



Voici ce que je compte implémenter

une ligne a un nombre de 80  charactere
On affiche la ligne dans une face toute simple et on utilisera face/effect/draw pour realiser l'affichage
On utilisera les events clavier et sourie pour inserer le texte. 
Le formatage du texte se fera pardes bouton externe et une ligne nous indiquera quel est le mode courant.

La saisie des evenements claviers renseignera un "objet" qui aura les données suivantes:
position, char_ASCII, fnt_couleur
Le curseur se déplacera au clavier ou a l'aide de la sourie.

Déplacements du curseur au clavier:
A partir de le position courant du curseur on ira chercher la position du caractère le plus proche de cette position
ainsi le curseur se déplacera au bon endroit quelque soit la taille du caractère précédent

Déplacement du curseur à la sourie:
 quand on cliquera sur une position relative et dans notre table indexée (ou la position sert d'indexe) 
 la position la plus proche et on placera le curseur a cette position
 
La table serra triée par sort/all 

table de ash (enfin table des caractères saisies indexée en fontion de leur position 

[  [0x0 "a"  red  bold 12]
   [0x5 "b" green underline 25]
   [0x30 "c" yellow normal 25]
]

Cette table sera traité par un moteur de dessin draw/AGG 

On poura aussi y adjoindre un autre moteur pour les besoin de sauvegarde typée.. (MDP  etc...)

Insertion de nouveaux caractères dans un texte deja existant:

 Lors de la saisie du nouveau caractère on détecte si a la position actuelle du curseur il ya deja un caractère
Si tel est le cas on parcours la liste et on applique une incrémentation des valeur de position dans la liste a partir 
de la position trouvée.
Comme chaque caractère est géré de façon propre ca aura pour effet de décaler tout le bloc

une autre implémentation possible ce serrait les objet liés un peu dans le genre d'une liste chainée de struct! en C
 comme c'est plus dificile a mettre en place je testerai ca dans une évolution

La hauteur de la ligne doit dépendre de la taille du texte le plus haut. 
Le text plus petit doit etre dessendu en bas de la ligne.

La touche entrée ne fait rien elle servira dans la version multiline.

}

]

stylize/master [
	rte: box with [
		color: gray 
	    ;tampon: ""
	    ;buffer: [[]]
	    ;line-index: 1
	    ascii-char-tab: [] ; table  ou on stoquera tout ce que l'on va dessiner
	    
	    char-sz: 12
		font-st: none
		stored-curs-position: none
	  	current-text-offset: 5x0
	  	cursor-text-offset: 5x0
	  	max-text-offset: 0x0
	  	text-color: black
	  	tmp-ascii-char: none
	  	pane: []
	  	draw-text: none
	  	rm-char-sz: none
	  	found_existing_coord: false
	  	end-offset: none
	  	tmp: none
	  	set-font-style: func [ font-s [word!] sz-tt [integer!] ] [
			if char-sz <> sz-tt [ 
				if char-sz < sz-tt [ 
					size/y: sz-tt + 15
					show self
				] 
				char-sz: sz-tt
			]
			font-st: font-s
			;insert tail buffer/:line-index compose/deep [[ [ space: 2x0 size: (char-sz) style: [(font-s)] color: (text-color)] (cursor-text-offset - 6x0) "" ]]
		]		
		feel: make feel [
			detect: func [f event] [
				;probe event/type
				;probe event/offset
				
				if event/type == 'down [
					if not empty? f/ascii-char-tab [
						f/tmp: event/offset - f/offset
						foreach item f/ascii-char-tab [
							if item/1/x < f/tmp/x [
								either item/1/x = first first last f/ascii-char-tab [
									f/stored-curs-position: item/1
									f/stored-curs-position/x: item/1/x + (( item/3  / 2) - 1)
								][
									f/stored-curs-position: item/1
									
								]
							]
						] 
						f/pane/1/offset: f/stored-curs-position 
						f/cursor-text-offset: f/stored-curs-position
						show f
					]
				]
				event	
			] 
			engage: func [f a e] [
				switch a [
					key [ 
						probe e/key
						switch/default e/key [
							#"^M" [ ; touche entrer
							 ; pas implémenter pour l'instant
							]
							#"^[" [ ;touche escape ne fait rien
							]
							right [ ;touche fleche droite 
								probe "touche fleche droite activée"
								if not empty? f/ascii-char-tab [
									f/end-offset: first last f/ascii-char-tab
									foreach item f/ascii-char-tab [
										if  item/1/x  ==  f/end-offset/x [
						  					f/stored-curs-position: item/1 
						  					f/stored-curs-position/x: item/1/x + (( item/3  / 2) - 1)
							  				f/pane/1/offset: f/stored-curs-position 
						  	   				f/cursor-text-offset: f/stored-curs-position  
							  				break
							  			]
							  			if item/1/x > f/cursor-text-offset/x [
							  				f/stored-curs-position: item/1
							  				f/pane/1/offset: f/stored-curs-position
						  	   				f/cursor-text-offset: f/stored-curs-position
							  				break
							  			]
							  			
						  	   		]
					  	   		]
							]
							left [ ; touche flèche gauche
								probe "touche flèche gauche activée"
								if not empty? f/ascii-char-tab [
									foreach  item f/ascii-char-tab [
							  			if item/1/x < f/cursor-text-offset/x [
							  				f/stored-curs-position: item/1
							  			]
						  	   		] 
						  	   		f/pane/1/offset: f/stored-curs-position
						  	   		f/cursor-text-offset: f/stored-curs-position
					  	   		]
							]
							#"^H" [ ; touche backspace
							; parcourt le block de données et on cherche la position 
							; la plus proche de la position actuelle du curseur
							 probe "f/cursor-text-offset"
						  	  probe f/current-text-offset
						  	   
								foreach  item f/ascii-char-tab [
							  		if item/1/x < f/cursor-text-offset/x [
							  			f/stored-curs-position: item/1
							  		]
						  	   ] 
						  	   probe "f/stored-curs-position"
						  	   probe f/stored-curs-position
						  	   
						  	   ;on supprime l'element dont la position correspond a 
						  	   f/tmp-ascii-char: copy []
						  	   foreach item f/ascii-char-tab [
									either item/1/x <> f/stored-curs-position/x [
										insert tail f/tmp-ascii-char reduce [ item  ]
									][ f/rm-char-sz: item/3 ]
									if item/1/x > f/stored-curs-position/x [
										switch f/rm-char-sz [
									 	12 [ 
									 		either find "fijltr" e/key [
												item/1/x: item/1/x - 2
											][
												either find "mw" e/key [
													item/1/x: item/1/x - 7
												][
													item/1/x:  item/1/x - 5
													]
											    ]
									 		]
									 	20 [
									 		either find "fijltr" e/key [
												item/1/x:  item/1/x - 5
											][
												either find "mw" e/key [
													item/1/x: item/1/x - 15
												][
													item/1/x: item/1/x - 12
													]
											    ]
									 		]
									 	30 [
									 		either find "fijltr" e/key [
												item/1/x: item/1/x - 11
											][
												either find "mw" e/key [
													item/1/x: item/1/x - 22
												][
													item/1/x: item/1/x - 20
													]
											    ]
									 		]
										]
									either find "MW"  e/key [
										item/1/x: item/1/x - 3
									][ 
										if find "ABCDEFGHIJKLNOPQRSTUVXYZ" e/key [
											item/1/x: item/1/x - 2
										]
									]
								
									]
						  	   ]
						  	    f/ascii-char-tab: none
						  	   
						  	   f/ascii-char-tab: copy f/tmp-ascii-char
						  	   f/tmp-ascii-char: none
						  	   
						  	   ; on déplace le curseur a la stored-position
						  	   f/pane/1/offset: f/stored-curs-position
						  	   f/cursor-text-offset: f/stored-curs-position
						  	   ; on redessine la ligne avec les nouvelle données
						  	   ;on fabrique le block de donnée draw
							   f/draw-text: copy []
							   probe f/draw-text
							   probe "f/ascii-char-tab"
							   probe f/ascii-char-tab
								foreach char f/ascii-char-tab [
									font-obj: make face/font compose/deep [space: 2x0 size: (char/3) style: [(char/4)]  color: (char/5)]
									insert tail f/draw-text  compose [ font (font-obj) pen (font-obj/color) text (char/1) (char/2)]
								]
								probe "f/draw-text"
								probe f/draw-text
								;on dessine le contenu de  du block de donnée draw
								f/effect: none								

								f/effect: make effect reduce [ 'draw (f/draw-text)  ]
							
						  	   ; code d'example pour transformer ascii-char-tab en table de hash ce qui facilite les 
						  	   ; modifications  
						  	   ;hash-tab: [] foreach i ascii-char-tab [ insert tail b reduce [ i/1 reduce [ i/2 i/3 i/4 i/5 ] ]  ]

						 	]
						][
							;si la position est deja présente dans 	la liste alors ca veux dire que la position nouvelle
							; lettre que l'on va insérer dans la liste est déjà prise.
							; il faut prendre en compte aussi la taille des lettres qui précède la position d'insertion
						    foreach item  f/ascii-char-tab [
								if item/1 == f/cursor-text-offset [
									probe "Trouvé coordonnée déjà existante!!" 
									f/found_existing_coord: true
								] 
								if f/found_existing_coord [
									switch item/3 [
									 	12 [ 
									 		either find "fijltr" e/key [
												item/1/x: item/1/x + 2
											][
												either find "mw" e/key [
													item/1/x: item/1/x + 7
												][
													item/1/x:  item/1/x + 5
													]
											    ]
									 		]
									 	20 [
									 		either find "fijltr" e/key [
												item/1/x:  item/1/x + 5
											][
												either find "mw" e/key [
													item/1/x: item/1/x + 15
												][
													item/1/x: item/1/x + 12
													]
											    ]
									 		]
									 	30 [
									 		either find "fijltr" e/key [
												item/1/x: item/1/x + 11
											][
												either find "mw" e/key [
													item/1/x: item/1/x + 22
												][
													item/1/x: item/1/x + 20
													]
											    ]
									 		]
									
									]
									either find "MW"  e/key [
										item/1/x: item/1/x + 3
								
									][ 
										if find "ABCDEFGHIJKLNOPQRSTUVXYZ" e/key [
											item/1/x: item/1/x + 2
										]
									]
								]
								
							]
						    f/found_existing_coord: false
						   
							l-fnt-disp/text: rejoin [ to-string f/char-sz "," to-string f/font-st "," to-string f/text-color ]
							show l-fnt-disp
							; 
							ascii-char-item: compose [ (f/cursor-text-offset) (to-string e/key) (f/char-sz) (f/font-st) (f/text-color) ]
							;ascii-char-item a l'emplacement actuel du curseur, le char saisi, la taille de la fnt, 
							; le style de la font,la couleur de la font
							; 
							probe ascii-char-item
							f/draw-text: copy []
							
							; on insert ascii-char-item dans notre table
							insert tail  f/ascii-char-tab reduce [(ascii-char-item)]
							probe f/ascii-char-tab
							
							;on fabrique le block de donnée draw
							
							foreach char f/ascii-char-tab [
								font-obj: make face/font compose/deep [space: 2x0 size: (char/3) style: [(char/4)]  color: (char/5)]
								insert tail f/draw-text  compose [ font (font-obj) pen (font-obj/color) text (char/1) (char/2)]
							]
							probe f/draw-text
							;on dessine le contenu de  du block de donnée draw
							f/effect: none	
							f/effect: make effect reduce [ 'draw (f/draw-text)  ]
							
							;probe f/effect
							; on déplace la position actuelle du curseur
							
							switch f/char-sz [
								12 [
									either find "fijltr" e/key [
										f/cursor-text-offset/x: f/cursor-text-offset/x + 2
									][
										either find "mw" e/key [
											f/cursor-text-offset/x: f/cursor-text-offset/x + 7
										][
											f/cursor-text-offset/x: f/cursor-text-offset/x + 5
										]
									]
								]
								20 [
									either find "fijltr" e/key [
										f/cursor-text-offset/x: f/cursor-text-offset/x + 5
									][
										either find "mw" e/key [
											f/cursor-text-offset/x: f/cursor-text-offset/x + 15
										][
											f/cursor-text-offset/x: f/cursor-text-offset/x + 12
										]
									]	
								]
								30 [
									either find "fijltr" e/key [
										f/cursor-text-offset/x: f/cursor-text-offset/x + 11
									][
										either find "mw" e/key [
											f/cursor-text-offset/x: f/cursor-text-offset/x + 22
										][
											f/cursor-text-offset/x: f/cursor-text-offset/x + 20
										]
									
									]
								]
							]
							either find "MW"  e/key [
								f/cursor-text-offset/x: f/cursor-text-offset/x + 3
								
							][ 
								if find "ABCDEFGHIJKLNOPQRSTUVXYZ" e/key [
									f/cursor-text-offset/x: f/cursor-text-offset/x + 2
								]
							]
							
							probe f/cursor-text-offset/x: f/cursor-text-offset/x
							f/pane/1/offset: f/cursor-text-offset
							sort/all  f/ascii-char-tab
						]
						show f
					]
					down [
						;insert f/buffer compose [(as-pair 0 (line-index * 20)) ""]
						probe e
						f/color: white show f focus f
					]
					
				]
			]
		]
		append init [
			; probe buffer
			set-font-style 'normal char-sz
			insert pane make face [ color: red size: 2x20 offset: cursor-text-offset  ]
			show self 
		]
	]
]

view layout [
  across
  	btn "bold" [test-rte/set-font-style 'bold (to-integer dd1/text)]
  	btn "underline" [test-rte/set-font-style 'underline (to-integer dd1/text)]
  	btn "italic" [test-rte/set-font-style 'italic (to-integer dd1/text)]
  	btn "normal" [test-rte/set-font-style 'normal (to-integer dd1/text)]
	dd1: drop-down "12" "20" "30" [test-rte/set-font-style test-rte/font-st (to-integer dd1/text) ]
	col-r: box 20x20 black edge [ siez: 2x2 color: black] [ test-rte/text-color: request-color col-r/color: test-rte/text-color show col-r test-rte/set-font-style test-rte/font-st  test-rte/char-sz  ]
  return
  	test-rte: rte 400x20
  return
    text black "Current font style: "
    l-fnt-disp: text black 200x20 ""
] 
do-events