mirror of
https://github.com/netsurf-browser/netsurf
synced 2024-11-25 07:49:38 +03:00
Fix copy of icon
svn path=/trunk/netsurf/; revision=10946
This commit is contained in:
parent
d27952c359
commit
d76e1898ee
15
amiga/dist/Install
vendored
15
amiga/dist/Install
vendored
@ -111,6 +111,7 @@
|
||||
(if (= #same 0) ;if #sobj is newer than that pointed to by #sobj_link
|
||||
(
|
||||
(if (exists (#sobj2))
|
||||
(transcript "Deleting " #sobj2)
|
||||
(delete #sobj2 (optional "force")) ;prevent dodgy recursive links
|
||||
)
|
||||
(set #linkcmd (cat "makelink " #sobj2 " SObjs:" #sobj " soft"))
|
||||
@ -344,9 +345,11 @@
|
||||
)
|
||||
|
||||
(select #themename
|
||||
(set #theme "PROGDIR:Resources/Themes/Default")
|
||||
(set #theme "PROGDIR:Resources/Themes/AISS")
|
||||
(set #themeshort "Default")
|
||||
(set #themeshort "AISS")
|
||||
)
|
||||
|
||||
(set #theme (tackon "PROGDIR:Resources/Themes/" #themeshort))
|
||||
)
|
||||
)
|
||||
|
||||
@ -458,7 +461,13 @@
|
||||
|
||||
(if #theme
|
||||
(
|
||||
(set #theme-icon (tackon @default-dest (tackon #theme "NetSurf.info")))
|
||||
(set #theme-icon
|
||||
(tackon @default-dest
|
||||
(tackon "Resources"
|
||||
(tackon #themeshort "NetSurf.info")
|
||||
)
|
||||
)
|
||||
)
|
||||
(set #icon-exists (exists #theme-icon))
|
||||
|
||||
(if #icon-exists
|
||||
|
Loading…
Reference in New Issue
Block a user