[Iup-users] IupScanf / IupGetParam Bug

[John S. <su...@sc...>]

Antonio,

One of the OxygenBasic compiler forum member discovered a bug with
IupScanf and I suggested using the recommended IupGetParam function
instead. As it turns out, they both don't seem to work. Can you verify
on your end?

John

--------------------------------------------------

Quote: Charles Pegge (Oxygen Basic author)

Hi Roland, John,

Both IupScanf and IupGetParam appear to be dud. And I have checked that
the parameters were passed correctly.

*** OxygenBasic ***

includepath "$\inc\"
% filename  "z.exe"
'include     "RTL32.inc"
'include     "console.inc"
'include      "minwin.inc"


includepath "iup\"      
extern lib "IUP/iup.dll" cdecl 
include "iup.h"
     
extern cdecl       

 
  IupOpen(null,null)


  'SCANF TEST
  ===========

  int result
  string sdat=nuls 300
  int    idat
  double fdat
  result = IupScanf("IupScanf Example\n Text:%300.5%s",strptr sdat,null)
  print sdat 


  'GETPARAM TEST
  ==============

  int pboolean = 1;
  int pinteger = 3456;
  float preal = 3.543f;
  int pinteger2 = 192;
  float preal2 = 0.5f;
  float pangle = 90;
  char pstring[100] = "string text";
  char pfont[100] = "Courier, 24";
  char pcolor[100] = "255 0 128";
  int plist = 2, poptions = 1;
  char pstring2[200] = "second text\nsecond line";
  char file_name[500] = "test.jpg";

  sys param_action=0
  'itr !

  if not (IupGetParam("Title", param_action, 0,

     "Bt %u[, MyCancel, Help!]\n"+
     "Boolean: %b[No,Yes]\n"+
     "Integer: %i\n"+
     "Real 1: %r\n"+
     "Sep1 %t\n"+
     "Integer: %i[0,255]\n"+
     "Real 2: %r[-1.5,1.5,0.05]\n"+
     "Sep2 %t\n"+
     "Angle: %a[0,360]\n"+
     "String: %s\n"+
     "Options: %o|item0|item1|item2|\n" +
     "List: %l|item0|item1|item2|item3|item4|item5|item6|\n" +
     "File: %f[OPEN|*.bmp;*.jpg|CURRENT|NO|NO]\n"+
     "Color: %c{Color Tip}\n"+
     "Font: %n\n"+
     "Sep3 %t\n"+
     "Multiline: %m\n",
     &pboolean, &pinteger, &preal, &pinteger2, &preal2, &pangle,
pstring, 
     &poptions, &plist, file_name, pcolor, pfont, pstring2, NULL))

  end if

  print pinteger
  IupClose()