Subversion Repositories Kolibri OS

Rev

Rev 9180 | Rev 9187 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9180 Rev 9182
Line 418... Line 418...
418 
        item.enabled := value
 418 
        item.enabled := value
419 
    END
 419 
    END
420 
END setEnabled;
 420 
END setEnabled;
Line 421... Line 421...
421 
 
 421 
 
422 
 
 422 
 
423 
PROCEDURE setCheck* (m: tMenu; id: INTEGER; value: INTEGER);
 423 
PROCEDURE check* (m: tMenu; id: INTEGER; value: BOOLEAN);
424 
VAR
 424 
VAR
425 
    item: tItem;
 425 
    item: tItem;
426 
BEGIN
 426 
BEGIN
427 
    item := getItem(m, id);
 427 
    item := getItem(m, id);
428 
    IF item # NIL THEN
 428 
    IF item # NIL THEN
429 
        item.check := value
 429 
        item.check := ORD(value)
- 
 
 430 
    END
- 
 
 431 
END check;
- 
 
 432 
 
- 
 
 433 
 
- 
 
 434 
PROCEDURE option* (m: tMenu; id: INTEGER; value: BOOLEAN);
- 
 
 435 
VAR
- 
 
 436 
    item: tItem;
- 
 
 437 
BEGIN
- 
 
 438 
    item := getItem(m, id);
- 
 
 439 
    IF item # NIL THEN
- 
 
 440 
        item.check := ORD(value)*2
Line 430... Line 441...
430 
    END
 441 
    END
431 
END setCheck;
 442 
END option;
432 
 
 443