- alias dbar {
- if ($1 isnum 0-15 && $2 isnum && $3-) {
- var %ù $calc($width($3-,tahoma,12) +25)
- window -hbk0p +Ld @BDBar -1 -1 %ù 20
- drawrect -f @BDBar $1 0 0 0 %ù 20
- drawtext -pb @BDBar 1 $1 tahoma 12 2 2 $3-
- window -abCdk0p +Led @DBar -1 -1 %ù 20
- drawrect -f @DBar $1 0 0 0 %ù 20
- set %dbar.ref $2
- set %dbar.sens 37
- dbar.refresh %ù %ù
- }
- else echo $color(info) * /dbar: invalid parameters
- }
- alias -l dbar.refresh {
- if ($2 == $+(-,$1)) tokenize 32 $1 $1
- elseif ($2 == $calc($1 *2)) tokenize 32 $1 $+(-,$1)
- drawcopy @BDBar 0 0 $window(@BDBar).w $window(@BDBar).h @DBar $2 0
- .timerdbar -m 1 $gettok(%dbar.ref,1,32) dbar.refresh $1 $calc($2 $iif(%dbar.sens == 37,-,+) 1)
- }
- on *:KEYDOWN:@DBar:37,39:{
- %dbar.sens = $keyval
- if (!$gettok(%dbar.ref,2,32)) %dbar.ref = $calc(%dbar.ref /2) 1
- }
- on *:KEYUP:@DBar:37,39:{ %dbar.ref = $calc($gettok(%dbar.ref,1,32) *2) }
- menu @DBar {
- Fermer:.timerdbar off | close -@ @DBar | close -@ @BDBar | unset %dbar.*
- }
alias dbar {
if ($1 isnum 0-15 && $2 isnum && $3-) {
var %ù $calc($width($3-,tahoma,12) +25)
window -hbk0p +Ld @BDBar -1 -1 %ù 20
drawrect -f @BDBar $1 0 0 0 %ù 20
drawtext -pb @BDBar 1 $1 tahoma 12 2 2 $3-
window -abCdk0p +Led @DBar -1 -1 %ù 20
drawrect -f @DBar $1 0 0 0 %ù 20
set %dbar.ref $2
set %dbar.sens 37
dbar.refresh %ù %ù
}
else echo $color(info) * /dbar: invalid parameters
}
alias -l dbar.refresh {
if ($2 == $+(-,$1)) tokenize 32 $1 $1
elseif ($2 == $calc($1 *2)) tokenize 32 $1 $+(-,$1)
drawcopy @BDBar 0 0 $window(@BDBar).w $window(@BDBar).h @DBar $2 0
.timerdbar -m 1 $gettok(%dbar.ref,1,32) dbar.refresh $1 $calc($2 $iif(%dbar.sens == 37,-,+) 1)
}
on *:KEYDOWN:@DBar:37,39:{
%dbar.sens = $keyval
if (!$gettok(%dbar.ref,2,32)) %dbar.ref = $calc(%dbar.ref /2) 1
}
on *:KEYUP:@DBar:37,39:{ %dbar.ref = $calc($gettok(%dbar.ref,1,32) *2) }
menu @DBar {
Fermer:.timerdbar off | close -@ @DBar | close -@ @BDBar | unset %dbar.*
}