Liren Large Software Subsidy 18/18.iso/w/w252/4.ddi/MACROS.CMZ/ICONMAN.SMM

INI File | 1993-10-28 | 40.0 KB | 2,581 lines

[ver]
    4
[sty]
    ~default.sty
[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    HP LaserJet III
[lang]
    1
[desc]
    Save and load your favorite Icon Palettes with the SmartIcon Manager.  Adds a menu to the Tools menu.
    Lotus WPD Marketing
    Advanced
    Menus, ChangeIcons
    autorun
    745041812
    87
    670034481
    1207
    12
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        288
        0
        1
        144
        1872
        2
        1
        0
        1
        1
        2
        1
        288
        10368
        5
        1
        720
        1
        1440
        1
        2880
        1
        4320
        1
        5760
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        144
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        144
        12240
        1
        1440
        0
        1
        0
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
>
    [frght]
    [lyfrm]
        1
        13248
        0
        15840
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        0
        1
        15840
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
>
[elay]
[l1]
    0
[pg]
    12
    49 0 36 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    105 0 17 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    128 0 17 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    182 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    238 0 11 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    294 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    349 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    405 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    461 0 19 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    517 0 43 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    567 92 20 32 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    573 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
[edoc]
<:#279,10080>'Macro by <+!>Charlie Pappas<-!>

<:#278,10080>

<:#278,10080>define    LB_RESETCONTENTS    0x405

<:#278,10080>define    LB_ADDSTRING        0x401

<:#278,10080>define    WM_SETREDRAW        0x000b

<:#278,10080>define InvalidateRect()    DllCall("user,InvalidateRect,HHFH", %1, %2, %3)

<:#278,10080>define RepaintWnd()    InvalidateRect(%1, 0, 1)

<:#278,10080>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")

<:#278,10080>define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)

<:#278,10080>define TitleBarMsg()    SetWindowText(GetActiveWindow(), %1)

<:#278,10080>defstr menu1,menu2

<:#278,10080>

<:#278,10080>function IconMan()

<:#278,10080>TitleBarMsg("Adding SmartIcon Manager to Tools menu")

<:#278,10080>statusbarmsg("Adding SmartIcon Manager to Tools menu")

<:#278,10080>declare newpal(palette)

<:#278,10080>declare loadlast()

<:#278,10080>declare changeit(palname)

<:#278,10080>declare buildmenus()

<:#278,10080>Fname = "IconMan"

<:#278,10080>menu1 = "╣ñ╛▀(&"

<:#278,10080>menu2 = "L)"

<:#278,10080>menu = strcat$(menu1,menu2)

<:#278,10080>cmenu = "SmartIcon Mana&ger"

<:#278,10080>rmac = getrunningmacrofile$()

<:#278,10080>deletemenuitem(1, menu, cmenu)

<:#278,10080>insertcascademenu(1, menu, 16, cmenu)

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "&Open Palette...", "{rmac}!LoadPalette", "Load a custom icon arrangement")

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "&Save Palette...", "{rmac}!SavePalette", "Save current icon arrangement")

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "&Attach to File...", "{rmac}!linkit", "Attach a SmartIcon palette to a document or style sheet")

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "&Remove Palette...", "{rmac}!DeletePalette", "Delete an icon arrangement from list")

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "&Default Palette", "{rmac}!DefaultPalette", "Reset icon palette to default")

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "&Make Default Palette", "{rmac}!makedefpal", "Makes current icon palette default palette")

<:#278,10080>

<:#278,10080>addcascademenuitem(1, Menu, Cmenu, "-", "", "")

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "E&xit Icon Manager", "{rmac}!quitfname", "Remove SmartIcon Manager")

<:#278,10080>addcascademenuitem(1, Menu, Cmenu, "-", "", "")

<:#278,10080>TitleBarMsg("Loading last used palette")

<:#278,10080>statusbarmsg("Loading last used palette")

<:#278,10080>loadlast()

<:#278,10080>TitleBarMsg("")

<:#278,10080>TitleBarMsg("Ami Pro")

<:#278,10080>statusbarmsg("")

<:#278,10080>end function

<:s><:#278,10080>

<:#278,10080>function SavePalette()

<:#278,10080>ignorekeyboard(1)

<:#278,10080>again:

<:#278,10080>if false = dialogbox("." "iconman2")

<:#278,10080>    return -1

<:#278,10080>endif

<:#278,10080>newpalname = getdialogfield$(8007)

<:#278,10080>fname = mid$(now(), 1, 8)

<:#278,10080>if newpalname = ""

<:#278,10080>    message("Need a menu name to save your custom SmartIcon set as.")

<:#278,10080>    goto again

<:#278,10080>endif

<:#278,10080>windir = getwindowsdirectory$()

<:#278,10080>dim pals(100)

<:#278,10080>i = 0

<:#278,10080>ck = findfirst$("{windir}palette.cfg", 33)

<:#278,10080>if ck = ""

<:#278,10080>    option = "w"

<:#278,10080>else

<:#278,10080>    option = "r"

<:#278,10080>endif

<:#278,10080>fh = fopen("{windir}palette.cfg", option)

<:#278,10080>if fh << 1

<:#278,10080>    message("Unable to open file Palette.cfg")

<:#278,10080>    return 0

<:#278,10080>endif

<:#278,10080>while (1)

<:#278,10080>    txt = fgets$(fh)

<:#278,10080>    if txt << 1

<:#278,10080>        break

<:#278,10080>    endif

<:#278,10080>    i = i + 1

<:#278,10080>    pals(i) = txt

<:#278,10080>wend

<:#278,10080>fclose(fh)

<:#278,10080>for j = 1 to i

<:#278,10080>    paldup = strfield$(pals(j), 2, "~")

<:#278,10080>    if newpalname = strfield$(pals(j), 2, "~")

<:#278,10080>        go = decide("A SmartIcon set by that name already exists.  Overwrite it?")

<:#278,10080>        if go <<<;> 1

<:#278,10080>            return 0

<:#278,10080>        else

<:#278,10080>            xfname = strfield$(pals(j), 1, "~")

<:#278,10080>            arraydelete(&pals, j)

<:#278,10080>            fh = fopen("{windir}palette.cfg", "w")

<:#278,10080>            if fh << 1

<:#278,10080>                message("Unable to open file Palette.cfg")

<:#278,10080>                return 0

<:#278,10080>            endif

<:#278,10080>            for j = 1 to i

<:#278,10080>                p = pals(j)

<:#278,10080>                if p <<<;> ""

<:#278,10080>                    fputs(fh, pals(j))

<:#278,10080>                endif

<:#278,10080>            next

<:#278,10080>            fclose(fh)

<:#278,10080>            dosdelfile("{windir}{xfname}")

<:#278,10080>            dim profile(5)

<:#278,10080>            defstr pal;

<:#278,10080>            for j = 1 to i

<:#556,10080>                pal = getprofilestring$("Palette", "LastPalette{j}", "AmiPro.ini")

<:#278,10080>                if strfield$(pal, 2, "~") <<<;> newpalname

<:#278,10080>                    profile(j) = pal

<:#278,10080>                endif

<:#278,10080>            next

<:#278,10080>            for k = 1 to j - 1

<:#556,10080>                    WriteProfileString("Palette", "LastPalette{k}", profile(k), "AmiPro.ini")

<:#278,10080>            next

<:#278,10080>            break

<:#278,10080>        endif

<:#278,10080>    endif

<:#278,10080>next

<:#278,10080>fname = strcat$(fname ".CP")

<:#278,10080>fh = fopen("{windir}palette.cfg", "a")

<:#278,10080>if fh << 1

<:#278,10080>    message("Unable to open file Palette.cfg")

<:#278,10080>    return 0

<:#278,10080>endif

<:#278,10080>fputs(fh, "{fname}~{newpalname}")

<:#278,10080>fclose(fh)

<:#278,10080>changeit(fname)

<:#278,10080>newpal("{fname}~{newpalname}")

end function<:p<* >>

<:#278,10080>

<:#278,10080>function NewPal(Newpalette)

<:#278,10080>ignorekeyboard(1)

<:#278,10080>TitleBarMsg("Loading palette")

<:#278,10080>statusbarmsg("Loading palette")

<:#278,10080>Menu = "╣ñ╛▀(&L)"

<:#278,10080>cmenu = "SmartIcon Mana&ger"

<:#278,10080>rfile = getrunningmacrofile$()

<:#278,10080>IgnoreKeyboard(1)

<:#278,10080>HourGlass(1)

<:#278,10080>fname = strfield$(newpalette 1 "~")

<:#278,10080>dim Files(5)

<:#278,10080>for i = 1 to 5

<:#278,10080>    Files(i) = GetProfileString$("Palette" "LastPalette{i}" "AmiPro.ini")

<:#278,10080>    if Files(i) = "" then

<:#278,10080>        WriteProfileString("Palette" "LastPalette{i}" "" "AmiPro.ini")

<:#278,10080>    endif

<:#278,10080>    Tmp = Files(i)

<:#278,10080>    menuitem = strfield$(tmp 2 "~")

<:#278,10080>next

<:#278,10080>OldPal = Files(1)

<:#278,10080>WriteProfileString("Palette" "LastPalette1" NewPalette "AmiPro.ini")

<:#278,10080>menuitem = strfield$(newpalette 2 "~")

<:#278,10080>buildmenus()

<:#556,10080>AddcascadeMenuItem(1 menu cmenu, "&1 {menuitem}" "{rfile}!UseLastPalette1" "Load the Palette {NewPalette}")

<:#278,10080>j = 2

<:#278,10080>for i = 1 to 5

<:#278,10080>    if j = 6 then

<:#278,10080>        HourGlass(0)

<:#278,10080>        return NewPalette

<:#278,10080>    endif

<:#278,10080>    if not ((files(i) = NewPalette) or (files(i) = ""))

<:#278,10080>        Tmp = Files(i)

<:#278,10080>        menuitem = strfield$(tmp 2 "~")

<:#556,10080>        AddcascadeMenuItem(1, menu, cmenu, "&{j} {menuitem}" "{rfile}!UseLastPalette{j}", "Load the Palette {tmp}")

<:#278,10080>        WriteProfileString("Palette" "LastPalette{j}" Files(i) "AmiPro.ini")

<:#278,10080>        j = j + 1

<:#278,10080>    endif

<:#278,10080>next

<:#278,10080>HourGlass(0)

<:#278,10080>TitleBarMsg("")

<:#278,10080>TitleBarMsg("Ami Pro")

<:#278,10080>statusbarmsg("")

<:#278,10080>return NewPalette

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function UseLastPalette1()

<:#278,10080>ignorekeyboard(1)

<:#278,10080>HourGlass(1)

<:#278,10080>Pal = GetProfileString$("Palette" "LastPalette1" "AmiPro.ini")

<:#278,10080>fname = strfield$(pal 1 "~")

<:#278,10080>changeit(fname)

<:#278,10080>HourGlass(0)

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function UseLastPalette2()

<:#278,10080>IgnoreKeyboard(1)

<:#278,10080>HourGlass(1)

<:#278,10080>Pal = GetProfileString$("Palette" "LastPalette2" "AmiPro.ini")

<:#278,10080>fname = strfield$(pal 1 "~")

<:#278,10080>changeit(fname)

<:#278,10080>NewPal(Pal)

<:#278,10080>HourGlass(0)

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function UseLastPalette3()

<:#278,10080>IgnoreKeyboard(1)

<:#278,10080>HourGlass(1)

<:#278,10080>Pal = GetProfileString$("Palette" "LastPalette3" "AmiPro.ini")

<:#278,10080>fname = strfield$(pal 1 "~")

<:#278,10080>changeit(fname)

<:#278,10080>NewPal(Pal)

<:#278,10080>HourGlass(0)

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function UseLastPalette4()

<:#278,10080>IgnoreKeyboard(1)

<:#278,10080>HourGlass(1)

<:#278,10080>Pal = GetProfileString$("Palette" "LastPalette4" "AmiPro.ini")

<:#278,10080>fname = strfield$(pal 1 "~")

<:#278,10080>changeit(fname)

<:#278,10080>NewPal(Pal)

<:#278,10080>HourGlass(0)

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function UseLastPalette5()

<:#278,10080>IgnoreKeyboard(1)

<:#278,10080>HourGlass(1)

<:#278,10080>Pal = GetProfileString$("Palette" "LastPalette5" "AmiPro.ini")

<:#278,10080>fname = strfield$(pal 1 "~")

<:#278,10080>changeit(fname)

<:#278,10080>NewPal(Pal)

<:#278,10080>HourGlass(0)

<:#278,10080>end function

<:#278,10080>

<:#278,10080>

<:#278,10080>function deletepalette()

<:#278,10080>Menu = "╣ñ╛▀(&L)"

<:#278,10080>cmenu = "SmartIcon Mana&ger"

<:#278,10080>windir = getwindowsdirectory$()

<:#278,10080>dim pals(100)

<:#278,10080>i = 0

<:#278,10080>fh = fopen("{windir}palette.cfg", "r")

<:#278,10080>if fh << 1

<:#278,10080>    message("Unable to open file Palette.cfg")

<:#278,10080>    return 0

<:#278,10080>endif

<:#278,10080>while (1)

<:#278,10080>    txt = fgets$(fh)

<:#278,10080>    if txt << 1

<:#278,10080>        break

<:#278,10080>    endif

<:#278,10080>    i = i + 1

<:#278,10080>    pals(i) = txt

<:#278,10080>wend

<:#278,10080>fclose(fh)

<:#278,10080>for j = 1 to i

<:#278,10080>    pal = strfield$(pals(j), 2, "~")

<:#278,10080>    filllist(pal)

<:#278,10080>next

<:#278,10080>if dialogbox("." "iconman")

<:#278,10080>    sel = getdialogfield$(9007)

<:#278,10080>    for j = 1 to i

<:#278,10080>        if sel = strfield$(pals(j), 2, "~")

<:#278,10080>            break

<:#278,10080>        endif

<:#278,10080>    next

<:#278,10080>    sel = strfield$(pals(j), 2, "~")

<:#278,10080>    if decide("Are you sure you want to delete the SmartIcon set ""{sel}""")

<:#278,10080>        fname = strfield$(pals(j), 1, "~")

<:#278,10080>        dosdelfile("{windir}{fname}")

<:#278,10080>        arraydelete(&pals, j)

<:#278,10080>        fh = fopen("{windir}palette.cfg", "w")

<:#278,10080>        if fh << 1

<:#278,10080>            message("Unable to open file Palette.cfg")

<:#278,10080>            return 0

<:#278,10080>        endif

<:#278,10080>        for j = 1 to i - 1

<:#278,10080>            fputs(fh, pals(j))

<:#278,10080>        next

<:#278,10080>        fclose(fh)

<:#278,10080>        k = 0

<:#278,10080>        for i = 1 to 5

<:#278,10080>            pals(i) = GetProfileString$("Palette" "LastPalette{i}" "AmiPro.ini")

<:#278,10080>            if pals(i) = ""

<:#278,10080>                break

<:#278,10080>            endif

<:#278,10080>            if pals(i) = "{fname}~{sel}"

<:#278,10080>                k = i

<:#278,10080>            endif

<:#278,10080>            menuitem = strfield$(pals(i) 2 "~")

<:#278,10080>            DeleteMenuItem(1, menu, cmenu, "&{i} {menuitem}")

<:#278,10080>

<:#278,10080>        next

<:#278,10080>        arraydelete(&pals, k)

<:#278,10080>        for j = 1 to i - 2

<:#278,10080>            WriteProfileString("Palette" "LastPalette{j}" pals(j) "AmiPro.ini")

<:#278,10080>        next

<:#278,10080>        j = i - 1

<:#278,10080>        WriteProfileString("Palette" "LastPalette{j}" "" "AmiPro.ini")

<:#278,10080>        loadlast()

<:#278,10080>        return 1

<:#278,10080>    endif

<:#278,10080>endif

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function LoadLast()

<:#278,10080>IgnoreKeyboard(1)

<:#278,10080>HourGlass(1)

<:#278,10080>Menu = "╣ñ╛▀(&L)"

<:#278,10080>cmenu = "SmartIcon Mana&ger"

<:#278,10080>rfile = getrunningmacrofile$()

<:#278,10080>NewPalette = GetProfileString$("Palette" "LastPalette1" "AmiPro.ini")

<:#278,10080>newpalette = strfield$(newpalette 1 "~")

<:#278,10080>changeicons(newpalette)

<:#278,10080>for i = 1 to 5

<:#278,10080>    MenuItem = GetProfileString$("Palette" "LastPalette{i}" "AmiPro.ini")

<:#278,10080>    if MenuItem = "" or MenuItem = -1

<:#278,10080>        HourGlass(0)

<:#278,10080>        return -1

<:#278,10080>    endif

<:#278,10080>    cmenuitem = strfield$(menuitem 2 "~")

<:#556,10080>    Addcascademenuitem(1, menu, cmenu, "&{i} {cMenuItem}", "{rfile}!UseLastPalette{i}", "Loads the palette ""{cmenuitem}""")

<:#278,10080>next

<:#278,10080>HourGlass(0)

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function LoadPalette()

<:#278,10080>ignorekeyboard(1)

<:#278,10080>windir = getwindowsdirectory$()

<:#278,10080>dim pals(100)

<:#278,10080>i = 0

<:#278,10080>fh = fopen("{windir}palette.cfg", "r")

<:#278,10080>if fh << 1

<:#278,10080>    message("No icon sets saved.")

<:#278,10080>    return 0

<:#278,10080>endif

<:#278,10080>while (1)

<:#278,10080>    txt = fgets$(fh)

<:#278,10080>    if txt << 1

<:#278,10080>        break

<:#278,10080>    endif

<:#278,10080>    i = i + 1

<:#278,10080>    pals(i) = txt

<:#278,10080>wend

<:#278,10080>fclose(fh)

<:#278,10080>for j = 1 to i

<:#278,10080>    pal = strfield$(pals(j), 2, "~")

<:#278,10080>    filllist(pal)

<:#278,10080>next

<:#278,10080>if dialogbox("." "iconman")

<:#278,10080>    sel = getdialogfield$(9007)

<:#278,10080>    for j = 1 to i

<:#278,10080>        if sel = strfield$(pals(j), 2, "~")

<:#278,10080>            break

<:#278,10080>        endif

<:#278,10080>    next

<:#278,10080>    fname = strfield$(pals(j), 1, "~")

<:#278,10080>    changeit(fname)

<:#278,10080>    newpal(pals(j))

<:#278,10080>endif

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function changeit(palname)

<:#278,10080>ignorekeyboard(1)

<:#278,10080>windir = GetWindowsDirectory$()

<:#278,10080>changeicons(palname)

<:#278,10080>dosdelfile("{windir}def.cp")

<:#278,10080>changeicons("def.cp")

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function DefaultPalette()

<:#278,10080>changeicons("")

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function quitfname()

<:#278,10080>deletemenuitem(1, "╣ñ╛▀(&L)", "SmartIcon Mana&ger")

<:#278,10080>changeicons("")

<:#278,10080>end function

<:#278,10080>

<:#278,10080>DIALOG iconman

<:#278,10080>-2134376448 4 106 40 174 58 "" "" "Select SmartIcon Set"

<:#278,10080>FONT 12 "System"

<:#278,10080>6 4 118 8 1000 1342308352 "static" "&Custom SmartIcon sets:" 0

<:#278,10080>6 14 118 40 9007 1352728579 "listbox" "" 0

<:#278,10080>129 4 40 14 1 1342373889 "button" "OK" 0

<:#278,10080>129 20 40 14 2 1342373888 "button" "Cancel" 0

<:#278,10080>END DIALOG

<:#278,10080>

<:#278,10080>DIALOG iconman2

<:#278,10080>-2134376448 4 62 36 186 40 "" "" "Save SmartIcon Set"

<:#278,10080>FONT 12 "System"

<:#278,10080>6 4 124 8 1000 1342308352 "static" "&Name for current SmartIcon set:" 0

<:#278,10080>6 14 126 12 8007 1350631552 "edit" "" 0

<:#278,10080>140 4 40 14 1 1342373889 "button" "OK" 0

<:#278,10080>140 20 40 14 2 1342373888 "button" "Cancel" 0

<:#278,10080>END DIALOG

<:#278,10080>

<:#278,10080>DIALOG iconman3

<:#278,10080>-2134376448 9 74 26 208 106 "" "" "Link SmartIcon Set to File"

<:#278,10080>FONT 12 "System"

<:#278,10080>6 4 64 8 1000 1342308352 "static" "&Link to:" 0

<:#278,10080>6 14 64 88 9001 1352728579 "listbox" "" 0

<:#278,10080>78 20 60 10 110 1342242825 "button" "&Documents" 0

<:#278,10080>78 30 60 10 120 1342242825 "button" "&Style sheets" 0

<:#278,10080>74 48 66 8 1001 1342308352 "static" "SmartIcon &sets:" 0

<:#278,10080>74 58 130 44 9007 1352728577 "listbox" "" 0

<:#278,10080>162 4 40 14 1 1342373889 "button" "OK" 0

<:#278,10080>162 20 40 14 2 1342373888 "button" "Cancel" 0

<:#278,10080>74 10 68 34 20 1342308359 "button" "File type" 0

<:#278,10080>END DIALOG

<:#278,10080>

<:#278,10080>function linkit()

<:#278,10080>windir = getwindowsdirectory$()

<:#278,10080>rmac = getrunningmacrofile$()

<:#278,10080>dim pals(100)

<:#278,10080>i = 0

<:#278,10080>fh = fopen("{windir}palette.cfg", "r")

<:#278,10080>if fh << 1

<:#278,10080>    message("Unable to open file Palette.cfg")

<:#278,10080>    return 0

<:#278,10080>endif

<:#278,10080>while (1)

<:#278,10080>    txt = fgets$(fh)

<:#278,10080>    if txt << 1

<:#278,10080>        break

<:#278,10080>    endif

<:#278,10080>    i = i + 1

<:#278,10080>    pals(i) = txt

<:#278,10080>wend

<:#278,10080>fclose(fh)

<:#278,10080>for j = 1 to i

<:#278,10080>    pal = strfield$(pals(j), 2, "~")

<:#278,10080>    filledit(9007, pal)

<:#278,10080>next

<:#278,10080>filledit(9001, strcat$(getdocpath$(), "*.sam"))

<:#278,10080>setdlgcallback(110, "{rmac}!loaddoc")

<:#278,10080>setdlgcallback(120, "{rmac}!loadfile")

<:#278,10080>filledit(110, 1)

<:#278,10080>if false = dialogbox("." "iconman3")

<:#278,10080>    return -1

<:#278,10080>endif

<:#278,10080>xfile = getdialogfield$(9001)

<:#278,10080>sel = getdialogfield$(9007)

<:#278,10080>for j = 1 to i

<:#278,10080>    if sel = strfield$(pals(j), 2, "~")

<:#278,10080>        break

<:#278,10080>    endif

<:#278,10080>next

<:#278,10080>file = strfield$(pals(j), 1, "~")

<:#278,10080>if 1 <<<;> decide("Display SmartIcon set ""{sel}"" with file ""{xfile}""?")

<:#278,10080>    return 0

<:#278,10080>endif

<:#278,10080>ck = strfield$(xfile, 2, ".")

<:#278,10080>xPal = GetProfileString$("Palette" "LastPalette1" "AmiPro.ini")

<:#278,10080>fname = strfield$(pal 1 "~")

<:#278,10080>if ck = "STY"

<:#278,10080>    New(xfile, 1, 0)

<:#278,10080>    fieldadd("void changeicons(""{file}"")")

<:#278,10080>    type("<[>end]<[>end]")

<:#278,10080>    both = fieldprev()

<:#278,10080>    id = mod(both, 0x10000)

<:#278,10080>    fieldauto(id, 1)

<:#278,10080>    changeit(xpal)

<:#278,10080>    answermsgbox(yes)

<:#278,10080>    SaveAsNewStyle(xfile, 1,0,0)

<:#278,10080>    answermsgbox(no)

<:#278,10080>    fileclose()

<:#278,10080>else

<:#278,10080>    FileOpen(xfile, 1, 8265)

<:#278,10080>    fieldadd("void changeicons(""{file}"")")

<:#278,10080>    type("<[>end]<[>end]")

<:#278,10080>    both = fieldprev()

<:#278,10080>    id = mod(both, 0x10000)

<:#278,10080>    fieldauto(id, 1)

<:#278,10080>    changeit(xpal)

<:#278,10080>    save()

<:#278,10080>    fileclose()

<:#278,10080>endif

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function loadfile(hdlg)

<:#278,10080>hourglass(1)

<:#278,10080>stypath = GetStylePath$()

<:#278,10080>file = FindFirst$("{stypath}*.sty" 1)

<:#278,10080>hctl = getdlgitem(hdlg, 9001)

<:#278,10080>appsendmessage(hctl, WM_SETREDRAW, 0, 0)

<:#278,10080>appsendmessage(hctl, LB_RESETCONTENTS, 0, 0)

<:#278,10080>setdlgitemtext(hdlg, 9001, lcase$(file)) ' add first file to list

<:#278,10080>while (1)

<:#278,10080>    file = findnext$()

<:#278,10080>    if file = ""

<:#278,10080>        break

<:#278,10080>    endif

<:#278,10080>    setdlgitemtext(hdlg, 9001, lcase$(file))

<:#278,10080>wend

<:#278,10080>appsendmessage(hctl, WM_SETREDRAW, 1, 0)

<:#278,10080>RepaintWnd(hctl)

<:#278,10080>hourglass(0)

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function loaddoc(hdlg)

<:#278,10080>hourglass(1)

<:#278,10080>stypath = GetDocPath$()

<:#278,10080>file = FindFirst$("{stypath}*.sam" 1)

<:#278,10080>hctl = getdlgitem(hdlg, 9001)

<:#278,10080>appsendmessage(hctl, WM_SETREDRAW, 0, 0)

<:#278,10080>appsendmessage(hctl, LB_RESETCONTENTS, 0, 0)

<:#278,10080>setdlgitemtext(hdlg, 9001, lcase$(file))

<:#278,10080>while (1)

<:#278,10080>    file = findnext$()

<:#278,10080>    if file = ""

<:#278,10080>        break

<:#278,10080>    endif

<:#278,10080>    setdlgitemtext(hdlg, 9001, lcase$(file))

<:#278,10080>wend

<:#278,10080>appsendmessage(hctl, WM_SETREDRAW, 1, 0)

<:#278,10080>RepaintWnd(hctl)

<:#278,10080>hourglass(0)

<:#278,10080>end function

<:#278,10080>

<:#278,10080>

<:#278,10080>function loadlist()

<:#278,10080>windir = getwindowsdirectory$()

<:#278,10080>dim pals(100)

<:#278,10080>i = 0

<:#278,10080>fh = fopen("{windir}palette.cfg", "r")

<:#278,10080>if fh << 1

<:#278,10080>    message("Unable to open file Palette.cfg")

<:#278,10080>    return 0

<:#278,10080>endif

<:#278,10080>while (1)

<:#278,10080>    txt = fgets$(fh)

<:#278,10080>    if txt << 1

<:#278,10080>        break

<:#278,10080>    endif

<:#278,10080>    i = i + 1

<:#278,10080>    pals(i) = txt

<:#278,10080>wend

<:#278,10080>fclose(fh)

<:#278,10080>for j = 1 to i

<:#278,10080>    pal = strfield$(pals(j), 2, "~")

<:#278,10080>    filllist(pal)

<:#278,10080>next

<:#278,10080>if dialogbox("." "iconman")

<:#278,10080>    sel = getdialogfield$(9007)

<:#278,10080>    for j = 1 to i

<:#278,10080>        if sel = strfield$(pals(j), 2, "~")

<:#278,10080>            break

<:#278,10080>        endif

<:#278,10080>    next

<:#278,10080>    sel = strfield$(pals(j), 2, "~")

<:#278,10080>    if decide("Are you sure you want to delete the SmartIcon set ""{sel}""")

<:#278,10080>        fname = strfield$(pals(j), 1, "~")

<:#278,10080>    endif

<:#278,10080>endif

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function makedefpal()

<:#278,10080>go = decide("Make the current SmartIcon set your default set, are you sure?")

<:#278,10080>if go <<<;> 1

<:#278,10080>    return 0

<:#278,10080>endif

<:#278,10080>dosdelfile(strcat$(getwindowsdirectory$(), "apib.ini"))

<:#278,10080>changeicons("apib.ini")

<:#278,10080>end function

<:#278,10080>

<:#278,10080>function buildmenus()

<:#278,10080>Fname = "IconMan"

<:#278,10080>Menu = "╣ñ╛▀(&L)"

<:#278,10080>cmenu = "SmartIcon Mana&ger"

<:#278,10080>rmac = getrunningmacrofile$()

<:#278,10080>deletemenuitem(1, menu, cmenu)

<:#278,10080>insertcascademenu(1, menu, 16, cmenu)

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "&Open Palette...", "{rmac}!LoadPalette", "Load a custom icon arrangement")

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "&Save Palette...", "{rmac}!SavePalette", "Save current icon arrangement")

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "&Attach to File...", "{rmac}!linkit", "Attach a SmartIcon palette to a document or style sheet")

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "&Remove Palette...", "{rmac}!DeletePalette", "Delete an icon arrangement from list")

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "&Default Palette", "{rmac}!DefaultPalette", "Reset icon palette to default")

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "&Make Default Palette", "{rmac}!makedefpal", "Makes current icon palette default palette")

<:#278,10080>

<:#278,10080>addcascademenuitem(1, Menu, Cmenu, "-", "", "")

<:#556,10080>addcascademenuitem(1, Menu, Cmenu, "E&xit Icon Manager", "{rmac}!quitfname", "Remove SmartIcon Manager")

<:#278,10080>addcascademenuitem(1, Menu, Cmenu, "-", "", "")

<:#278,10080>end function

>

[Embedded]
00025847
>
[macsum] 23
IconMan 0 0 7 12
SavePalette 1407 0 18 45
NewPal 3438 1 11 129
UseLastPalette1 4806 0 3 174
UseLastPalette2 4964 0 3 183
UseLastPalette3 5139 0 3 193
UseLastPalette4 5314 0 3 203
UseLastPalette5 5489 0 3 213
deletepalette 5664 0 14 224
LoadLast 7504 0 8 294
LoadPalette 8052 0 10 315
changeit 8831 1 2 351
DefaultPalette 8929 0 1 359
quitfname 8970 0 1 363
iconman 9047 0 -1 368
iconman2 9342 0 -1 377
iconman3 9641 0 -1 386
linkit 10192 0 17 400
loadfile 11747 1 4 469
loaddoc 12134 1 4 489
loadlist 12520 0 10 510
makedefpal 13373 0 2 546
buildmenus 13586 0 5 555
[macse]
14 IconMan
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Adding SmartIcon Manager to Tools menu"
0 789 "Adding SmartIcon Manager to Tools menu"
7 "IconMan"
8 1
7 "╣ñ╛▀(&"
8 2
7 "L)"
8 3
0 16 "{2}" "{3}"
13
8 4
7 "SmartIcon Mana&ger"
8 5
0 802
13
8 6
0 520 1 "{4}" "{5}"
0 528 1 "{4}" 16 "{5}"
0 525 1 "{4}" "{5}" "&Open Palette..." "{6}!LoadPalette" "Load a custom icon arrangement"
0 525 1 "{4}" "{5}" "&Save Palette..." "{6}!SavePalette" "Save current icon arrangement"
0 525 1 "{4}" "{5}" "&Attach to File..." "{6}!linkit" "Attach a SmartIcon palette to a document or style sheet"
0 525 1 "{4}" "{5}" "&Remove Palette..." "{6}!DeletePalette" "Delete an icon arrangement from list"
0 525 1 "{4}" "{5}" "&Default Palette" "{6}!DefaultPalette" "Reset icon palette to default"
0 525 1 "{4}" "{5}" "&Make Default Palette" "{6}!makedefpal" "Makes current icon palette default palette"
0 525 1 "{4}" "{5}" "-" "" ""
0 525 1 "{4}" "{5}" "E&xit Icon Manager" "{6}!quitfname" "Remove SmartIcon Manager"
0 525 1 "{4}" "{5}" "-" "" ""
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Loading last used palette"
0 789 "Loading last used palette"
16 loadlast
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] ""
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Ami Pro"
0 789 ""
6 0
15
9
14 SavePalette
0 32 1
5 0
0 26 "." "iconman2"
13
18 0
11 00000086
5 -1
15
9
0 27 8007
13
8 1
0 772
13
0 15 [X] 1 8
13
8 2
6 1
7 ""
18 0
11 00000245
0 3 "Need a menu name to save your custom SmartIcon set as."
10 00000024
0 1288
13
8 3
5 100
21 4 [X]
5 0
8 5
0 280 "{3}palette.cfg" 33
13
8 6
6 6
7 ""
18 0
11 00000380
7 "w"
8 7
10 00000392
7 "r"
8 7
0 259 "{3}palette.cfg" "{7}"
13
8 8
6 8
5 1
18 5
11 00000511
0 3 "Unable to open file Palette.cfg"
5 0
15
9
5 1
11 00000642
0 257 "{8}"
13
8 9
6 9
5 1
18 5
11 00000593
10 00000642
6 5
5 1
3 0
8 5
6 5
6 9
23 4
10 00000511
0 260 "{8}"
5 1
8 10
6 5
6 10
18 2
12 00000744
10 00001799
5 1
6 10
3 0
8 10
10 00000666
6 10
22 4
0 20 [X] 2 "~"
13
8 11
6 1
6 10
22 4
0 20 [X] 2 "~"
13
18 0
11 00001786
0 2 "A SmartIcon set by that name already exists.  Overwrite it?"
13
8 12
6 12
5 1
18 1
11 00000970
5 0
15
9
10 00001786
6 10
22 4
0 20 [X] 1 "~"
13
8 13
0 1042 &4 "{10}"
0 259 "{3}palette.cfg" "w"
13
8 8
6 8
5 1
18 5
11 00001143
0 3 "Unable to open file Palette.cfg"
5 0
15
9
5 1
8 10
6 5
6 10
18 2
12 00001232
10 00001323
5 1
6 10
3 0
8 10
10 00001154
6 10
22 4
8 14
6 14
7 ""
18 1
11 00001310
6 10
22 4
0 258 "{8}" [X]
10 00001197
0 260 "{8}"
0 779 "{3}{13}"
5 5
21 15 [X]
5 1
8 10
6 5
6 10
18 2
12 00001458
10 00001595
5 1
6 10
3 0
8 10
10 00001380
0 286 "Palette" "LastPalette{10}" "AmiPro.ini"
13
8 16
0 20 "{16}" 2 "~"
13
6 1
18 1
11 00001582
6 10
6 16
23 15
10 00001423
5 1
8 17
6 10
5 1
3 1
6 17
18 2
12 00001695
10 00001773
5 1
6 17
3 0
8 17
10 00001606
6 17
22 15
0 287 "Palette" "LastPalette{17}" [X] "AmiPro.ini"
10 00001660
10 00001799
10 00000709
0 16 "{2}" ".CP"
13
8 2
0 259 "{3}palette.cfg" "a"
13
8 8
6 8
5 1
18 5
11 00001943
0 3 "Unable to open file Palette.cfg"
5 0
15
9
0 258 "{8}" "{2}~{1}"
0 260 "{8}"
16 changeit "{2}"
16 newpal "{2}~{1}"
6 0
15
9
14 NewPal
0 32 1
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Loading palette"
0 789 "Loading palette"
7 "╣ñ╛▀(&L)"
8 2
7 "SmartIcon Mana&ger"
8 3
0 802
13
8 4
0 32 1
0 296 1
0 20 "{0}" 1 "~"
13
8 5
5 5
21 6 [X]
5 1
8 7
5 5
6 7
18 2
12 00000342
10 00000546
5 1
6 7
3 0
8 7
10 00000267
6 7
0 286 "Palette" "LastPalette{7}" "AmiPro.ini"
13
23 6
6 7
22 6
7 ""
18 0
11 00000490
0 287 "Palette" "LastPalette{7}" "" "AmiPro.ini"
6 7
22 6
8 8
0 20 "{8}" 2 "~"
13
8 9
10 00000309
5 1
22 6
8 10
0 287 "Palette" "LastPalette1" "{0}" "AmiPro.ini"
0 20 "{0}" 2 "~"
13
8 9
16 buildmenus
0 525 1 "{2}" "{3}" "&1 {9}" "{4}!UseLastPalette1" "Load the Palette {0}"
5 2
8 11
5 1
8 7
5 5
6 7
18 2
12 00000827
10 00001168
5 1
6 7
3 0
8 7
10 00000752
6 11
5 6
18 0
11 00000878
0 296 0
6 0
15
9
6 7
22 6
6 0
18 0
6 7
22 6
7 ""
18 0
1 2
1 3
11 00001155
6 7
22 6
8 8
0 20 "{8}" 2 "~"
13
8 9
0 525 1 "{2}" "{3}" "&{11} {9}" "{4}!UseLastPalette{11}" "Load the Palette {8}"
6 7
22 6
0 287 "Palette" "LastPalette{11}" [X] "AmiPro.ini"
6 11
5 1
3 0
8 11
10 00000794
0 296 0
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] ""
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Ami Pro"
0 789 ""
6 0
15
9
6 1
15
9
14 UseLastPalette1
0 32 1
0 296 1
0 286 "Palette" "LastPalette1" "AmiPro.ini"
13
8 1
0 20 "{1}" 1 "~"
13
8 2
16 changeit "{2}"
0 296 0
6 0
15
9
14 UseLastPalette2
0 32 1
0 296 1
0 286 "Palette" "LastPalette2" "AmiPro.ini"
13
8 1
0 20 "{1}" 1 "~"
13
8 2
16 changeit "{2}"
16 NewPal "{1}"
0 296 0
6 0
15
9
14 UseLastPalette3
0 32 1
0 296 1
0 286 "Palette" "LastPalette3" "AmiPro.ini"
13
8 1
0 20 "{1}" 1 "~"
13
8 2
16 changeit "{2}"
16 NewPal "{1}"
0 296 0
6 0
15
9
14 UseLastPalette4
0 32 1
0 296 1
0 286 "Palette" "LastPalette4" "AmiPro.ini"
13
8 1
0 20 "{1}" 1 "~"
13
8 2
16 changeit "{2}"
16 NewPal "{1}"
0 296 0
6 0
15
9
14 UseLastPalette5
0 32 1
0 296 1
0 286 "Palette" "LastPalette5" "AmiPro.ini"
13
8 1
0 20 "{1}" 1 "~"
13
8 2
16 changeit "{2}"
16 NewPal "{1}"
0 296 0
6 0
15
9
14 deletepalette
7 "╣ñ╛▀(&L)"
8 1
7 "SmartIcon Mana&ger"
8 2
0 1288
13
8 3
5 100
21 4 [X]
5 0
8 5
0 259 "{3}palette.cfg" "r"
13
8 6
6 6
5 1
18 5
11 00000227
0 3 "Unable to open file Palette.cfg"
5 0
15
9
5 1
11 00000358
0 257 "{6}"
13
8 7
6 7
5 1
18 5
11 00000309
10 00000358
6 5
5 1
3 0
8 5
6 5
6 7
23 4
10 00000227
0 260 "{6}"
5 1
8 8
6 5
6 8
18 2
12 00000456
10 00000517
5 1
6 8
3 0
8 8
10 00000381
6 8
22 4
0 20 [X] 2 "~"
13
8 9
0 25 "{9}"
10 00000423
0 26 "." "iconman"
13
11 00001828
0 27 9007
13
8 10
5 1
8 8
6 5
6 8
18 2
12 00000660
10 00000742
5 1
6 8
3 0
8 8
10 00000585
6 10
6 8
22 4
0 20 [X] 2 "~"
13
18 0
11 00000729
10 00000742
10 00000627
6 8
22 4
0 20 [X] 2 "~"
13
8 10
0 2 "Are you sure you want to delete the SmartIcon set ""{10}"""
13
11 00001828
6 8
22 4
0 20 [X] 1 "~"
13
8 11
0 779 "{3}{11}"
0 1042 &4 "{8}"
0 259 "{3}palette.cfg" "w"
13
8 6
6 6
5 1
18 5
11 00001050
0 3 "Unable to open file Palette.cfg"
5 0
15
9
5 1
8 8
6 5
5 1
3 1
6 8
18 2
12 00001145
10 00001186
5 1
6 8
3 0
8 8
10 00001060
6 8
22 4
0 258 "{6}" [X]
10 00001112
0 260 "{6}"
5 0
8 12
5 1
8 5
5 5
6 5
18 2
12 00001295
10 00001545
5 1
6 5
3 0
8 5
10 00001220
6 5
0 286 "Palette" "LastPalette{5}" "AmiPro.ini"
13
23 4
6 5
22 4
7 ""
18 0
11 00001406
10 00001545
6 5
22 4
7 "{11}~{10}"
18 0
11 00001462
6 5
8 12
6 5
22 4
0 20 [X] 2 "~"
13
8 13
0 520 1 "{1}" "{2}" "&{5} {13}"
10 00001262
0 1042 &4 "{12}"
5 1
8 8
6 5
5 2
3 1
6 8
18 2
12 00001658
10 00001733
5 1
6 8
3 0
8 8
10 00001573
6 8
22 4
0 287 "Palette" "LastPalette{8}" [X] "AmiPro.ini"
10 00001625
6 5
5 1
3 1
8 8
0 287 "Palette" "LastPalette{8}" "" "AmiPro.ini"
16 loadlast
5 1
15
9
6 0
15
9
14 LoadLast
0 32 1
0 296 1
7 "╣ñ╛▀(&L)"
8 1
7 "SmartIcon Mana&ger"
8 2
0 802
13
8 3
0 286 "Palette" "LastPalette1" "AmiPro.ini"
13
8 4
0 20 "{4}" 1 "~"
13
8 4
0 790 "{4}"
5 1
8 5
5 5
6 5
18 2
12 00000273
10 00000527
5 1
6 5
3 0
8 5
10 00000198
0 286 "Palette" "LastPalette{5}" "AmiPro.ini"
13
8 6
6 6
7 ""
18 0
6 6
5 -1
18 0
1 2
11 00000403
0 296 0
5 -1
15
9
0 20 "{6}" 2 "~"
13
8 7
0 525 1 "{1}" "{2}" "&{5} {7}" "{3}!UseLastPalette{5}" "Loads the palette ""{7}"""
10 00000240
0 296 0
6 0
15
9
14 LoadPalette
0 32 1
0 1288
13
8 1
5 100
21 2 [X]
5 0
8 3
0 259 "{1}palette.cfg" "r"
13
8 4
6 4
5 1
18 5
11 00000173
0 3 "No icon sets saved."
5 0
15
9
5 1
11 00000304
0 257 "{4}"
13
8 5
6 5
5 1
18 5
11 00000255
10 00000304
6 3
5 1
3 0
8 3
6 3
6 5
23 2
10 00000173
0 260 "{4}"
5 1
8 6
6 3
6 6
18 2
12 00000402
10 00000463
5 1
6 6
3 0
8 6
10 00000327
6 6
22 2
0 20 [X] 2 "~"
13
8 7
0 25 "{7}"
10 00000369
0 26 "." "iconman"
13
11 00000767
0 27 9007
13
8 8
5 1
8 6
6 3
6 6
18 2
12 00000605
10 00000686
5 1
6 6
3 0
8 6
10 00000530
6 8
6 6
22 2
0 20 [X] 2 "~"
13
18 0
11 00000673
10 00000686
10 00000572
6 6
22 2
0 20 [X] 1 "~"
13
8 9
16 changeit "{9}"
6 6
22 2
16 newpal [X]
6 0
15
9
14 changeit
0 32 1
0 1288
13
8 2
0 790 "{0}"
0 779 "{2}def.cp"
0 790 "def.cp"
6 1
15
9
14 DefaultPalette
0 790 ""
6 0
15
9
14 quitfname
0 520 1 "╣ñ╛▀(&L)" "SmartIcon Mana&ger"
0 790 ""
6 0
15
9
DIALOG iconman
-2134376448 4 106 40 174 58 "" "" "Select SmartIcon Set"
FONT 12 "System"
6 4 118 8 1000 1342308352 "static" "&Custom SmartIcon sets:" 0
6 14 118 40 9007 1352728579 "listbox" "" 0
129 4 40 14 1 1342373889 "button" "OK" 0
129 20 40 14 2 1342373888 "button" "Cancel" 0
DIALOG iconman2
-2134376448 4 62 36 186 40 "" "" "Save SmartIcon Set"
FONT 12 "System"
6 4 124 8 1000 1342308352 "static" "&Name for current SmartIcon set:" 0
6 14 126 12 8007 1350631552 "edit" "" 0
140 4 40 14 1 1342373889 "button" "OK" 0
140 20 40 14 2 1342373888 "button" "Cancel" 0
DIALOG iconman3
-2134376448 9 74 26 208 106 "" "" "Link SmartIcon Set to File"
FONT 12 "System"
6 4 64 8 1000 1342308352 "static" "&Link to:" 0
6 14 64 88 9001 1352728579 "listbox" "" 0
78 20 60 10 110 1342242825 "button" "&Documents" 0
78 30 60 10 120 1342242825 "button" "&Style sheets" 0
74 48 66 8 1001 1342308352 "static" "SmartIcon &sets:" 0
74 58 130 44 9007 1352728577 "listbox" "" 0
162 4 40 14 1 1342373889 "button" "OK" 0
162 20 40 14 2 1342373888 "button" "Cancel" 0
74 10 68 34 20 1342308359 "button" "File type" 0
14 linkit
0 1288
13
8 1
0 802
13
8 2
5 100
21 3 [X]
5 0
8 4
0 259 "{1}palette.cfg" "r"
13
8 5
6 5
5 1
18 5
11 00000188
0 3 "Unable to open file Palette.cfg"
5 0
15
9
5 1
11 00000319
0 257 "{5}"
13
8 6
6 6
5 1
18 5
11 00000270
10 00000319
6 4
5 1
3 0
8 4
6 4
6 6
23 3
10 00000188
0 260 "{5}"
5 1
8 7
6 4
6 7
18 2
12 00000417
10 00000483
5 1
6 7
3 0
8 7
10 00000342
6 7
22 3
0 20 [X] 2 "~"
13
8 8
0 31 9007 "{8}"
10 00000384
0 268
13
0 16 [X] "*.sam"
13
0 31 9001 [X]
0 41 110 "{2}!loaddoc"
0 41 120 "{2}!loadfile"
0 31 110 1
5 0
0 26 "." "iconman3"
13
18 0
11 00000654
5 -1
15
9
0 27 9001
13
8 9
0 27 9007
13
8 10
5 1
8 7
6 4
6 7
18 2
12 00000780
10 00000862
5 1
6 7
3 0
8 7
10 00000705
6 10
6 7
22 3
0 20 [X] 2 "~"
13
18 0
11 00000849
10 00000862
10 00000747
6 7
22 3
0 20 [X] 1 "~"
13
8 11
5 1
0 2 "Display SmartIcon set ""{10}"" with file ""{9}""?"
13
18 1
11 00000996
5 0
15
9
0 20 "{9}" 2 "."
13
8 12
0 286 "Palette" "LastPalette1" "AmiPro.ini"
13
8 13
0 20 "{8}" 1 "~"
13
8 14
6 12
7 "STY"
18 0
11 00001362
2 101 1 "{9}" 1 0
2 572 1 "void changeicons(""{11}"")"
0 6 "[35][35]"
2 570 1
13
8 15
0 788 "{15}" 65536
13
8 16
2 224 1 "{16}" 1
16 changeit "{13}"
0 291 6
2 305 1 "{9}" 1 0 0
0 291 7
2 147 1
10 00001543
2 102 1 "{9}" 1 8265
2 572 1 "void changeicons(""{11}"")"
0 6 "[35][35]"
2 570 1
13
8 15
0 788 "{15}" 65536
13
8 16
2 224 1 "{16}" 1
16 changeit "{13}"
2 103 1
2 147 1
6 0
15
9
14 loadfile
0 296 1
0 269
13
8 2
0 280 "{2}*.sty" 1
13
8 3
0 44 "{0}" 9001
13
8 4
0 1036 "{4}" 11 0 0
0 1036 "{4}" 1029 0 0
0 17 "{3}"
13
0 43 "{0}" 9001 [X]
5 1
11 00000301
0 281
13
8 3
6 3
7 ""
18 0
11 00000251
10 00000301
0 17 "{3}"
13
0 43 "{0}" 9001 [X]
10 00000174
0 1036 "{4}" 11 1 0
0 284 "user,InvalidateRect,HHFH" "{4}" 0 1
0 296 0
6 1
15
9
14 loaddoc
0 296 1
0 268
13
8 2
0 280 "{2}*.sam" 1
13
8 3
0 44 "{0}" 9001
13
8 4
0 1036 "{4}" 11 0 0
0 1036 "{4}" 1029 0 0
0 17 "{3}"
13
0 43 "{0}" 9001 [X]
5 1
11 00000300
0 281
13
8 3
6 3
7 ""
18 0
11 00000250
10 00000300
0 17 "{3}"
13
0 43 "{0}" 9001 [X]
10 00000173
0 1036 "{4}" 11 1 0
0 284 "user,InvalidateRect,HHFH" "{4}" 0 1
0 296 0
6 1
15
9
14 loadlist
0 1288
13
8 1
5 100
21 2 [X]
5 0
8 3
0 259 "{1}palette.cfg" "r"
13
8 4
6 4
5 1
18 5
11 00000174
0 3 "Unable to open file Palette.cfg"
5 0
15
9
5 1
11 00000305
0 257 "{4}"
13
8 5
6 5
5 1
18 5
11 00000256
10 00000305
6 3
5 1
3 0
8 3
6 3
6 5
23 2
10 00000174
0 260 "{4}"
5 1
8 6
6 3
6 6
18 2
12 00000403
10 00000464
5 1
6 6
3 0
8 6
10 00000328
6 6
22 2
0 20 [X] 2 "~"
13
8 7
0 25 "{7}"
10 00000370
0 26 "." "iconman"
13
11 00000841
0 27 9007
13
8 8
5 1
8 6
6 3
6 6
18 2
12 00000606
10 00000687
5 1
6 6
3 0
8 6
10 00000531
6 8
6 6
22 2
0 20 [X] 2 "~"
13
18 0
11 00000674
10 00000687
10 00000573
6 6
22 2
0 20 [X] 2 "~"
13
8 8
0 2 "Are you sure you want to delete the SmartIcon set ""{8}"""
13
11 00000841
6 6
22 2
0 20 [X] 1 "~"
13
8 9
6 0
15
9
14 makedefpal
0 2 "Make the current SmartIcon set your default set, are you sure?"
13
8 1
6 1
5 1
18 1
11 00000135
5 0
15
9
0 1288
13
0 16 [X] "apib.ini"
13
0 779 [X]
0 790 "apib.ini"
6 0
15
9
14 buildmenus
7 "IconMan"
8 1
7 "╣ñ╛▀(&L)"
8 2
7 "SmartIcon Mana&ger"
8 3
0 802
13
8 4
0 520 1 "{2}" "{3}"
0 528 1 "{2}" 16 "{3}"
0 525 1 "{2}" "{3}" "&Open Palette..." "{4}!LoadPalette" "Load a custom icon arrangement"
0 525 1 "{2}" "{3}" "&Save Palette..." "{4}!SavePalette" "Save current icon arrangement"
0 525 1 "{2}" "{3}" "&Attach to File..." "{4}!linkit" "Attach a SmartIcon palette to a document or style sheet"
0 525 1 "{2}" "{3}" "&Remove Palette..." "{4}!DeletePalette" "Delete an icon arrangement from list"
0 525 1 "{2}" "{3}" "&Default Palette" "{4}!DefaultPalette" "Reset icon palette to default"
0 525 1 "{2}" "{3}" "&Make Default Palette" "{4}!makedefpal" "Makes current icon palette default palette"
0 525 1 "{2}" "{3}" "-" "" ""
0 525 1 "{2}" "{3}" "E&xit Icon Manager" "{4}!quitfname" "Remove SmartIcon Manager"
0 525 1 "{2}" "{3}" "-" "" ""
6 0
15
9
00025872