Yes, here it is attached.
Steven
Le vendredi 04 juillet 2008 à 22:50 +0200, Benoit Minisini a écrit :
> On jeudi 03 juillet 2008, Steven Lobbezoo wrote:
> > Hi,
> >
> > I just installed gambas 2.7 (as per instructions on the site from the
> > repository on suse for suse 11 (freshly installed also).
> >
> > I got a signal 11 exeption closing a modal form. It's called as this :
> >
> > PUBLIC SUB photo_DblClick()
> > ' Add/replace the image photo
> > DIM Mpath AS String
> > DIM sData AS String
> >
> > IF rsD THEN
> > fileselector.Tag = FALSE
> > fileselector.ShowModal
> > FOR EACH MPath IN MGlobal.F_Ch
> > photo.Picture = CreatePic(MPath, 320, 0)
> > ' and we write it in the database (if there's one)
> > IF rsD.Available THEN
> > sData = File.Load(MPath)
> > rsD!photo = sData
> > rsD.Update
> > END IF
> > NEXT
> > END IF
> > END
> >
> >
> > Then, in the form i do this :
> > PUBLIC SUB cancel_Click()
> > ME.close
> > END
> >
> >
> > The signal occors, just at/after the ME.close.
> > I donnot get back into the original routine.
> > This worked just fine before (2.0).
> >
> >
> > Steven
> >
>
> Can you isolate this bug in a small project?
>
' Gambas class file
PUBLIC SUB Form_Resize()
FileChooser1.Move(2, 2, ME.ClientW - 4, ME.ClientH - 60)
Panel1.Move(2, ME.ClientH - 58, ME.ClientW - 4, ME.ClientH - 4)
ok.Move(Panel1.width - 100, ok.Y)
cancel.Move(Panel1.width - 210, ok.Y)
END
PUBLIC SUB cancel_Click()
MGlobal.F_Ch.Clear
ME.close
END
PUBLIC SUB ok_Click()
DIM msg AS String
' we write the array of selected filenames to the main module
Mglobal.F_Ch = NEW String[]
FOR EACH msg IN FileChooser1.SelectedPaths
Mglobal.F_Ch.Add(msg)
NEXT
MGlobal.FPath = FileChooser1.Dir
ME.close
END
PUBLIC SUB Form_Open()
DIM tmp AS String
' we add some marks if we can
IF Exist("/home/partage") THEN
tmp = "/home/partage"
ELSE IF Exist(User.Home & "/partage") THEN
tmp = User.Home & "/partage"
END IF
FileChooser1.Dir = MGlobal.FPath
IF tmp THEN
FileChooser1.Bookmarks = [[tmp, "Partage", "icon:/16/language"], ["/home",
"Répertoire base", "icon:/16/directory"]]
ELSE
FileChooser1.Bookmarks = [["/tmp", "Temporary directory"], ["/home",
"Répertoire base", "icon:/16/directory"]]
END IF
END
# Gambas Form File 2.0
{ Form Form
MoveScaled(0,0,84,53)
Font = Font["Italic"]
Background = Color.Background
Foreground = Color.Foreground
Text = ("Revimmo - selection de fichiers")
Icon = Picture["icon:/16/watch"]
{ FileChooser1 FileChooser
MoveScaled(1,1,82,43)
Font = Font["Tahoma,Italic,10"]
Background = Color.Background
Foreground = Color.Foreground
Multi = True
Filter = [("*.png;*.jpg;*.jpeg;*.bmp;*.gif;*.xpm"), ("Images, photo's"),
("*.pdf"), ("Adobe "), ("*.*"), ("Tous les fichiers")]
ShowDetailed = True
}
{ Panel1 Panel
MoveScaled(1,45,82,8)
{ ok ToolButton
MoveScaled(68,3,13,3)
Font = Font["Tahoma,Italic,10"]
Text = (" Allez-y")
Picture = Picture["icon:/16/color"]
Border = True
}
{ cancel ToolButton
MoveScaled(53,3,13,3)
Font = Font["Tahoma,Italic,10"]
Text = (" Annuler")
Picture = Picture["icon:/16/cancel"]
Border = True
}
{ TextLabel1 TextLabel
MoveScaled(0,0,50,7)
Font = Font["Tahoma,Italic,8"]
Foreground = &H800000&
Text = ("Vous pouvez choisir plusieurs\nfichiers en m\xC3\xAAme temps,
en\nappuient sur le taste \"Ctrl\" et\nselectionner les fichiers avec \nle
souris, ou en m\xC3\xAAme fa\xC3\xA7on\nselectionner une liste avec le\ntaste
\"Maj\" et le souris.")
}
}
}
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
DIM Mpath AS String
fileselector.ShowModal
FOR EACH MPath IN MGlobal.F_Ch
Message.Info(Mpath)
NEXT
END
# Gambas Form File 2.0
{ Form Form
MoveScaled(0,0,50,50)
Text = ("")
{ Button1 Button
MoveScaled(12,12,17,5)
Text = ("Button1")
}
}
' Gambas module file
PUBLIC F_Ch AS NEW String[]
PUBLIC FPath AS String = USER.Home ' the last path of the fileselector,
remember this
-------------------------------------------------------------------------
Sponsored by: SourceForge.net Community Choice Awards: VOTE NOW!
Studies have shown that voting for your favorite open source project,
along with a healthy diet, reduces your potential for chronic lameness
and boredom. Vote Now at http://www.sourceforge.net/community/cca08
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user