Gabriele Cosmo
44 lines
477 B
Plaintext
44 lines
477 B
Plaintext
## global variable
|
|
env
|
|
HOME
|
|
FC
|
|
FR
|
|
FG
|
|
FB
|
|
BC
|
|
BR
|
|
BG
|
|
BB
|
|
|
|
|
|
## procedures
|
|
#Momo.tcl
|
|
Style_Pack
|
|
Position_Pack
|
|
|
|
#Public.proc
|
|
File_List_Skeleton w
|
|
Change_Path DIR
|
|
Put_File_List w
|
|
Win_Size w
|
|
Chenge_Font {FONT WIDGET}
|
|
Scroll_Link {WIDGET args}
|
|
Chenge_Color {F B WIDGET}
|
|
Value_Check {TYPE VALUE}
|
|
Tab_off
|
|
Message_Skeleton args
|
|
|
|
#SelectFont.proc
|
|
Select_Font
|
|
Get_Font_List
|
|
|
|
#DefineColor.proc
|
|
Define_Color
|
|
Make_Color {w args}
|
|
Set_Color
|
|
Reset_Color SWITCH
|
|
|
|
#SetEnv.proc
|
|
List_Env
|
|
Put_Env
|