Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
f3bdef18
Commit
f3bdef18
authored
Apr 09, 2003
by
Diederik van Arkel
Browse files
use resources for bitmap and version;
parent
1a51e713
Changes
2
Hide whitespace changes
Inline
Side-by-side
Mac/IdePlatform.dcl
View file @
f3bdef18
...
...
@@ -30,5 +30,5 @@ srchBM :== "srchBM.bmp"
updtBM
:==
"updtBM.bmp"
urunBM
:==
"urunBM.bmp"
EXE_VERSION
:
==
""
EXE_VERSION
:
:
String
helpItems
::
!
Id
!
Id
!*(
PSt
.
a
)
->
*
PSt
.
a
Mac/IdePlatform.icl
View file @
f3bdef18
...
...
@@ -47,9 +47,15 @@ DefmodIcon :== 32515
CleanIcon
:==
32512
AbcmodIcon
:==
32514
import
osbitmap
getAboutBitmap
::
!*
env
->
(!
Maybe
Bitmap
,
!*
env
)
|
FileEnv
env
getAboutBitmap
env
=
accFiles
(
openBitmap
AboutBitmap
)
env
// = accFiles (openBitmap AboutBitmap) env
#
(
ok
,
osbm
,
tb
)
=
osOpenBitmap
128
OSNewToolbox
|
ok
=
(
Just
(
toBitmap
osbm
),
env
)
=
(
Nothing
,
env
)
AboutBitmap
:==
applicationpath
"bitmaps:aboutIDE.pict"
...
...
@@ -65,3 +71,31 @@ urunBM :== "urunBM.bmp"
helpItems
::
!
Id
!
Id
!*(
PSt
.
a
)
->
*
PSt
.
a
helpItems
wId
mId
ps
=
ps
//-- Get EXE_VERSION from 'vers' resource
import
pointer
,
resources
,
structure
import
StdTuple
EXE_VERSION
::
String
EXE_VERSION
=:
fst
(
read_vers_resource
42
)
read_vers_resource
::
*
Int
->
(!
String
,
!*
Int
);
read_vers_resource
t
#
(
handle
,
t
)
=
Get1Resource
"vers"
1
t
|
handle
==
0
=
(
"no version resource"
,
t
);
#
(
ptr
,
t
)
=
DereferenceHandle
handle
t
;
#
(
size
,
t
)
=
LoadByte
(
ptr
+6
)
t
;
#
(
vers
,
_,
t
)
=
LoadString
0
size
(
createArray
size
'@'
)
(
ptr
+7
)
t
;
=
(
vers
,
t
);
LoadString
::
Int
Int
*{#
Char
}
Ptr
*
Toolbox
->
(!*{#
Char
},
Ptr
,
!*
Toolbox
);
LoadString
n
size
string
ptr
t
|
n
==
size
=
(
string
,
ptr
,
t
);
#
(
char
,
t
)
=
LoadByte
(
ptr
+
n
)
t
;
=
LoadString
(
n
+1
)
size
{
string
&
[
n
]
=
toChar
char
}
ptr
t
;
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment