%Installateur=$new(wizard) %Installateur->$setIcon(290) %Installateur->$setCaption("ToolZboX - Installation -") %Installateur->$setGeometry(250,200,250,240) %accueilward=$new(widget,%Installateur) %serveurward=$new(widget,%Installateur) %autojoin=$new(widget,%Installateur) %layoutaccueilward=$new(layout,%accueilward) %accueilward->$setBackgroundImage($file.localdir(toolzbox/pics/FondScreen2.jpg)) %labelaccueilboutonward=$new(button,%accueilward) %labelaccueilboutonward->$settext(Site d'aide et de présentation) %layoutaccueilward->$addwidget(%labelaccueilboutonward,2,0) %labelaccueilboutonward->$setImage($file.localdir(toolzbox/pics/Bouton2.jpg)) privateimpl(%labelaccueilboutonward, mousePressEvent) { openurl http://kvirc-fr.info/wikiz/index.php?title=ToolZboX } %Installateur->$addpage(%accueilward,Bienvenue) %Installateur->$setHelpEnabled(%accueilward,0) %layoutserveurward=$new(layout,%serveurward) %labelpseudoward=$new(label,%serveurward) %labelpseudoward->$settext("Pseudonyme") %layoutserveurward->$addMultiCellWidget(%labelpseudoward,0,0,0,0) %Labelpseudoeditward=$new(lineedit,%serveurward) %Labelpseudoeditward->$settext("") %layoutserveurward->$addMultiCellWidget(%Labelpseudoeditward,0,0,2,2) %labelcleward=$new(label,%serveurward) %labelcleward->$settext("Clé Irc") %layoutserveurward->$addMultiCellWidget(%labelcleward,1,1,0,0) %Labelcleeditward=$new(lineedit,%serveurward) %Labelcleeditward->$settext("") %Labelcleeditward->$setEchoMode(password) %layoutserveurward->$addMultiCellWidget(%Labelcleeditward,1,1,2,2) %labelespaceward=$new(label,%serveurward) %labelespaceward->$settext(" ") %layoutserveurward->$addMultiCellWidget(%labelespaceward,1,1,0,0) %layoutserveurward->$addMultiCellWidget(%labelespaceward,1,1,1,1) %layoutserveurward->$addMultiCellWidget(%labelespaceward,1,1,3,3) %labelcomboward=$new(label,%serveurward) %labelcomboward->$settext("Fonction") %layoutserveurward->$addMultiCellWidget(%labelcomboward,2,2,0,0) %Combofonctionward=$new(combobox,%serveurward) %Combofonctionward->$insertItem("Utilisateur") %Combofonctionward->$insertItem("Opérateur") %Combofonctionward->$insertItem("Chanmaster") %layoutserveurward->$addMultiCellWidget(%Combofonctionward,2,2,2,2) privateimpl(%Labelpseudoeditward, textChangedEvent){ %c = $config.open("toolzbox.kvc", "w") config.write %c mypseudo %Labelpseudoeditward->$text() config.close %c } privateimpl(%Labelcleeditward, textChangedEvent){ %c = $config.open("toolzbox.kvc", "rw") config.write %c myirckey %Labelcleeditward->$text() config.close %c } privateimpl(%Combofonctionward, activatedEvent){ %c = $config.open("toolzbox.kvc", "rw") config.write %c ircfonction %Combofonctionward->$current() config.close %c } %Installateur->$addpage(%serveurward,Configuration de l'utilisateur) %Installateur->$setHelpEnabled(%serveurward,0) %layoutautojoin=$new(layout,%autojoin) %listageautojoin=$new(listview,%autojoin) %listageautojoin->$addColumn(Salons,201) %layoutautojoin->$addMultiCellWidget(%listageautojoin,0,1,0,0) %Editageautojoin=$new(lineedit,%autojoin) %layoutautojoin->$addMultiCellWidget(%Editageautojoin,2,2,0,0) %boutonajout=$new(button,%autojoin) %boutonajout->$setText(Ajouter) %boutonajout->$setImage(257) %layoutautojoin->$addMultiCellWidget(%boutonajout,2,2,1,1) %boutondel=$new(button,%autojoin) %boutondel->$setText(Supprimer) %boutondel->$setImage(258) %layoutautojoin->$addMultiCellWidget(%boutondel,1,1,1,1) privateimpl(%boutonajout, clickEvent){ %c = $config.open("toolzbox.kvc", "rw") %autojoin = autojoin config.write %c %autojoin++ %Editageautojoin->$text() config.close %c } %Installateur->$addpage(%autojoin,Salons à joindre automatiquement) privateimpl(%Installateur, acceptEvent) { # location du fichier installeur.kvs } %Installateur->$setHelpEnabled(%autojoin,0) %Installateur->$setFinishEnabled(%autojoin,1) %Installateur->$setFinishBtnText(Installer) %Installateur->$show()