blob: d4edeb359c9f5f3d7cbe08382a7e5041d02f6a13 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
include <imhdr.h>
# T_IMTITLE -- Set the title of an image.
procedure t_imtitle ()
char image[SZ_FNAME] # Image to be editted
pointer im, immap()
begin
# Access image.
call clgstr ("image", image, SZ_FNAME)
im = immap (image, READ_WRITE, 0)
# Substitute new title.
call clgstr ("title", IM_TITLE(im), SZ_IMTITLE)
# Unmap image.
call imunmap (im)
end
|
