133Fermer135
deleted2Le 07/08/2009 à 23:07
Suggestion : The display of the current folder name is done in upper case, but the filesystem is from now on case-sensitive.
I think it would be a good idea to disp the current folder name in the real case.

Patch (not tested, I can't compile...) :
Graph.asm

ST_folder:
	move.l	4(a7),a0
ST_folder_reg
	jsr	ST_IsHelpQuit
-	; Cvt to Upper case
	lea	FOLDER_TEMP,a1
	moveq	#8-1,d1
\loop		move.b	(a0)+,d0
		beq.s	\fill
-		cmpi.b	#'a'-1,d0
-		bls.s	\NoCvt
-		cmpi.b	#'z',d0
-		bhi.s	\NoCvt
-			add.b	#'A'-'a',d0	; Cvt to Upper case
-\NoCvt		move.b	d0,(a1)+
+		move.b	d0,(a1)+
		dbf	d1,\loop
		bra.s	\final
\fill		move.b	#' ',(a1)+
		dbf	d1,\fill
\final	move.b	#' ',(a1)+
	clr.b	(a1)+