OberonCore

   PROCEDURE Config.Setup*;
      VAR res: INTEGER;
   BEGIN
      ...
      Converters.Register("HostBitmaps.ImportBitmap", "HostBitmaps.ExportBitmap", "HostBitmaps.StdView", "bmp", {});
      ...
   END Setup;

MODULE testbmp;
   IMPORT  Log := StdLog,  Views, Files,StdCmds,Containers, Controls;
   
VAR  v,nv:Views.View;
      loc:Files.Locator;
      m:Containers.Model;
         
PROCEDURE Do* ();
VAR
         name:Files.Name;
         p:Controls.Prop;
BEGIN
   StdCmds.New;
   loc:=Files.dir.This('E:\');
   name:='2.bmp';
   v := Views.OldView(loc, name);
   Views.Deposit(v);
   StdCmds.PasteView;

   NEW(p);
   p.link := "testbmp.R"; p.label := "обновить"; p.guard := ""; p.notifier := "";
   p.level := 0;
   p.opt[0] := FALSE; p.opt[1] := FALSE;
   p.opt[2] := FALSE; p.opt[3] := FALSE;
   p.opt[4] := FALSE;
   Views.Deposit(Controls.dir.NewPushButton(p));   
   StdCmds.PasteView;
   
   
   m:=Containers.Focus().ThisView().ThisModel();
   StdCmds.SetMaskMode;
   
END Do;   
   
PROCEDURE R* ();
VAR   name:Files.Name;
BEGIN
   name:='3.bmp';
   nv := Views.OldView(loc, name);
   m.ReplaceView(v,nv)
END R;   
   
END testbmp.

nv := Views.OldView(loc, name);
get first element;
WHILE (element # NIL) & ~(element is the right one) DO
      get next element
END;
 m.ReplaceView(v,nv)

MODULE testbmp2;
   IMPORT   Views, Files,Containers;
   
VAR 
      was:BOOLEAN;
PROCEDURE Do2*;
(** focus the first control whose label is "magic name" **)
VAR c: Containers.Controller;
      name:Files.Name;
      v,nv:Views.View;
      loc:Files.Locator;
      m:Containers.Model;
BEGIN
   c := Containers.Focus();
   IF c # NIL THEN
      c.GetFirstView(Containers.any, v);

      IF v # NIL THEN
         c.SetFocus(v);
         m:=c.ThisView().ThisModel();
         IF  was  THEN
            name:='2.bmp'
         ELSE
            name:='3.bmp'
         END;
         was:=~was;
         
         loc:=Files.dir.This('E:\');         
         nv := Views.OldView(loc, name);
         m.ReplaceView(v,nv)
      END
   END
END Do2;

BEGIN
   was:=FALSE;   
END testbmp2.