Menggunakan objek List dengan tipe EXCLUSIVE pada JAVA (J2ME)

Menggunakan objek List dengan tipe EXCLUSIVE pada JAVA (J2ME)

import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;



public class ExclusiveList extends MIDlet
  implements CommandListener {
   
  private Display display;
  private List list;
 
  private Command cmdPilih;
  private Command cmdKembali; 
 
  public ExclusiveList() {
      display = Display.getDisplay(this);
  }
 
  public void startApp() {
     
      // membuat daftar command yang akan digunakan
      cmdPilih = new Command("Pilih", Command.SCREEN, 2);
      cmdKembali = new Command("Kembali", Command.EXIT, 1);
           
      // membuat gambar icon untuk setiap item List
      Image img;
      try {
          img = Image.createImage("/app.png");
      } catch (Exception e) {
          img = null;
      }
     
      // membuat List dengan tipe EXCLUSIVE
      list = new List("Tipe EXCLUSIVE", Choice.EXCLUSIVE);
      list.append("Pilihan pertama", img);
      list.append("Pilihan kedua", img);
      list.append("Pilihan ketiga", img);
      list.append("Pilihan keempat", img);
      list.addCommand(cmdPilih);
      list.addCommand(cmdKembali);
      list.setCommandListener(this);
     
      display.setCurrent(list);
  }
 
  public void pauseApp() {
      //
  }
 
  public void destroyApp(boolean unconditional) {
      notifyDestroyed();
  }
 
  public void commandAction(Command c, Displayable s) {
      if (c == cmdKembali) {
          destroyApp(false);
      } else {
          int indeks = list.getSelectedIndex();
          Alert info = new Alert("Informasi");
          info.setString("Anda memilih: " +
list.getString(indeks));
          info.setTimeout(Alert.FOREVER);
          display.setCurrent(info, list);
      }
  }

}